VBA_ Button Caption change when clicked

버튼의 이름(캡션)을 클릭할 때마다 바꾸어주는 VBA CODE입니다.
단계별 작업을 표시하거나 조건에 따라 다른 결과를 진행시켜야 할 때 활용하면 좋습니다.

버튼이 여러개 일 경우에는 조건식이나 버튼의 이름을 구분하는 조건식을 써야 합니다.

---

VBA

Sub Calculate()
    Application.ScreenUpdating = False
    With ActiveSheet.Buttons(Application.Caller)
 
        If .Caption = "Sum" Then
            Cells(8, 1).Value = "=R[-2]C+R[-1]C"
            Cells(8, 2).Value = "=R[-2]C+R[-1]C"
            Cells(8, 3).Value = "=R[-2]C+R[-1]C"
            Cells(5, 1).Value = .Caption
            .Caption = "Subtract"
 
        ElseIf .Caption = "Subtract" Then
            Cells(8, 1).Value = "=R[-2]C-R[-1]C"
            Cells(8, 2).Value = "=R[-2]C-R[-1]C"
            Cells(8, 3).Value = "=R[-2]C-R[-1]C"
            Cells(5, 1).Value = .Caption
            .Caption = "Multiply"
 
        ElseIf .Caption = "Multiply" Then
            Cells(8, 1).Value = "=R[-2]C*R[-1]C"
            Cells(8, 2).Value = "=R[-2]C*R[-1]C"
            Cells(8, 3).Value = "=R[-2]C*R[-1]C"
            Cells(5, 1).Value = .Caption
            .Caption = "Divide"
 
        ElseIf .Caption = "Divide" Then
            Cells(8, 1).Value = "=R[-2]C/R[-1]C"
            Cells(8, 2).Value = "=R[-2]C/R[-1]C"
            Cells(8, 3).Value = "=R[-2]C/R[-1]C"
            Cells(5, 1).Value = .Caption
            .Caption = "Sum"
        End If
    End With
 
    Application.ScreenUpdating = True
End Sub

Download Excel file