Tag: 菜单

自定义右键单击菜单 – OnAction可以直接使用，而不是按下button: 我在Excel中创build一个由各种子菜单组成的自定义菜单。这是为了挑选各种机械物品，并有大约250个可能的结果。无论如何，我已经build立了菜单并希望它能够在使用菜单时将.Captioninput到单元格中。我已经把.OnAction放到了相关的button中，但不幸的是.OnAction在打开文件时激活，而不是在button被点击时激活。就这样，所有250多个这样的元素都快速地进入同一个单元格。快速编辑 – 重要的是朝向BuildMenus的底部，在那里.OnAction调用函数AddStuff。我知道这是在Workbook_Activate上运行的，这就是为什么它会立即运行，但我在网上看到的其他地方也是这样。 Private Sub Workbook_Activate() BuildMenus End Sub Private Sub BuildMenus() 'Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim AmountOfCats As Integer Dim ThisIsMyCell As String ThisIsMyCell = ActiveCell.Address 'this is where we would set the amount of categories. At the moment we'll have […]

Excel VBA在单元格内编辑时执行自定义菜单项: 在单元内按照以下方式添加了自定义右键单击菜单项到上下文菜单： Private Sub AddTheMenuItem(myCommandBar As Office.CommandBar, caption As String, action As String) Dim NewControl As CommandBarButton Set NewControl = myCommandBar.Controls.Add(Type:=msoControlButton, temporary:=True) With NewControl .caption = caption .OnAction = action .Picture = Application.CommandBars.GetImageMso("WrapText", 16, 16) .Style = msoButtonIconAndCaption End With End Sub 菜单项显示正常，但是没有任何一个执行。我只是得到一个“平”的声音。我尝试过使用peekmessage玩，我可以看到右键单击调出菜单，而不是左键单击select菜单项。看起来这个消息不会传递给正在等待的任何VBA代码。我想，我试图达到这个目标的方式是行不通的，但是我希望得到任何有关如何使其工作的build议。对于我的应用程序，在单元格内为用户提供适当的菜单项很重要。先谢谢你， AZ

如何“保存”自定义function区？: 我为一个特定的Excel 2007工作簿创build了多个macros，我们保留在SharePoint网站上。我也为我们运行的每个macros创build了一个自定义的QAT。当我保存工作簿并重新检入时，下一个打开工作簿的人将无法看到我创build的QAT。我已经在VB编辑器中将所有macros保存为特定工作簿的模块。任何帮助将不胜感激！

在复制工作簿后，Excel菜单被禁用: 更新：问题似乎与加载项的用户窗体有关。我的解决方法是使用.SaveAs，closures复制的工作簿，卸载表单，然后重新打开复制的工作簿。任何想我做错了什么？我有一个VBA插件，有一个简单的例程，打开一个工作簿，使用.SaveAs来创build一个副本，然后结束。复制的工作簿保持打开状态，看起来没问题，但是所有的Excel菜单都是禁用的。如果我切换到另一个工作簿并返回，菜单似乎被重置/启用。有关如何解决此问题的任何想法？这是我的菜单代码： Public Function fxCreateMenu() As Integer Dim cbControl As CommandBarControl, bControlExists As Boolean On Error Resume Next With Application.CommandBars("Worksheet Menu Bar") .Visible = True '\Check if Menu is already loaded For Each cbControl In .Controls If cbControl.Caption = gsMenuName Then bControlExists = True Exit For End If […]

VBA，Excel：可以将.OnAction值设置为ThisWorkbook中的Public Sub: VBA天才：问题1：是否可以将菜单选项的.OnAction值设置为ThisWorkbook中的Public Sub，或者必须将子菜单中的菜单选项设置为模块？这工作：ViewTextFile（）是一个模块中的公共子 .Controls(strMenuItem).OnAction = "'ViewTextFile """ & strMenuItem & """'" 我想将该子移动到ThisWorkbook ，所以值变成这样： .Controls(strMenuItem).OnAction = "'" & ThisWorkbook.Name & "!ViewTextFile """ & strMenuItem & """'" 问题2：如果＃1的答案是肯定的，那么在.OnAction命令中获得对“ThisWorkbook”的引用的语法是什么？请注意，参数strMenuItem必须包含在值中（如在“ViewTextFile my_file.txt”中）。我已经尝试了以上的许多变化，但没有成功。谢谢你，VBA天才！

如何启用Excel菜单中的菜单和工具选项卡: 我正在使用Excel 2007.我无法在菜单上看到菜单和工具。我想激活分析工具库。我点击Excel图标（左上angular），然后select，然后加载并激活分析工具库。但是，菜单和工具菜单中的任何位置都无法看到。我在互联网上search了很多，但找不到任何解决scheme。所以，我有三个问题（都是一样的） – 如何启用菜单和工具选项 – 我如何访问分析工具库并使用它（虽然我从选项中激活它，但我无法在function区上的任何位置find它）任何想法？

VBA，cmdBarButton不执行整个Sub: 由于某种原因，当我的菜单button“P Wave”被点击时， Sub Main()并没有完全执行。但是，如果我用F5编辑器手动执行Sub Main() ，它应该像它应该那样工作。就像当我点击我的“P Wave”button时，只会Call updateCell执行。有人可以帮忙解释一下吗？这很混乱。下面是我在模块1 Private Sub Workbook_Open（）中的代码 Private Sub Main() 'Run all neccessary Subs to process spreadsheet Call parseCSV Call resizeColumns Call updateCell Call hideColumns End Sub Private Sub hideColumns() 'hide uneccessary columns ActiveSheet.Range("E:F,L:V,X:AW,AY:BD,BI:BK,BM:CB,CF1").EntireColumn.Hidden = True End Sub Private Sub resizeColumns() 'resize cells to fit data […]