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

¦p¦ó±NVBAµ{¦¡Âন¼W¯q¶°?

²×©ó§ä¨ìµª®×¤F ­n¦bWorkbook³]©wOpen¥H¤ÎBeforeClose§Y·|¥X²{¦b¦Û­q¤u¨ã¦C
======================================
Private Sub Workbook_Open()
      Dim myNewBar As CommandBar            '«Å§i¤u¨ã¦Cª«¥ó
      Dim myButton1 As CommandBarButton   '«Å§i¤u¨ã¦C«ö¶sª«¥ó
      Dim myButton2 As CommandBarButton

      Set myNewBar = Application.CommandBars.Add     '·s¼W¤@­Ó¤u¨ã¦C
      myNewBar.Name = "Tool-Bar"                             '¤u¨ã¦C©R¦W

      With myNewBar
          Set myButton2 = .Controls.Add(msoControlButton)
============================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Tool-Bar").Delete
End Sub
          With myButton2
              .Style = msoButtonCaption  
              .BeginGroup = True
              .Caption = "Acoustic Toolbox"                  'Åã¥Ü¦b¤u¨ã¦C¤Wªº«ö¶s¤å¦r
              .TooltipText = "ToolBox"            '·Æ¹«²¾¹L¥h®É¡A©ÒÅã¥Üªº´£¥Ü¤å¦r
              .FaceId = 159                       '¤p¹Ï¥Ü
              .Tag = "MyCustomTag"
              .OnAction = "ToolBox"     '³]©w«ö¤U¦¹Áä®É©Ò­n°õ¦æªº¥¨¶°
          End With

          .Position = msoBarTop             '¤u¨ã¦CÂ\©ñ¦b¤W¼h
          .Visible = True
      End With
End Sub

TOP

¸Ñ¨M¤F
¤W¨Ó¤À¨É¤@¤U¤]¶¶«K¸ÑÄÀ§Ú­ì¥ýªº°ÝÃDÂI(¤@¶}©l´y­zªº¤£¦n Åýª©¤W¤j¤j«ÜÃøÀ´ ©êºp)
­n¨Ï¼W¯q¶°¥i¥H¥X²{¦b"¦Û­q¤u¨ã¦C"¤¤»Ý¥[¤JAuto_Open

Private Sub Workbook_Open()
      Dim myNewBar As CommandBar            '«Å§i¤u¨ã¦Cª«¥ó
      Dim myButton1 As CommandBarButton   '«Å§i¤u¨ã¦C«ö¶sª«¥ó
      Dim myButton2 As CommandBarButton

      Set myNewBar = Application.CommandBars.Add     '·s¼W¤@­Ó¤u¨ã¦C
      myNewBar.Name = "Tool-Bar"                             '¤u¨ã¦C©R¦W

      With myNewBar
          Set myButton2 = .Controls.Add(msoControlButton)

          With myButton2
              '.Style = msoButtonCaption   '¥uÅã¥Ü¤å¦r ©³¤U³o3ºØ«¬¦¡¿ï¤@ºØ
              '.Style = msoButtonIcon       '¥uÅã¥Ü¤p¹Ï¥Ü
              '¦P®ÉÅã¥Ü¤å¦r©M¤p¹Ï¥Ü
              .Style = msoButtonIconAndCaption 'msoComboLabel
              .BeginGroup = True
              .Caption = "ToolBox"                  'Åã¥Ü¦b¤u¨ã¦C¤Wªº«ö¶s¤å¦r
              .TooltipText = "ToolBox"            '·Æ¹«²¾¹L¥h®É¡A©ÒÅã¥Üªº´£¥Ü¤å¦r
              .FaceId = 435                       '¤p¹Ï¥Ü
              .Tag = "MyCustomTag"
              .OnAction = "ToolBox"     '³]©w«ö¤U¦¹Áä®É©Ò­n°õ¦æªº¥¨¶°
          End With

          .Position = msoBarBottom 'Top             '¤u¨ã¦CÂ\©ñ¦b¤W¼h
          .Visible = True
      End With
End Sub
¥t¥~ÁÙ­n¼g¤@­ÓÃö³¬ªºµ{¦¡
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Tool-Bar").Delete
End Sub

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD