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

[µo°Ý] ¦³Ãö¿ï¨ú¤è¶ô

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-6-2 13:08 ½s¿è

¦^´_ 1# ClareWu

­è­è§@¤F¤@­Ó ¥i¥H¥Î
¥ý¬Ý¬O¤£¬O±z­nªº

§@¥Î
¦pªG a2Àx¦s®æ = ªÅ¦r¦ê «h checkbox1 «h¬°®Ö¿ï §_«h  ¤£®Ö¿ï

¸ÑÄÀ
¦¹µ{¦¡ ¬O¥Î ¬¡­¶Ã¯¤º®eÅܧó¥\¯à  ¤£¥Î啓°Ê¥¨¶°  ª½±µ¥H A2 °Ê§@
¥N½X
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Range("a2").Value = "" Then
  3.         CheckBox1.Value = True
  4.     Else
  5.         CheckBox1.Value = False
  6.     End If
  7. End Sub
½Æ»s¥N½X
ªþÀÉ
    ªÅ¥Õ®Ö¿ï.rar (9.67 KB)

©µ¦ùÀ³¥Î
¦pªG a2+b2 = c2 «h checkbo1¬°®Ö¿ï  §_«h checkbox2¬° ®Ö¿ï
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Range("c2").Value = Range("a2").Value + Range("b2").Value Then
  3.         CheckBox1.Value = True
  4.         CheckBox2.Value = False
  5.         
  6.     Else
  7.         CheckBox1.Value = False
  8.         CheckBox2.Value = True
  9.     End If
  10. End Sub
½Æ»s¥N½X
ps ¦¹©«À³¸ÓÂkÃþ©ó EXCELµ{¦¡°Ï¤~¹ï..

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-6-2 13:53 ½s¿è

¦P¼Ëªº·N«ä ´î¤Ö¤À¦¨¨â©«µo°Ý...
¥i¥H¾A·í¥Î½s¿è ¨Ó¥[¥H©µ¦ù°ÝÃD
­n§ï¦WºÙªº¸Ü
¶}µo¤H­û-> ³]­p¼Ò¦¡-> ¿ï¾Ücheckbox ->ÄÝ©Ê ->captionªº¨ºÃä ­×§ï¦¨§A­nªº¦WºÙ

­n§ï®Ø½uªº¸Ü
¶}µo¤H­û-> ³]­p¼Ò¦¡-> ¿ï¾Ücheckbox ->ÄÝ©Ê ->shadow ¿ï¾Ü true §Y¥i§e²{¥ßÅ骬®ÄªG


"¥t¥~¦A½Ð°Ýªí³æ±±¨î¶µ¸òActivated ±±¨î¶µ¦³¤°»ò¤£¦P©O?"
³o­Óªº¸Ü  ¥i¥H°Ñ¦Ò¥H¤Uºô­¶

ActiveX±±¨î¶µ
http://140.130.192.1/ebook/VB6_1/17.htm


ªí³æ±±¨î¶µ
http://msdn.microsoft.com/zh-tw/library/cc295438.aspx

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD