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

Ãö©óMsgBoxµøµ¡~¬°¤°»ò·|¸õµ¡2¦¸?

Ãö©óMsgBoxµøµ¡~¬°¤°»ò·|¸õµ¡2¦¸?

Private Sub CheckBox51_Click()
    MsgBox ("¯Ê³f¤¤")
    CheckBox51.Value = False
End Sub

¦^´_ 1# av8d


    ­è´ú¸Õ¤F¤@¤U~³o¼Ë´N¤£·|¸õµ¡2¦¸¤F
  1. Private Sub CheckBox51_Click()
  2. If CheckBox51.Value = True Then
  3.     MsgBox ("¯Ê³f¤¤")
  4.     CheckBox51.Value = False
  5. End If
  6. End Sub
½Æ»s¥N½X

TOP

CheckBox51.Value = False
¹B¦æ®É, ·|µoIJµo¤@¦¸ CheckBox51_Click
³o¼Ë·|¤ñ¸û¦w¥þ
  1. Private Sub CheckBox51_Click()
  2. If CheckBox51.Value = True Then
  3.     MsgBox ("¯Ê³f¤¤")
  4.     application.enableevents = false
  5.     CheckBox51.Value = False
  6.     application.enableevents = true
  7. End If
  8. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD