乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > excel按钮控件怎么写代码-excel按钮代码,excel制作窗体查询界面

excel按钮控件怎么写代码-excel按钮代码,excel制作窗体查询界面

作者:乔山办公网日期:

返回目录:excel表格制作


按照你的意思,

就不应该做在sheet上,

而应该使用ToolBar,

ToolBar是可以漂浮在窗口上的,

不随sheet变化而变化,

甚至删除sheet都没有问题。

Sub My_Bar_Set()
    Dim myBar As CommandBar
    Dim myBtm As CommandBarButton
    '建立新"Bar1"工具栏
    Set myBar = CommandBars.Add("bar1", msoBarFloating)
    Set myBtm = CommandBars("Bar1").Controls.Add(Type:=msoControlButton)
    
    '设置"Bar1"工具栏
    With Application.CommandBars("Bar1").Controls(1)
        .OnAction = "My_menu" 'My_menu是一个sub,里面是单击按钮后要执行的程序
        .Caption = "asd"
        .Height = 12
        .Width = 51
        .Visible = True
        .Enabled = True
    End With
    
    '根据显示器e69da5e6ba90e799bee5baa6e79fa5e98193364分辨率设置"Bar1"位置
    Dim H As Long
    Dim V As Long
    H = 800 '我的显示器设为800*600,你可以根据你的分辨率填写
    V = 600
    With Application.CommandBars("Bar1")
        .Top = V / 2
        .Left = H - 80
        .Visible = True
    End With
    
    
End Sub

Sub My_menu()
    ActiveCell.Value = 1234 '此处为随意写了一句,这段程序是设置在工作簿open时自动运行的,原程序是调用一个窗口,然后进行选择操作
End Sub





你这个都用同1个按钮,需要将C列数据备份到其他列,然后判断你点击按钮的次数,才能实现你的目的

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网