在 VBA 中引用行名称
Reference a row name in VBA
我有一个简单的 VBA 脚本来根据另一个单元格的值隐藏/显示一行。但我似乎无法根据名称引用该行.. 只能根据行号(随着我添加其他内容而改变!)
If Not Intersect(Target, Range("CB10.2")) Is Nothing Then
Select Case Target.Value
Case Is = "Yes": Rows("36:36").EntireRow.Hidden = False
Case Else: Rows("36:36").EntireRow.Hidden = True
End Select
End If
我想做这样的事情但是得到一个 'Type missmatch':
If Not Intersect(Target, Range("CB10.2")) Is Nothing Then
Select Case Target.Value
Case Is = "Yes": Rows("CB10.3").EntireRow.Hidden = False
Case Else: Rows("CB10.3").EntireRow.Hidden = True
End Select
End If
有什么想法吗?
您不能按命名范围引用行,因此只需替换
Rows("CB10.3").EntireRow.Hidden
有
Range("CB10.3").EntireRow.Hidden
我有一个简单的 VBA 脚本来根据另一个单元格的值隐藏/显示一行。但我似乎无法根据名称引用该行.. 只能根据行号(随着我添加其他内容而改变!)
If Not Intersect(Target, Range("CB10.2")) Is Nothing Then
Select Case Target.Value
Case Is = "Yes": Rows("36:36").EntireRow.Hidden = False
Case Else: Rows("36:36").EntireRow.Hidden = True
End Select
End If
我想做这样的事情但是得到一个 'Type missmatch':
If Not Intersect(Target, Range("CB10.2")) Is Nothing Then
Select Case Target.Value
Case Is = "Yes": Rows("CB10.3").EntireRow.Hidden = False
Case Else: Rows("CB10.3").EntireRow.Hidden = True
End Select
End If
有什么想法吗?
您不能按命名范围引用行,因此只需替换
Rows("CB10.3").EntireRow.Hidden
有
Range("CB10.3").EntireRow.Hidden