我已经使用名称管理器创建了一个命名范围。它被称为Vol_Check。它的作用域为Workbook。
如果它的作用域是工作簿,为什么我在来自其他工作表或ThisWorkbook或模块的VBA代码中看不到它。即使我尝试直接引用它,它也不会起作用。这是一个我不能工作的代码示例。
Private Sub CommandButton1_Click()
If ThisWorkbook.Sheets("sheet1").Range("Vol_Check").Value <> 1 Then
MsgBox ("Some message ")
End If
End Sub发布于 2016-08-03 01:43:45
如果您使用的是命名范围"Vol_Check",则使用以下代码从命名范围内的某个单元格中读取值。
在本例中,假设命名区域包含区域B2:B2,则代码行Range("Vol_Check")(1, 1)引用单元格B2
Private Sub CommandButton1_Click()
' just for debug - shows the first row and first column in the Named Range
MsgBox Range("Vol_Check")(1, 1)
If Range("Vol_Check")(1, 1) <> 1 Then
MsgBox ("Some message ")
End If
End Sub发布于 2016-08-03 01:59:07
尝试使用Worksheet.Evaluate:
Private Sub CommandButton1_Click()
If ThisWorkbook.Sheets(1).Evaluate("Vol_Check").Value <> 1 Then
MsgBox "Some message "
End If
End Sub发布于 2016-08-03 03:41:33
问题解决了。事实证明,我没有使用名称管理器工具正确定义命名范围。尽管我在作用域中将它标记为“Workbook”,但我的另一个错误是把它搞乱了。谢谢大家。富足
https://stackoverflow.com/questions/38726977
复制相似问题