[엑셀 #004] Macro 이용하여 두 셀 바꾸기 (Shuffling)

두 개의 셀을 클릭만으로 바꾸고 싶을 때(Shuffling) 사용하는 방법이다. 엑셀에 아래와 같은 셀들이 있다고 하자.

 

1. 원하는 모양을 삽입한다. (insert --> shape)

 

2. 오른쪽 버튼으로 Macro를 적용한다. (Assign Macro)

3. 'New' 버튼 클릭.

4. 편집창(Code) 부분에 아래 text를 붙여 넣는다.

 

Sub change_cell()
 
    Dim intAreas As Integer
    Dim rngLeft As Range
    Dim rngRight As Range
    Dim varTemp
    
    With Selection
 
        intAreas = .Areas.Count
        
        If intAreas <> 2 Then
 
            MsgBox "select 2 cells", 64, "error"
            Exit Sub
 
        End If
        
        Set rngLeft = .Areas(1)
 
Set rngRight = .Areas(2)
 
 
        If rngLeft.Rows.Count <> rngRight.Rows.Count Or _
            rngLeft.Columns.Count <> rngRight.Columns.Count Then
                
            MsgBox "select same size cells", 64, "error"
            Exit Sub
 
End If
    End With
    
    varTemp = rngLeft
 
 rngLeft = rngRight.Value
 
rngRight = varTemp
 
 
    Set rngLeft = Nothing
    Set rngRight = Nothing
 
End Sub

5. 두 개의 셀을 'Ctrl'로 이용하여 클릭한 후 위에서 만든 모양을 클릭하면 두 셀이 바뀐다.

(뒤로 가기('Ctrl+z')는 안 되니 주의!)

 

004_shuffling_macro.xlsm

0.01MB