VBA获取错误Worksheet类的活动方法失败

Question

＆lt; p＆gt;我试图寻找答案，但到目前为止我找不到任何有用的东西。我有一些适用于某些人的代码，在运行此代码时不适用于其他人（使用相同版本的Excel）：＆lt; / p＆gt; ＆lt; pre＆gt;＆lt; code＆gt; Private Sub Workbook_Open（） Application.ScreenUpdating = False Application.ExecuteExcel4Macro“SHOW.TOOLBAR（”“Ribbon”“，False）” Application.DisplayFormulaBar = False 表（“折扣”）。激活 ActiveSheet.Unprotect密码：=“01” ActiveSheet.Range（ “G14：O15，O18：O19，D29：I29，D31：I31，D33：I33，D35：I35，D37：I37”）clearContents中。 ActiveSheet.Shapes（“Option Button 31”）。ControlFormat.Value = xlOn OptionButton31_Click Application.ScreenUpdating = True 结束子 ＆LT; /代码＆GT;＆LT; /预＆GT; ＆lt; p＆gt;错误显示在Sheets。（“折扣”）。激活＆lt; / p＆gt; ＆lt; p＆gt;工作表的拼写是正确的。我也试过＆lt; / p＆gt; ＆lt; pre＆gt;＆lt; code＆gt; Private Sub Workbook_Open（） ActiveWorkbook.Unprotect密码：=“01” Application.ScreenUpdating = False Application.ExecuteExcel4Macro“SHOW.TOOLBAR（”“Ribbon”“，False）”     Application.DisplayFormulaBar = False     ThisWorkbook.Sheets（ “折扣”）。激活     ActiveSheet.Unprotect密码：=“01” ActiveSheet.Range（ “G14：O15，O18：O19，D29：I29，D31：I31，D33：I33，D35：I35，D37：I37”）clearContents中。 ActiveSheet.Shapes（“Option Button 31”）。ControlFormat.Value = xlOn OptionButton31_Click ActiveWorkbook.Protect密码：=“01” Application.ScreenUpdating = True ＆LT; /代码＆GT;＆LT; /预＆GT; ＆lt; p＆gt;仍然收到错误。我很难搞清楚因为它每次都适合我，但不适合其他人。＆lt; / p＆gt;

Answer 1

解决方案1：

而不是- (NSString *)tableView:(UITableView *)tableView titleForHeaderInSection:(NSInteger)section { return [UILocalizedIndexedCollation currentCollation].sectionTitles[section]; } 写Sheets.("Discount").Activate，它应该有效。例如，删除点。

解决方案2：

如果这不起作用，请尝试确保此工作表可见。例如。在行之前写入错误如下：

Sheets("Discount").Activate

一般情况下，在VBA中尽量避免Sheets("Discount").Visible = True，ActiveSheet，ActiveWorkbook -  How to avoid using Select in Excel VBA

正如@Mat＆＃39; Mug所述，当您引用工作表时，请考虑使用ActiveCell，因为Worksheets("Discount").Visible集合也包含Sheets。

Answer 2

尝试使用：

表（＆＃34;折扣＆＃34）。可见 表（＆＃34;折扣＆＃34）。选择

如果这不起作用，请告诉我，我会看看是否还有其他我可以推荐的内容。如果您记下任何错误消息，这可能会有所帮助。另外，尝试按照上面提到的那个人没有关闭屏幕更新来运行它 - 然后你会看到是否有特定的动作让它摔倒。