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

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

¦^´_ 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

¦^´_ 3# liebe

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

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD