엑셀 vba, 셀내용 메시지 박스에 출력하기 외 2

질문자 : 비공개

요구 사항

1. 특정셀에 값을 넣으면 조건을 판별하는 매크로

2. 버튼을 클릭시 특정 두 셀의 값을 더해서 다른 특정 셀에 출력

3. 버튼을 클릭시  특정셀에 값을 메시지 박스에 출력하기

 

 

'1번 소스

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(4, 3).Value > 20 Then
    Cells(5, 3).Value = "크다"
   
    ElseIf Cells(4, 3).Value = 20 Then
    Cells(5, 3).Value = "같다"
 
    ElseIf Cells(4, 3).Value > 0 Then
    Cells(5, 3).Value = "작다"
   
    Else: Cells(5, 3).Value = " "
    End If
End Sub

 

'2번 소스

Sub sss()
Worksheets(1).Range("H10") = Worksheets(1).Range("C10") + Worksheets(1).Range("C11")
End Sub

 

'3번 소스

Sub msg()
MsgBox Worksheets(1).Range("C17").Value, 0, "By LZena"

End Sub

 

@ 엑셀파일

Book1.xlsm

 

@ 시연 동영상

 

 

 

 

@ 소스를 어느곳에 작성하는가?

' 1번 소스는 시트를 클릭 하신 후 붙여 넣기 하셔야 합니다.

 

 

'2, 3번 소스 위 메뉴에서 [삽입] -> 모듈 순으로 선택하신 후 소스를 붙여넣으시면 됩니다.

 

도형에 매크로 지정은 하실줄 아실거라 믿어요...