Excel VBA自定义工作表菜单自已常用的相关代码

hwf0101 发表于 2020-7-21 20:10

本帖最后由 hwf0101 于 2022-6-4 15:44 编辑

Dim strShtName As String
Sub Mybutton() '创建各表按钮
Dim sht As Worksheet, btn As Button
On Error Resume Next
For Each sht In Worksheets
   With sht
         If .Name <> strShtName Then
            .Shapes(strShtName).Delete
            '删除原有的名称为shtn的按钮，避免重复创建
            Set btn = .Buttons.add(0, 0, 60, 30)
            '新建按钮，释义见小贴士
            With btn
               .Name = strShtName
               '命令按钮命名
               .Characters.Text = "二级菜单"
               '按钮的文本内容
               .OnAction = "FFF"
               '指定按钮控件所执行的宏命令
            End With
         End If
   End With
Next
Set btn = Nothing
End Sub

Sub fff()
Call 二级菜单
End Sub

Sub 二级菜单()
'    On Error Resume Next
Dim HUWF As CommandBar
For Each HUWF In Application.CommandBars
   If HUWF.Name = "HH" Then HUWF.Delete '从集合中删除自定义命令栏。
Next
Set HUWF = CommandBars.add(Name:="HH", Position:=msoBarPopup) '创建一个新的命令栏并将其添加到命令栏集合中
'***************************************************
For i = 1 To Worksheets.Count - 4 + 4 Step 1 '遍历工作薄
   If Worksheets(i).Visible = -1 Then'判断是否是显示的表格
      Set HUWF1 = HUWF.Controls.add(Type:=msoControlButton) '要添加到指定命令栏中的控件类型
'Caption:控件标签;OnAction:控件指定宏
      HUWF1.Caption = Worksheets(i).Name
      HUWF1.OnAction = "HUWEIFENG"
      HUWF1.FaceId = 477 + i '工作表名前增加图标
   End If
Next i
'----------------新加的代码--------------------------------------------------------------
Set HUWF1 = HUWF.Controls.add(Type:=msoControlButton) '要添加到指定命令栏中的控件类型
HUWF1.Caption = "关于作者"
HUWF1.OnAction = "关于作者"
HUWF1.FaceId = 45
'***************************************************
HUWF.ShowPopup '将指定的命令栏作为快捷菜单，在指定坐标或当前光标位置显示
End Sub
Sub HUWEIFENG() '二级菜单执行返回选定的工作表
On Error Resume Next
Sheets(CommandBars.ActionControl.Caption).Select
End Sub
Sub 关于作者()
About.Show'显示窗体,~~窗体自已设计~~
End Sub
http://huwf.ysepan.com/
VBA工程密码158495758

hwf0101 发表于 2020-7-22 09:13

本帖最后由 hwf0101 于 2020-7-22 09:16 编辑

shll01 发表于 2020-7-22 08:12
没看到链接
没有链接,自已表格内的代码(EXCEL界面中按键盘上的ALT+F11进入代码编辑器)

你可以粘贴代码到自已的工作薄中来试试效果.

hwf0101 发表于 2020-7-23 19:23

塔奇克马发表于 2020-7-22 20:48
其实，对截图里的其他模块更感兴趣

看要哪个方面的,登录权限设置?Excel VBA 中运用SQL来查询或处理数据?

jiyanran 发表于 2020-7-21 23:14

不错，支持一下，辛苦了·

flyingdancex 发表于 2020-7-21 23:16

从来没用过VBA的，进来看看

lloyov 发表于 2020-7-21 23:54

VBA萌新表示很大佬

zghsgi 发表于 2020-7-22 00:25

VBA是相当的强大……办公好助手

yaoplee 发表于 2020-7-22 06:55

楼主很厉害，学习了{:1_921:}

shll01 发表于 2020-7-22 08:12

没看到链接

a2523188267 发表于 2020-7-22 20:24

哪分享一下源码文件吧

塔奇克马 发表于 2020-7-22 20:48

其实，对截图里的其他模块更感兴趣:Dweeqw

页: [1] 2

吾爱破解 - 52pojie.cn's Archiver

Excel VBA自定义工作表菜单自已常用的相关代码