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

Åýµ{¦¡¦Û°Ê¿ëÃÑ

Åýµ{¦¡¦Û°Ê¿ëÃÑ

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!!¤p§Ì¬O§Q¥Î[AE3]°Ñ·Ó¨ÓÅý
         AA¶s¨ã¦³ÁôÂûP¨ú®ø¥\¯à
         ½Ð°Ý¬O§_¤]¥i¥H¦b¬Ù²¤[AE3]°Ñ·Ó
         ¤§¤UÅýAA¶s¤]¦P¼Ë¦³ÁôÂûP¨ú®ø¥\¯à
         ¤£ª¾µ{¦¡¬°¦ó?
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

¦^´_ 1# myleoyes
¬p¶Õ°Õ!§Ñ¤Fªþµ{¦¡
Sub AA()
       If [AE3] = "" Then
       : [Z:AT].EntireColumn.Hidden = False : [AE3] = 1
       ElseIf [AE3] = 1 Then [AE3] = "": [Z:AT].EntireColumn.Hidden = True
       End If
       [B7].Select
End Sub

TOP

¦^´_ 2# myleoyes
   ¥ÎCheckBox¤Ä¿ï
  1. Private Sub CheckBox1_Click()

  2.    If CheckBox1 = True Then
  3.       [Z:AT].EntireColumn.Hidden = False
  4.       Else: [Z:AT].EntireColumn.Hidden = True
  5.    End If
  6.    [B7].Select

  7. End Sub
½Æ»s¥N½X
Book2.zip (7.92 KB)

TOP

¦^´_ 3# register313
«e½ú!«D±`ªºÁÂÁÂ!!µ{¦¡¥i¥H
        ¦ýÀ³ÀÉ®×­n°õ¦æªºµ{¦¡«Ü¦h
        ©Ò¥H«ö¶s¤]¤£¤Ö¦]¦¹¤p§Ì¥H¤U¦C¤è¦¡¨ú¥N«ö¶s
        Private Sub Worksheet_SelectionChange(ByVal T As Range)
           Select Case T(1).Address(0, 0)
            Case "A2"
                 ¤ÀªR
            Case "B2"
                  ÁôÂûP¨ú®ø(AA¶s)     
          End Select
          End Sub
          ¦]¦¹«e½ú©Ò±Ðªº¤è¦¡Áö¦n,
          ¥i¬O·|¯}Ãa­ìÀɮתº§¹¾ã©Ê
          ¬O§_½Ð«e½ú¨Ì¤W³¯¦C¤è¦¡
          ±Ð¾ÉAA¶s©O?µL²zªº­n¨D¯u¬O¤£¦n·N«ä
          ½Ð¦A¨¯­W§AÅo!ÁÂÁ¦A¤T!!

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2011-12-21 23:05 ½s¿è

¦^´_ 4# myleoyes
    ¬O³o¼Ë¶Ü?
  1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
  2.    Select Case T.Address
  3.      Case "$A$2"
  4.            Call ¤ÀªR
  5.      Case "$B$2"
  6.            Call ÁôÂÃ
  7.      Case "$C$2"
  8.            Call ¨ú®øÁôÂÃ
  9.      Case Else
  10.   End Select
  11. End Sub
½Æ»s¥N½X
  1. Sub ¤ÀªR()
  2.     MsgBox "°õ¦æ¤ÀªRµ{¦¡"
  3. End Sub
  4. Sub ÁôÂÃ()
  5.     [Z:AT].EntireColumn.Hidden = True
  6. End Sub
  7. Sub ¨ú®øÁôÂÃ()
  8.    [Z:AT].EntireColumn.Hidden = False
  9. End Sub
½Æ»s¥N½X
Book1.zip (7.79 KB)

TOP

¦^´_ 4# myleoyes
¦ýÀ³ÀÉ®×­n°õ¦æªºµ{¦¡«Ü¦h , ©Ò¥H«ö¶s¤]¤£¤Ö¦]¦¹¤p§Ì¥H¤U¦C¤è¦¡¨ú¥N«ö¶s
À³ªþÀɤW¨Ó¬Ý¬Ýµ{¦¡ªº³W«ß¦b­þ¸Ì!!

TOP

¦^´_ 5# register313
«e½ú!«D±`ªºÁÂÁÂ!!
       ªþÀɽЬݦ]¬°¸Ì­±ªºµ{¦¡«Ü¦h
       ¤p§Ì©Ò¾Ç²ßªºµ{¦¡¤S¦³­­,¦]¦¹µ{¦¡·|Âø¶Ã¤£³ô
       §Æ±æ±N¤£¥²­nªº°Ñ·Ó©Î¦h¾lªº«ö¶s»Pµ{¦¡
       ¬Ù²¤³o¬O¤p§Ì·Q­nªº

TOP

¦^´_ 6# GBKEE
¨}®v!¤[¹HÂP!ÁÂÁÂ!!
          Àɮפwªþ¤W½Ð¬Ý»Ý¨D¦p¤W
           ÁôÂûP¨ú®ø

TOP

¦^´_ 5# register313
«e½ú!¬p¶Õ!»°®É¤S§Ñ±¼!

LeoV56.rar (19.04 KB)

TOP

¦^´_ 9# myleoyes

¬Ý¤FÀÉ®×¹ê¦b¤£¤F¸Ñ§A­nªº¥\¯à
¬O¤£¬O¦A»¡©ú²M·¡

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD