[已解决]VBA自定义工作表工具栏增加工作表切换功能

yjwdjfqb · 发表于 2011-8-11 11:57

VBA自定义工作表工具栏增加工作表切换功能

具体要求见附件：

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-8-11 14:00

回复 yjwdjfqb 的帖子

自定义工作表工具栏增加工作表切换功能(VBA).rar (27.73 KB, 下载次数: 79)

那么的帅 · 发表于 2011-8-11 13:37

回复 yjwdjfqb 的帖子

自定义工作表工具栏增加工作表切换功能(VBA).rar (27.52 KB, 下载次数: 16)

yjwdjfqb · 发表于 2011-8-11 13:54

回复那么的帅的帖子

帅哥，以用下面这个代码的形式加进去好吧，


  '创建查询工作表工具
  Set myPop = myBar.Controls.Add(msoControlPopup) '创建一个popup下拉式列表控件
   myPop.Caption = "查询工作表"

  Dim i As Integer
   For i = 1 To Sheets.Count '根据工作表的数量创建快速定向激活工作表按钮
      Set myCtrl = myPop.Controls.Add(msoControlButton, 1)
      myCtrl.Caption = Sheets(i).Name
      myCtrl.FaceId = 289 + i
      myCtrl.OnAction = "Ctrl_ButtonClick" '每个激活工作表按钮均执行同一个宏"Ctrl_ButtonClick"
   Next



  Set myBar = Nothing
  Set myPop = Nothing
  Set myCtrl = Nothing
End Sub

'查询工作表_宏代码
Public Sub ctrl_buttonclick()
  Dim strA As String
  strA = CommandBars.ActionControl.Caption
  Sheets(strA).Activate
End Sub

我从别的地方找的，但加进去后，出现了错误请帅哥帮忙。。。

那么的帅 · 发表于 2011-8-11 14:00

回复 yjwdjfqb 的帖子

自定义工作表工具栏增加工作表切换功能(VBA).rar (27.73 KB, 下载次数: 79)

yjwdjfqb · 发表于 2011-8-11 14:13

回复那么的帅的帖子

谢谢帅哥，搞定了，非常感谢！！！

		自动登录	找回密码
密码			注册