[엑셀 VBA] 엑사남 10강 #오픈이벤트와 유저폼

[엑셀 VBA] 엑사남 10강 #오픈이벤트와 유저폼

늦은 퇴근시간을 앞당기기 위해

공부합니다^^

몇번을 도전하다 실패한 엑셀VBA를

이번에는 초급을 넘어서보려고 합니다.

 

#학습내용(1)

Private Sub CommandButton1_Click()

    Sheet1.Range("B2") = Me.TextBox1.Value
    
    If Sheet1.Range("B3") = 1 Then
        MsgBox "안녕하세요"
        Unload UserForm1
    Else
    
        MsgBox "아이디를 확인하세요"
        ActiveWorkbook.Close False
    End If  
End Sub

 

#학습내용(2)

Private Sub Workbook_Open()

    Sheet1.Range("B2").ClearContents
        UserForm1.Show
        MsgBox "아이디를 확인하세요"
        ActiveWorkbook.Close False
    End If
End Sub

 

#학습내용(3)

Private Sub CommandButton1_Click()
    Sheet1.Range("B2") = Me.TextBox1.Value
    Sheet1.Range("C2") = Me.TextBox2.Value
    If Sheet1.Range("B4") = 1 Then
        MsgBox "안녕하세요"
        Unload UserForm1
    Else
   

 

출처 : https://youtu.be/5x1meMnl40o