excel - 在同一工作簿中激活工作表时下标错误 9
问题描述
运行以下代码时下标错误 9。代码试图激活工作表“摘要转换”,但抛出错误 9。我确实尝试将工作表更改为其他工作表,仍然是同样的错误。
请帮助伙计们!
Private Sub HideUnhideConvertedSheets_Click()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:="gato"
ActiveSheet.Unprotect Password:="GORDO"
If (Range("CP").Value = 0) Then
Sheets("Summary Converted").Visible = True
Sheets("Services Converted").Visible = True
Sheets("Proposal Converted").Visible = True
Sheets("Revenue & Collections Converted").Visible = True
Sheets("Unisys HW SW Converted").Visible = True
Sheets("Third Party Converted").Visible = True
Sheets("Other Services & OC Converted").Visible = True
Sheets("Cash Flow Converted").Visible = True
Sheets("Annual P&L Converted").Visible = True
Sheets("Travel Converted").Visible = True
Sheets("CapEx Converted").Visible = True
Sheets("Summary Converted").Activate
Range("CP").Value = 1
HideUnhideConvertedSheets.Caption = "Hide Converted Sheets"
Else
Sheets("Summary Converted").Visible = False
Sheets("Services Converted").Visible = False
Sheets("Proposal Converted").Visible = False
Sheets("Revenue & Collections Converted").Visible = False
Sheets("Unisys HW SW Converted").Visible = False
Sheets("CapEx Converted").Visible = False
Sheets("Third Party Converted").Visible = False
Sheets("Other Services & OC Converted").Visible = False
Sheets("Cash Flow Converted").Visible = False
Sheets("Annual P&L Converted").Visible = False
Sheets("Travel Converted").Visible = False
Range("CP").Value = 0
HideUnhideConvertedSheets.Caption = "Show Converted Sheets"
End If
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=_True,
Password:="GORDO"
ActiveWorkbook.Protect Password:="gato"
End Sub
解决方案
好吧,调用Sheets("Summary Converted").Visible = True
工作正常,所以尝试使用它而不是AcitveWorkbook.Sheets("Summary Converted")
(不带ActiveWorkbook
)。
另一个建议是使用Worksheets
而不是Sheets
. Sheets 是工作表和图表工作表的集合。
推荐阅读
- c# - 如何从字符串中获取“标签”?
- python - 将函数的输出保存到列表中的 Python 函数
- java - Blue Pelican Java - 练习 19.18
- azure-resource-manager - Azure 资源管理器模板:有没有办法获取资源组下资源类型的所有 resourceId/resourceName?
- r - 提取两个字符之间的字符 R
- python-3.x - pyaudio 回调只调用一次
- java - 如何将对象从一个 JpaRepository 转换为另一个 JpaRepository
- java - 在 arrayList 中搜索特定输入以生成更小的 arrayList
- python - Facebook API 返回对象 ID 的列表
- java - 我正在为我的应用程序构建 googlemap 跟踪,现在我被困了五天多,我想,,简单的问题