关于excel的命令按钮(VBA)

它不应该在单子上，

相反，你应该使用工具栏。

工具栏可以在窗口上浮动，

不随纸张的变化而变化，

甚至删除表也可以。

Sub？My_Bar_Set()

暗淡？我的酒吧？作为？命令栏

暗淡？myBtm？作为？CommandBarButton

创建一个新的“Bar1”工具栏。

设置？我的酒吧？=?命令栏。Add("bar1 "，msoBarFloating)

设置？myBtm？=?command bars(" bar 1 ")controls . add(Type:= msoControlButton)。

设置“Bar1”工具栏。

用什么？申请。CommandBars("Bar1 ")。控件(1)

。OnAction？=?“我的_菜单”？My_menu是一个sub，是点击按钮后要执行的程序。

。标题？=?" asd "

。身高？=?12

。宽度？=?51

。可见？=?真实的

。启用？=?真实的

结束？随着

根据显示器的分辨率设置“Bar1”的位置。

暗淡？h？作为？长的

暗淡？v？作为？长的

h？=?800?我的显示器设置为800*600。你可以根据你的决心来填写。

v？=?600

用什么？申请。CommandBars("Bar1 ")

。Top？=?v？/?2

。向左？=?h？-?80

。可见？=?真实的

结束？随着

结束？潜水艇

Sub？我的菜单()

ActiveCell。价值？=?1234?该程序被设置为在工作簿打开时自动运行。原程序是调用一个窗口，然后进行选择操作。

结束？潜水艇