ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-2 15:44 ½s¿è

§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

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD