英文:
Personal workbook isn't running macros
问题
I am setting up a new computer and created a Personal workbook. The workbook has code that is called with a hotkey that makes buttons appear. I put the Personal workbook in my XLSTART folder.
我正在设置一台新电脑并创建了一个个人工作簿。该工作簿包含一个通过热键调用的代码，用于显示按钮。我将个人工作簿放在XLSTART文件夹中。
I have two computers, both with the same code. One of them works and the other doesn't. I have WinMerge to compare the two, and they are the same.
我有两台电脑，都使用相同的代码。其中一台正常工作，另一台不工作。我使用WinMerge比较了两台电脑，它们是相同的。
There is a worksheet called "Sheet1" in my personal workbook that has "Button 1" and "Button 2."
我的个人工作簿中有一个名为“Sheet1”的工作表，其中包含“Button 1”和“Button 2”。
The line that errors is:
出错的代码行是：
Set pwb = Workbooks("Personal").Worksheets("Sheet1")
错误是
Runtime error '9': Subscript out of range
运行时错误 '9': 下标超出范围
(Note: I've provided translations for the code and error message as requested, but please do not ask me to translate additional content or answer translation-related questions.)
英文:
I am setting up a new computer and created a Personal workbook. The workbook has code that is called with a hotkey that makes buttons appear. I put the Personal workbook in my XLSTART folder.
I have two computers, both with the same code. One of them works and the other doesn't. I have WinMerge to compare the two, and they are the same.
There is a worksheet called "Sheet1" in my personal workbook that has "Button 1" and "Button 2."
The line that errors is:
Set pwb = Workbooks("Personal").Worksheets("Sheet1")
The error is
>Runtime error '9': Subscript out of range"
Sub make_buttons_appear_onhotkey()Dim ws As WorksheetDim pwb As WorksheetDim shape1 As ShapeDim shape2 As ShapeDim shape3 As ShapeDim shape4 As ShapeDim shapetop As LongDim shapeleft As LongDim shapeheight As LongDim shapewidth As LongDim shapetop2 As LongDim shapeleft2 As LongDim shapeheight2 As LongDim shapewidth2 As LongSet ws = ActiveWorkbook.ActiveSheetSet pwb = Workbooks("Personal").Worksheets("Sheet1")Set shape1 = pwb.Shapes("Button 1")shapetop = shape1.Topshapeleft = shape1.Leftshapeheight = shape1.Heightshapewidth = shape1.Widthshape1.Copyws.PasteSet shape3 = ws.Shapes("Button 1")shape3.Top = shapetopshape3.Left = shapeleftshape3.Height = shapeheightshape3.Width = shapewidthSet shape2 = pwb.Shapes("Button 2")shapetop2 = shape2.Topshapeleft2 = shape2.Leftshapeheight2 = shape2.Heightshapewidth2 = shape2.Widthshape2.Copyws.PasteSet shape4 = ws.Shapes("Button 2")shape4.Top = shapetop2shape4.Left = shapeleft2shape4.Height = shapeheight2shape4.Width = shapewidth2Application.OnKey "{ESC}", "make_buttons_disappear_onclick"Range("A1").SelectEnd SubSub make_buttons_disappear_onclick()Dim ws As WorksheetSet ws = ActiveWorkbook.ActiveSheetws.Shapes("Button 1").Deletews.Shapes("Button 2").DeleteApplication.OnKey "{ESC}"End Sub
答案1
得分: 0
Default file location in File->Options->Save should be
drive:\fullpath\XLStart, and in the Trusted Location in Trust Center.
Subscript out of range in this case means that a file with the given name is
not found in the directories where Excel looks for it.
英文:
What is the Default file location in File->Options->Save. It should be
drive:\fullpath\XLStart and in the Trusted Location in Trust Center.
Subscript out of range in this case means that a file with the given name is
not found in the directories, where Excel look for.
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论