vba - 工作表名称是一个数字，我如何在vba中调用它？

Question

我有名为 1 的工作表2 3等等。
这些数字列在 H 列的一张纸上。

For i = 5 To LastRow
    If Range("J" & i).Value = "NOT OK" Then
       Sheets(Range("H" & i).Value).Tab.Color = RGB(255, 0, 0)
    End If
Next i

这会尝试将 sheet(1) 称为 1 作为第一张工作表。但是 1实际上是(当前)sheet(3)。

我尝试使用 "让 Excel 将其作为字符串读取，但它也失败了。

Sheets(Chr(34) & Range("H" & i).Value & Chr(34)).Tab.Color = RGB(255, 0, 0)

有什么建议么？

Answer 1

尝试

Worksheets(CStr(1))

CStr 将转换为字符串，因此您按名称引用而不是索引。

或使用 .Text属性(property)

Sheets(Range("H" & i).Text)