¦Û°ÊÁôÂÃÄæ

mdr0465

¦U¦ì¤j¤j

  ¦pªG§Ú·Q«Y·í"A1" ½ü¤J"123"®É, ËÝBÄæ´N·|¦Û°ÊÁôÂÃ,·í"A1"®æ­ø«Y123®É,BÄæ·|¦Û°ÊÅã¥Ü, §ÚÀ³¸ÓÂI¼g©O??
  ¦Ó§Ú¥u¼g¨ì¥i¥H«öCOMMAND BUTTON ¥OÊ\ÁôÂÃ,¦³¤Q»ò¤èªk¥i¥H¦Û°Ê©O?? ÁÂÁÂ
Sub test1()

    If Range("a1") = "13" Then
        Columns("b:b").autorun.Hidden = True        
   Else
        Columns("b:b").EntireColumn.Hidden = False
   End If
End Sub

­ã´£³¡ªL

¤u§@ªí¨Æ¥ó°Ïµ{¦¡½X¡G
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
¡@¡@¡@If .Address = "$A$1" Then
¡@¡@¡@¡@¡@[B:B].EntireColumn.Hidden = (.Value = 123)
¡@¡@¡@End If
End With
End Sub

mdr0465

ª©¥D¤£¦n·N«ä, §Úªí¹F±o­ø¦n, ¦pªG·í§Ú·Q«Y"A1" ®æ¿é¤J123·í°µ¤@­Ó±K½X"B"Äæ,´N·|Åã¥Ü¥X¨Ó,¦ý¦pªG"A1" ®æ¤£¬O"123"©Î¨ä¥L¼Æ¦r, "B"´N§¹¥þ¤£·|¥X²{,¦]¬°§ÚRIGHT CLICK ¥i¥H°£®øÁôÂÃ,ÁÂÁÂ

­ã´£³¡ªL

¦^´_ 3# mdr0465


[B:B].EntireColumn.Hidden = (.Value <> 123)