낭만소방관

12345678910111213141516171819202122232425262728Function RedWord$(rngNum As Range) Dim rnG As Range Dim v$(), i% For Each rnG In rngNum '지정한 영역을 순환 If rnG.Font.Color = vbRed Then '빨간색일 때 배열에 삽입 ReDim Preserve v(i) v(i) = rnG i = i + 1 End If Next rnG On Error GoTo j '빨간색이 없으면 배열에 에러가 나므로 If LenB(v(0)) Then RedWord = Join(v, ", ") '숫자들을 콤마로 묶어서 출력 Exit Function End If On Error GoTo 0 j: RedWord = ..

셀값을 메모로 넣은 후에메모를 보이게 하는 설정과메모 사이즈를 메모 내용에 맞게 자동으로 맞춰주는 매크로

셀값을 변수에 저장해놨다가셀값이 변하면 그에 따라 이벤트를 발생하는 매크로

띄어쓰기 없이 한줄로 나열된 주소를 시도, 시군구, 읍면동으로 세분화 해서 출력해주는 정규식시흥시, 구로구 같이 '시, 구' 와 지역명이 겹치는 경우를 위해 만들었다. 기존 자료를 삭제하고 화살표를 클릭하면 결과가 출력된다.

파란 셀 안에 to 가 있고 by 도 있다.어디에도 있을 수 있다는 가정 하에.사용자정의 함수와 단추를 이용한 두가지 예제.정규식을 이용하여 to 와 by의 유무를 파악하였다. 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657Option ExplicitSub Macro() Dim v, smV Dim R%() Dim i%, j%, k% Dim intStart%, intEnd% Dim MySet As Object Dim rnG As Range ' 정규식 선언. 숫자만 걸러냄 With CreateObject("VBscript.Regexp") .Global = True .P..

많이 올라오는 질문 중 하나다음 사진처럼 글자와 숫자가 혼합되어 있는 셀을 계산하는 방법. 정규식을 이용하여 콤마와 한글을 없애고 숫자와 괄호와 연산기호만 남겨서Evaluate 를 이용하여 계산한다.

카페 회원님과 채팅 도중 이야기가 나와 만들어 본 트리뷰 예제. 마땅한 샘플이 없어서 부산시 행정동을 참고삼아 트리뷰를 만들었다.구글링으로 코드를 여기저기 끌어와서 만들어서, 이해가 잘 안 가는 부분이 있으니집에 가서 책 봐야지. 내가 생각하는 트리뷰란..코딩 보다는 업무 흐름을 그림을 그릴 줄 아는 능력.코딩은 거들 뿐.

E열에 취소선이 적용된 텍스트만 추출해서F열에 출력하는 사용자정의 함수

문자 부분과 괄호로 덮힌 숫자 부분을 나눈 후숫자 부분을 다시 나누는 정규식

파일은 음따. 코드만 있으면 됨. 파일명만 변경해주는 매크로. Sub Macro() Dim pt$ Dim nN$ Dim oldN$ pt = ThisWorkbook.Path & "\" oldN = "샘플.xls" nN = "Sample.xlsx" Name pt & nN As pt & oldN End Sub