낭만소방관

한글만 삭제하는 정규식 매크로 Sub Macro() Dim rnG As Range Dim rngD As Range Set rngD = Columns("D").SpecialCells(2) 'D열에 있는 데이터 With CreateObject("Vbscript.regexp") .Global = True .Pattern = "[가-힇]" '한글은 전부 For Each rnG In rngD If .test(rnG) Then rnG = .Replace(rnG, "") '한글 삭제 Next rnG End With End SubColored by Color Scriptercs

사진만 보고 파일을 만든 건. 함수로 하는 것이 더 나았지만 부탁하신 분이 엑셀에 약하다고 하시기에 데이터 범위가 바뀌면 수식 적용도 같이 맞춰줘야하는 번거로움때문에 매크로로 마무리 지었다.​

지식인에 올라온 질문 셀 안에 여러개의 데이터가 있는데 이를 분리해서 각 셀에 입력하는 매크로 123456789101112131415161718192021222324252627282930313233343536373839404142434445Sub Macro() Dim i%, j% Dim v적용, v명, v함량 For i = Cells(Rows.Count, "G").End(3).Row To 5 Step -1 '가장 아래 행부터 위로 거꾸로 올라감 With Cells(i, "G") v적용 = Split(.Value, vbLf) '적용 데이터를 배열에 삽입 v명 = Split(.Offset(, 2), vbLf) '명 데이터를 배열에 삽입 v함량 = Split(.Offset(, 4), vbLf) '함량 데이터를..

StrReverse라는 신세계를 발견했네.Len으로 글자 수 뽑아서 For 로 글자를 한땀한땀 뒤집어야하나... 생각하고'개발해야 합니다' 하고 까칠하게 답글을 달려는데 신세계를 보았네.글자를 뒤집어주는 함수가 VBA 안에 있었구먼. 역시 가만 있으면 중간은 하네.

정규식으로 패턴을 찾아 단위항목명에 상응하는 영문약어명으로 바꿔주는 매크로정신이 산만해서 코드도 산만하다.간단하게 끝낼 것을 억지로 배열에 넣는다고...ㅋㅋㅋ

밑줄과 한글만 추출해서 각 셀에 출력하는 매크로답글을 달아주고 싶지만 채택률 보고 마음 접음. + 매크로 실행 결과 +

우리 센터 관할만 뽑아주는 매크로를 추가기능으로 만들어보았다.메뉴탭 초기화 하는 거에서 애먹었는데의외로 간단하게 해결했네. Sub Auto_Open() Auto_Close On Error Resume Next With Application.CommandBars("Tools").Controls With .Add(Type:=msoControlButton) .FaceId = 59 .Caption = "소방서별 자료 취합" .OnAction = "Macro" End With End With On Error GoTo 0 End Sub Sub Auto_Close() Application.CommandBars("Tools").Reset End Sub Colored by Color Scriptercs

한 셀에 승패 라는 글자가 막 있고연속된 글자를 8글자씩 패턴으로 잡았을 때2개 이상 패턴이 발생한 것을 출력해주는 정규식 1. Dictionary를 이용해 8글자의 패턴을 고유값만 추출2. 추출된 8글자의 패턴을 정규식을 이용해 일치하는 항목을 추출하여 2개 이상 일치하는 내용을 배열에 삽입

Dictionary를 이용하여 중복값 추려내며 데이터를 배열에 담아내는 짧은 코드 수식은 Chronicle님의 블로그에 - http://blog.naver.com/asaph16/220627965891 (감탄) Sub Macro() Dim D As Object Dim vCar, vMsg$() Dim i%, j%, intC% Dim rngMsg As Range vCar = Range("C5", Cells(Rows.Count, "D").End(3)) '이름 및 차량 범위 Set D = CreateObject("Scripting.Dictionary") '딕셔너리 선언 Set rngMsg = Range("F5") '메시지 출력 셀 If LenB(rngMsg) Then rngMsg.CurrentRegion.Clea..

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364Option ExplicitSub Macro() Dim vCount%(2, 9), vMax$(2, 1) Dim rngPaste(2) As Range Dim vNum, v, vTemp%(9) Dim vAfPoint, i%, j% Dim a%, b%, c% vNum = Range("B3", Cells(Rows.Count, 2).End(3)) Set rngPaste(0) = Range("E5") Set rngPaste(1) = Range("E9") Set rngPaste(2) = Range("E13"..