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

[µo°Ý] CheckBoxÁôÂûP¥X²{³]©w

[µo°Ý] CheckBoxÁôÂûP¥X²{³]©w

¦U¦ì¤j¤j­Ì¦n!
½Ð±Ð¤@¤U¤j®aÃö©óCheckBoxªº¤@¨Ç°ÝÃD
¥Ø«e·Q¼¶¼g¤@­Ó·íªí®æA1¼Æ­È=2®É¡A´N·|¥X²{CheckBox¡A¨ä¥L®É­Ô·|ÁôÂáA´N³o¼Ë¼¶¼g¦ÜA10
½Ð°Ý³o¥\¯à¬O§_¯à¼g¥X¨Ó©O?»Ý­n¥Î¨ì¦óºØ¨ç¼Æ©Î¥\¯à?¤S©ÎªÌ»Ý­n½Õ¾ã¤°»ò®æ¦¡©O?
³Â·Ð¤j¤j­Ìµy·L«ü¾É§Ú¤@¤U!·PÁÂ!

¦^´_ 1# liebe
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. For Each a In [A1:A10]
  3.   For Each ob In Me.OLEObjects
  4.     If ob.TopLeftCell.Row = a.Row Then ob.Visible = (a = 2)
  5.   Next
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
Hsieh¶W¯Åª©¥D¤j¤j¯u«ÜÁÂÁ§A!!
¦ý§Ú¹ï©óµ{¦¡½X¤´¦³¨ÇºÃ´b¡AÃö©ó²Ä¥|¦æ
If ob.TopLeftCell.Row = a.Row Then ob.Visible = (a = 2)
³o¸Ìªº""ob.TopLeftCell.Row""¬O¤°»ò·N«ä©O?
·PÁ§A!

TOP

¦^´_ 3# liebe

ª½±µÂ½Ä¶´N¬O
ª«¥ó ¥ª¤W¨¤ªºÀx¦s®æªº¦C¸¹
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD