글쓴이 보관물: Sweru

대화

Y : 자네 날 위해 힘 좀 써줄 수 있겠나!
S : 아니요.
Y : 그래 이것 좀 저기 옮겨다 주게!
S : 네.

W : 배탈 났을 때 옥수수 먹으면 안 돼요!
S : 꼭꼭 씹어 먹으면 괜찮지 않을까요?

P : 이 약은 아침 점심 저녁으로 드세요.
S : 옥수수 먹어도 되나요?

편지 답장 쓰긴 써야 되는데, 마음만 그렇네.

Excel – 기준점 기준으로 순서 바꾸거나 그대로 두기

엑셀 개발자 도구에서 Microsoft VBScript Regular Expressions 5.5를 활성화 시킨 후에 비주얼 베이직에서 사용.

나중에 또 짜느니 그냥 갖다가 써야지…

Private Sub splitUpRegexPattern()
    Dim regEx As New RegExp
    Dim strPattern As String
    Dim strInput As String
    Dim strReplace As String
    Dim Myrange As Range

    Set Myrange = ActiveSheet.Range("K1:K43452")

    For Each C In Myrange
        strPattern = "(^[0-9]{3}mm)(:)([A-Za-z 가-힣ㄱ-ㅎㅏ-ㅣ]*)"

        If strPattern <> "" Then
            strInput = C.Value
            strReplace = "$1"

            With regEx
                .Global = True
                .MultiLine = True
                .IgnoreCase = False
                .Pattern = strPattern
            End With

            If regEx.Test(strInput) Then
                C.Offset(0, 1) = regEx.Replace(strInput, "$3:$1")
            Else
                C.Offset(0, 1) = C.Value
            End If
        End If
    Next
End Sub