关于如何把vba功能集成到excel选项卡上

小周bim · 发表于 2023-2-23 19:32

各位老师好，我编写了一个vba程序，想将它的功能固化到excel选项卡上，目前的实现方法是将该代码保存在某个工作簿的vba模块里，再新建一个自定义选项卡，在新选项卡下建立新组，再将该vba模块放到这个组下面，这种方法虽然能实现我在任意工作簿都可以调用该vba程序，但是存在几个弊端：
1、每次打开任意工作簿，我存放vba模块的工作簿也会同时被打开；
2、我存放vba程序的那个工作簿不能删除，如果删除了，则无法继续使用。
请教老师们平时做开发时，是如何实现将vba程序功能集成在excel选项卡里而不存在以上弊端的方法的？

山菊花 · 发表于 2023-2-24 09:30

可在论坛知识树版块中搜索”封装“、”VSTO开发“，学习了解相关知识。
https://club.excelhome.net/tree

ZHLK · 发表于 2023-2-24 11:25

应用RIBBON功能

jack5d · 发表于 2023-2-24 11:52

比較簡單的方法是用增益集, 簡體版不知叫什麼。
1)把寫好VBA的檔案存檔成為"*.xlsm"
2)打開Excel 順序點檔案>選項, 之後如上圖加載增益集。
3)在xlsm檔案中編寫代碼吧~

*想在XCEL上E加入選項卡

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'關閉前清空增益集選項卡
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("&MyFunction").Delete
On Error GoTo 0
End With
End Sub
Private Sub Workbook_Open()
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("MyFunction").Delete
On Error GoTo 0
'加入選項卡的子項
Set objPopUp = .Controls.Add( _
Type:=msoControlPopup, _
before:=.Controls.Count, _
temporary:=True)
End With
objPopUp.Caption = "整理格式" '選項卡標題名字
Set objBtn = objPopUp.Controls.Add '加入子按鈕
With objBtn
.Caption = "GO" '子按鈕名字
.OnAction = "RunProcess" 'Module 中程序名
.Style = msoButtonCaption
End With
End Sub

复制代码

小周bim · 发表于 2023-2-25 23:14

jack5d 发表于 2023-2-24 11:52
比較簡單的方法是用增益集, 簡體版不知叫什麼。
1)把寫好VBA的檔案存檔成為"*.xlsm"
2)打開Exc ...

谢谢老师，相关问题已解决

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

[求助] 关于如何把vba功能集成到excel选项卡上