option explicit
'msobartop工具欄的position
'type為msocontrolpopup(as commandbarpopup)的選單下可以帶子選單,但是msocontrolpopup不支援圖示
'type為msocontrolbutton(as commandbarbutton)的選單是msocontrolpopup的下級選單,不帶子選單,支援圖示
'以下**可以實現將自己的選單新增到excel選單欄上及建立自己的工具欄和選單的功能,更改**可以實現建立多級選單,下面的**只建立了二級選單
'更改以下**可以建立你所需要的選單
'shortcuttext屬性表示選單的快捷鍵
on error goto 0
dim topmenuitem as commandbarpopup '頂層選單
dim firstmenuitem as commandbarpopup'一級子選單
dim secondmenuitem as commandbarbutton '二級子選單
'頂層選單commandbarpopup,不支援圖示(只有最後一級選單才支援圖示)
.tooltiptext = "topmenuitem tooltiptext"'選單提示文字
end with
'一級子選單commandbarpopup,不支援圖示(只有最後一級選單才支援圖示)
set firstmenuitem = topmenuitem.controls.add(type:=msocontrolpopup)
with firstmenuitem
.caption = "firstmenuitem(&f)" '一級選單名
.tooltiptext = "firstmenuitem tooltiptext"'選單提示文字
end with
'二級選單commandbarbutton,支援圖示(只有最後一級選單才支援圖示)
set secondmenuitem = firstmenuitem.controls.add(type:=msocontrolbutton)
with secondmenuitem
.caption = "secondmenuitem(&s)" '二級選單名
.tooltiptext = "secondmenuitem tooltiptext"'選單提示文字
.style = msobuttoniconandcaption '選單樣式(圖示加文字)
.faceid = 263 '圖示代號
.shortcuttext = "ctrl+shift+s"
.onaction = "macro" '要執行的子程式
.begingroup = true'新增分割線
end with
end function
dim mycommandbar as commandbar'工具欄
dim topmenuitem as commandbarpopup '頂層選單
dim firstmenuitem as commandbarpopup'一級子選單
dim secondmenuitem as commandbarbutton'二級子選單
.position = msobartop 'msobarmenubar '工具欄的position
end with
'頂層選單commandbarpopup,不支援圖示(只有最後一級選單才支援圖示)
set topmenuitem = mycommandbar.controls.add(type:=msocontrolpopup)
with topmenuitem
.caption = topmenuname '頂層選單名
.tooltiptext = "topmenuitem tooltiptext" '選單提示文字
end with
'一級子選單commandbarpopup,不支援圖示(只有最後一級選單才支援圖示)
set firstmenuitem = topmenuitem.controls.add(type:=msocontrolpopup)
with firstmenuitem
.caption = "firstmenuitem(&f)" '一級選單名
.tooltiptext = "firstmenuitem tooltiptext"'選單提示文字
end with
'二級選單commandbarbutton,支援圖示(只有最後一級選單才支援圖示)
set secondmenuitem = firstmenuitem.controls.add(type:=msocontrolbutton)
with secondmenuitem
.caption = "secondmenuitem(&s)" '二級選單名
.tooltiptext = "secondmenuitem tooltiptext" '選單提示文字
.style = msobuttoniconandcaption'選單樣式(圖示加文字)
.faceid = 263 '圖示代號
.shortcuttext = "ctrl+shift+s"
.onaction = "macro" '要執行的子程式
.begingroup = true'新增分割線
end with
end function
建立自己的腳手架工具
常用的腳手架工具 yeoman 用於建立腳手架開發的工具，居於node.js開發的 基本使用 先全域性安裝yeoman 的i o工具yo 使用yarn安裝 yarn global add yo 使用npm安裝 npm install yo global 還需安裝對應的generator 使用yarn...
Excel VBA 詞根管理工具
資料倉儲的命名規範 俗話說無規矩不成方圓。我們在搭建資料平台的時候，需要先制定好各種規範，越早越好，並且不斷的監督大家是否按照約定執行。一旦大家自由發揮，想要再次統一或者重構就非常的困難。會浪費很大的人力成本和時間成本，因此在這裡總結一下資料倉儲的規範 關於詞根 詞根屬於數倉建設中的規範，屬於元資料...
使用nodejs建立自己的自動化工具
1.安裝nodejs環境 此處不是介紹nodejs,因此不介紹如何安裝 2.建立專案 建立專案資料夾,進入並執行npm init,如下圖 如下資訊是需要填寫的 123 4567 89package name jiaocheng version 1.0.0 0.1.0 description 自製自動...