[µo°Ý] ¦p¦ó§Q¥ÎToggleButton¶}Ãö±±¨îUserFormªí³æ¤ºªº«ö¶s

av8d

§Q¥ÎToggleButton¶}Ãö±±¨îUserFormªí³æ¤ºªº«ö¶s

·í¶}±Òªº®É­Ô
Private Sub CommandButton10_Click()
    If TextBox1.Value <> "0000" Then
        TextBox1 = ""
    Else
        TextBox1 = ""
        Me.OLEObjects.Visible = True
        Sheets("Data").Select
        Call Music
    End If   
End Sub

·íÃö³¬ªº®É­Ô
Private Sub CommandButton10_Click()
    If TextBox1.Value <> "0000" Then
        TextBox1 = ""
    Else
        TextBox1 = ""
        Me.OLEObjects.Visible = True
        'Sheets("Data").Select
        'Call Music
    End If   
End Sub