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

ÁôÂëö¥kÁ䪺-¨ú®øÁôÂÃ¥\¯à

ÁôÂëö¥kÁ䪺-¨ú®øÁôÂÃ¥\¯à

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!!°ÝÃD¦pªþÀÉ»¡©ú
               ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

LeoV60.rar (23.88 KB)

  1. Sub °Ñ·ÓÄæ()
  2.     [E1] = 0
  3.     [E2] = ""
  4.     Set myrng = [E:L]
  5.     With myrng.EntireColumn
  6.         .Hidden = Not .Hidden
  7.         If .Hidden = True Then
  8.             Application.CommandBars("column").Controls(11).Enabled = False
  9.         Else
  10.             Application.CommandBars("Column").Controls(11).Enabled = True
  11.         End If
  12.     End With
  13.     Set myrng = Nothing
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# myleoyes
«ü©w¤u§@ªí¤¤:  ·í·Æ¹« ¿ï¾Ü¦³ÄæÁôÂ꺽d³ò®É «ö¥kÁ䪺 ÁôÂÃ¥\¯à,¨ú®øÁôÂÃ
  1. Dim A As CommandBarControls, B As CommandBarControls
  2. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  3.     Dim Msg As Boolean, C As Range
  4.     Msg = True
  5.     For Each C In Target.Columns
  6.         If C.EntireColumn.Hidden Then
  7.             Msg = False
  8.             Exit For
  9.         End If
  10.     Next
  11.     ¥\¯àªí Msg
  12. End Sub
  13. Private Sub Worksheet_Deactivate()
  14. ¥\¯àªí True
  15. End Sub
  16. Private Sub Worksheet_SelectionChange(ByVal T As Range)
  17.    ¥\¯àªí True
  18.    Select Case T(1).Address(0, 0)
  19.      Case "A1"
  20.        [E1] = "=Sheet2!B1"
  21.        Dim hwd As Long
  22.        lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
  23.        zz = InputBox("½Ð¿é¤J±K½X", "«D¸g³\¥i½Ð¤Å¶}±Ò¥H§K¤zÂZµ{¦¡¹B§@")
  24.        [E2] = zz
  25.        If [E1] = [E2] Then
  26.        °Ñ·ÓÄæ
  27.        Else: MsgBox "±K½X¿ù»~!": [E1] = 0: [E2] = "": [E:L].EntireColumn.Hidden = True
  28.        End If
  29.     End Select
  30. End Sub
  31. Private Sub ¥\¯àªí(T As Boolean)
  32.     Dim E As CommandBarControl
  33.     Set A = Application.CommandBars.FindControls(ID:=886)   '886   ÁôÂÃ(&H)
  34.     Set B = Application.CommandBars.FindControls(ID:=887)   '887   ¨ú®øÁôÂÃ(&U)
  35.     For Each E In A
  36.         E.Enabled = T
  37.     Next
  38.     For Each E In B
  39.         E.Enabled = T
  40.     Next
  41. End Sub
½Æ»s¥N½X
¥\¯à °±¤î¨Ï¥Î

TOP

¦^´_ 3# GBKEE
oobird «e½ú! «D±`ªºÁÂÁÂ!!
¦P®É¤]ÁÂÁ¨}®v¦p¦¹¸Ô²Ó«ü¾É!

¤p§Ì¥t¦³¤@°ÝÃD½Ð±Ð¨â¦ì«e½ú!
¤p§Ì¦]¦£ªF¦£¦è±`±`§Ñ°OÀÉ®×±K½X
©Ò¥H¦³¦¹·Qªk,¦p¤W½d¨Òªº±K½X¬O¥iÅܦ¡
¥¦¨Ó¦Û©óSheet2¤u§@ªíªºB2Àx¦s®æ
¦]¦¹¥¦¤]¥i¥H¨Ó¦Û©ó¨ä¥LÀɮתºÀx¦s®æ
©Ò¥H·í«Ø¥ß¤@­Ó·sÀɦsÀÉ®×®É,
·Q¥Î½d¨Ò¤è¦¡¨ÓÀɦs±K½X,¦Ó«DExcel
­ì¦³¤@¯ë¿ï¶µ¨Ó«Ø¥ß±K½X,
¦]¬°¨º¼Ë©Ò«Ø¥ßªº±K½X¬O©T©wªº
¥²»Ý¦º°O¦b¤ß,¦Ó½d¨Ò©Ò«Ø¥ßªº±K½X¬O
¥iÅܦ¡,µL»Ý¨c°O±K½X...¤£ª¾³o¼Ëªº·§©À¬O§_
¥i¦æ¶Ü?µ{¦¡¤S¦p¦ó?½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD