Ãö©óMsgBoxµøµ¡~¬°¤°»ò·|¸õµ¡2¦¸?
- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
Ãö©óMsgBoxµøµ¡~¬°¤°»ò·|¸õµ¡2¦¸?
Private Sub CheckBox51_Click()
MsgBox ("¯Ê³f¤¤")
CheckBox51.Value = False
End Sub |
|
|
|
|
|
|
- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
¦^´_ 1# av8d
è´ú¸Õ¤F¤@¤U~³o¼Ë´N¤£·|¸õµ¡2¦¸¤F- Private Sub CheckBox51_Click()
- If CheckBox51.Value = True Then
- MsgBox ("¯Ê³f¤¤")
- CheckBox51.Value = False
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
CheckBox51.Value = False
¹B¦æ®É, ·|µoIJµo¤@¦¸ CheckBox51_Click
³o¼Ë·|¤ñ¸û¦w¥þ- Private Sub CheckBox51_Click()
- If CheckBox51.Value = True Then
- MsgBox ("¯Ê³f¤¤")
- application.enableevents = false
- CheckBox51.Value = False
- application.enableevents = true
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|