将字符串变量传递给MSExcel VBA
将字符串变量传递给MSExcel VBA
提问于 2015-08-04 03:26:06
我正在尝试构建一个宏，它将从一个命名的范围读取一个单元格值，然后通过添加一个前缀来修改这个值，然后将它传递给一个范围调用。
基本上，我有一个下拉列表，用来选择一个层，然后在宏执行时，它应该选择一个工作表，然后在此基础上取消隐藏一个范围。
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和vb非常陌生。
谢谢!
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-08-04 03:45:09
我看到了一些问题。首先，"Set“仅用于对象。在VBA中，String是内置类型，而不是对象。因此，抛出错误的行应该启动：
Tier = "AI ...然后RHS是一个文字字符串，但它看起来像是试图从rCell中获取值。此外，要连接字符串，请使用'&‘not '+’。试着做些像
Tier = "AI" & rCell.Value然后，要将其转换为一个范围，您需要如下所示：
Set rTier = Range(Tier)希望这有帮助
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31800152
复制相关文章
相似问题
腾讯云开发者
