Question

我正在尝试构建一个从命名区域读取单元格值的宏，然后通过添加前缀修改该值，然后将其传递给Range调用。

基本上，我有一个用于选择层的下拉列表，然后在执行宏时，它应该选择一个工作表，然后取消隐藏基于该范围的范围。

Dim rCell As Range
Dim StrSheetSelect As String
Set rCell = Range("ProjectTier")
Dim Tier As String
Dim rTier As Range


' Sheet 1 - Assess and Initiate

Set Tier = "AI+'rCell'"
Set rTier = Tier

StrSheetSelect = "1. Assess and Initiate"
Sheets(StrSheetSelect).Select
ActiveSheet.Range("Tier").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("Tier").AutoFilter Field:=1, Criteria1:="<>NA", Operator:=xlAnd

我在“设置层”功能上遇到“需要对象”错误。我对excel vba和vb非常不熟悉

谢谢！

Answer 1

我看到一些问题。首先，“Set”仅用于对象。在VBA中，字符串是内置类型，而不是对象。因此抛出错误的行应该开始：

Tier = "AI ...

然后RHS是一个文字字符串，但它看起来像是试图从rCell获取值。另外，要加入字符串，请使用“＆amp;”不是'+'。尝试像

这样的东西

Tier = "AI" & rCell.Value

然后将其转换为您需要的范围：

Set rTier = Range(Tier)

希望有所帮助

将字符串变量传递给MSExcel VBA

1 个答案: