vba_04_execute_button

Logic

• 작업 수행 macro 구현 (sub/function)
• 도형 생성
• 도형 > 매크로 지정
• 도형 click > macro 수행

ex. calculator

Sub cal_add()
    Dim n1, n2 As Integer
    
    n1 = Worksheets(ActiveSheet.Name).Cells(2, 2).Value
    n2 = Worksheets(ActiveSheet.Name).Cells(2, 3).Value
    Worksheets(ActiveSheet.Name).Cells(2, 4) = n1 + n2
End Sub
Sub cal_multiplication()
    Dim n1, n2 As Integer
    
    n1 = Worksheets(ActiveSheet.Name).Cells(2, 2).Value
    n2 = Worksheets(ActiveSheet.Name).Cells(2, 3).Value
    Worksheets(ActiveSheet.Name).Cells(2, 4) = n1 * n2
End Sub
Sub cal_division()
    Dim n1, n2 As Integer
    
    n1 = Worksheets(ActiveSheet.Name).Cells(2, 2).Value
    n2 = Worksheets(ActiveSheet.Name).Cells(2, 3).Value
    Worksheets(ActiveSheet.Name).Cells(2, 4) = n1 / n2
End Sub
Sub cal_subtraction()
    Dim n1, n2 As Integer
    
    n1 = Worksheets(ActiveSheet.Name).Cells(2, 2).Value
    n2 = Worksheets(ActiveSheet.Name).Cells(2, 3).Value
    Worksheets(ActiveSheet.Name).Cells(2, 4) = n1 - n2
End Sub