VBA入门的例子1PrivateSubWorkbookOpen()OpenMyMenuEndSubPrivateSubOpenMyMenu()OnErrorResumeNextMenuBars("MyMenu").DeleteMenuBars.Add("MyMenu")Sheets("sheet1").SelectMenuBars("MyMenu").Menus.AddCaption:="DataBase"MenuBars("MyMenu").Menus

题目详情

VBA入门的例子1
Private Sub Workbook_Open()
OpenMyMenu
End Sub
Private Sub OpenMyMenu()
On Error Resume Next
MenuBars("MyMenu").Delete
MenuBars.Add ("MyMenu")
Sheets("sheet1").Select
MenuBars("MyMenu").Menus.Add Caption:="DataBase"
MenuBars("MyMenu").Menus("DataBase").MenuItems.Add Caption:="PrimaryKey",OnAction:="PrimaryKey"
MenuBars("MyMenu").Menus("DataBase").MenuItems.Add Caption:="DataChangeRight",OnAction:="DataChangeRight"
MenuBars("MyMenu").Menus("DataBase").MenuItems.Add Caption:="DataChangeLeft",OnAction:="DataChangeLeft"
MenuBars("MyMenu").Menus("DataBase").MenuItems.Add Caption:="DataFormatyymmdd",OnAction:="DataFormatyymmdd"
MenuBars("MyMenu").Menus("DataBase").MenuItems.Add Caption:="DataFormatyyyy/mm/dd",OnAction:="DataFormatyymmdd2"
MenuBars("MyMenu").Activate
End Sub

▼优质解答

答案和解析

不错!

看了 VBA入门的例子1Priva...的网友还看了以下：

下列判断正确的个数有:①若a,b同号,则a+b=|a|+|b|②若a,b异号,则a,b=|a|-| 　2020-04-27 …

1、已知a,b,c互不相等求2a-b-c/(a-b)(b-c)+2b-c-a/(b-c)(b-a) 　2020-05-16 …

VBA入门的例子1PrivateSubWorkbookOpen()OpenMyMenuEndSub 　2020-05-17 …

已知a+b+c=0,试求a^2/(2a^2+bc)+b^2/(2b^2+ac)+c^2/(2c^2 　2020-06-11 …

当a、b满足什么条件时，下列关系成立：（1）|a+b|=|a|+|b|；（2）|a+b|=||a| 　2020-06-12 …

.请教A+B=A(B^T)B+A(A^T)B能写成A+B=AB(B^T)+(A^T)AB.请教A+ 　2020-06-12 …

第一题令A={a,b,c,d,e},B={a,b,c,d,e,f,g,h}.求a)A∪Bb)A∩B 　2020-06-17 …

a^2-b^2+4b =(a+b)*(a-b)+4b =2(a-b)+4b =2(a+b) =4 　2020-06-27 …

化简：a²-b²／a+b,小明和小英给出了两种不同的解法：小明：a²-b²／a+b=(a+b﹚﹙a 　2020-07-05 …

公式a*b/(a-1)还能解吗公式a*b*(a-1)=a*b*a-a*b这个成立,公式a*b/(a 　2020-07-17 …