<엑셀VBA 입문 13강> 선택영역 한꺼번에 변경하기(VBA Selection)

‘getLeft : 문자열에서 특정 문자 좌측값을 잘라 가져온다.
‘ex) text가 “ab1cd”이고 mark가 “1”일 경우, “ab”를 리턴한다.
Function getLeft(text, mark)
    ‘대상 텍스트가 빈값일 경우 빈값 리턴
    If Len(text) = 0 Then
        getLeft = “”
        Exit Function
    End If
   
    ‘마크가 빈값일 경우 그대로 리턴
    If Len(mark) = 0 Then
        getLeft = text
        Exit Function
    End If
   
    Dim markIndex
    markIndex = InStr(1, text, mark)
   
    If markIndex > 0 Then
        ‘마크가 존재할 경우 좌측 문자열 리턴
        Dim leftText
        leftText = Mid(text, 1, markIndex – 1)
        getLeft = leftText
        Exit Function
   
    Else
        ‘마크가 존재하지 않을 경우 그대로 리턴
        getLeft = text
        Exit Function
    End If
   
End Function

‘getRight : 문자열에서 특정 문자 우측값을 잘라 가져온다.
‘ex) text가 “ab1cd”이고 mark가 “1”일 경우, “cd”를 리턴한다.
Function getRight(text, mark)
    ‘대상 텍스트가 빈값일 경우 빈값 리턴
    If Len(text) = 0 Then
        getRight = “”
        Exit Function
    End If
   
    ‘마크가 빈값일 경우 그대로 리턴
    If Len(mark) = 0 Then
        getRight = text
        Exit Function
    End If
   
    Dim markIndex
    markIndex = InStr(1, text, mark)
   
    If markIndex > 0 Then
        ‘마크가 존재할 경우 우측 문자열 리턴
        Dim rightText
        rightText = Mid(text, markIndex + Len(mark), Len(text) – markIndex)
        getRight = rightText
        Exit Function
   
    Else
        ‘마크가 존재하지 않을 경우 그대로 리턴
        getRight = text
        Exit Function
    End If
   
End Function

‘makeRangeText : 현재 선택한 셀을 “행값,열값~행값,열값” 형태의 문자열로 리턴한다.
‘ex1) 1개 셀(A1) 선택한 경우 -> “1,1~1,1” 리턴
‘ex2) 1개 셀(G3) 선택한 경우 -> “3,7~3,7” 리턴
‘ex3) n개 셀(G3~I5) 선택한 경우 -> “3,7~5,9” 리턴
Function makeRangeText()
    Dim addr
    addr = Selection.Address
   
    ‘범위에 달러 있는 경우 제거한다
    If InStr(1, addr, “$”) > 0 Then
        addr = Replace(addr, “$”, “”)
    End If

    Dim result

    Dim colonIndex
    colonIndex = InStr(1, addr, “:”)
   
    If colonIndex > 0 Then
        ‘n개 셀 선택(콜론이 있는 경우)
        Dim leftAddr
        Dim rightAddr
        leftAddr = getLeft(addr, “:”)
        rightAddr = getRight(addr, “:”)
       
        result = Range(leftAddr).row & “,” & Range(leftAddr).Column & “~” & Range(rightAddr).row & “,” & Range(rightAddr).Column
    Else
        ‘1개 셀 선택(콜론이 없는 경우)
        result = Range(addr).row & “,” & Range(addr).Column & “~” & Range(addr).row & “,” & Range(addr).Column
    End If

    makeRangeText = result
   
End Function

Sub 매크로1()
‘
‘ 매크로1 매크로
‘
‘ 바로 가기 키: Ctrl+e
‘

    ‘makeRangeText : 현재 선택한 셀을 “행값,열값~행값,열값” 형태의 문자열로 리턴한다.
    ‘ex) n개 셀(G3~I5) 선택한 경우 -> “3,7~5,9” 리턴
    Dim rangeText
    rangeText = makeRangeText()

    ‘물결(~)을 기준으로 좌측주소값과 우측주소값으로 자른다.
    ‘ex) n개 셀(G3~I5) 선택한 경우 -> leftAddr 은 “3,7” 이 되고, rightAddr 은 “5,9” 가 됨
    Dim leftAddr
    Dim rightAddr
    leftAddr = getLeft(rangeText, “~”)
    rightAddr = getRight(rangeText, “~”)

​

    ‘쉼표(,)를 기준으로 각 주소값을 행값과 열값으로 자른다.
    ‘ex) n개 셀(G3~I5) 선택한 경우 -> leftRow 은 “3”, leftCol 은 “7”, rightRow 는 “5”, rightCol 은 “9” 가 됨
    Dim leftRow
    Dim leftCol
    Dim rightRow
    Dim rightCol
    leftRow = getLeft(leftAddr, “,”)
    leftCol = getRight(leftAddr, “,”)
    rightRow = getLeft(rightAddr, “,”)
    rightCol = getRight(rightAddr, “,”)

    ‘선택영역의 좌측 상단셀부터 우측 하단셀까지, 반복문을 돌며 각 셀을 처리한다.
    For r = leftRow To rightRow
        For c = leftCol To rightCol

            ‘선택한 셀의 값을 “1”로 변경
            Cells(r, c).Value = “1”
        Next c
    Next r

End Sub

​Sub 매크로1()

(중략)

‘선택영역의 좌측 상단셀부터 우측 하단셀까지, 반복문을 돌며 각 셀을 처리한다.
    For r = leftRow To rightRow
        For c = leftCol To rightCol
       
            Dim oneVal
            oneVal = Cells(r, c).Value
           

            ‘숫자일 경우만 동작
            If checkIsNumber(oneVal) Then
                ‘현재값에서 -1 처리
                Cells(r, c).Value = oneVal – 1
            End If
        Next c
    Next r

End Sub

‘checkIsNumber : 문자열이 숫자인지 체크해서, 숫자일 경우 1을 리턴한다.
‘0 또는 자연수만 체크가능하다. 마이너스(음수) 또는 소수점이 있는 숫자는 해당없음.
Function checkIsNumber(str)

    Dim strLen
    strLen = Len(str)
   
    If strLen = 0 Then
        checkIsNumber = 0
        Exit Function
    End If
   
    Dim oneChar
    For i = 1 To strLen
        oneChar = Mid(str, i, 1)
       
        If oneChar <> “0” And oneChar <> “1” And oneChar <> “2” And oneChar <> “3” And oneChar <> “4” And oneChar <> “5” And oneChar <> “6” And oneChar <> “7” And oneChar <> “8” And oneChar <> “9” Then
            checkIsNumber = 0
            Exit Function
        End If
    Next i
   
    checkIsNumber = 1
End Function