Excel VBA-如何验证输入是否在特定列中

我有一个脚本要求一个起始单元格

Set myCell = Application.InputBox( _
prompt:="Choose a starting field", Type:=8)

If myCell = Null Or myCell = "" Or Len(myCell.Value) < 3 Or Len(myCell.Value) > 12 Then
    MsgBox "Incorrect cell value"
    Exit Sub
    Else

Set myCell=Application.InputBox（_
提示：=“选择起始字段”，类型：=8）
如果myCell=Null或myCell=”“或Len（myCell.Value）<3或Len（myCell.Value）>12，则
MsgBox“单元格值不正确”
出口接头
其他的

因此，我对给定单元格的值进行了这些检查，以便在验证未通过时脚本不会运行。我还需要验证，以检查特定列中的单元格（在我的示例中为D）是否正确

因此，我需要验证说明“是D列中的选定单元格吗？”如果是，则继续，如果否，则停止

我一直在谷歌上搜索，试图找到这种比较，但我就是没能给出一个好的查询

---

感谢您的帮助。谢谢

在里奇·霍尔顿的帮助下，我找到了解决办法

为了检查输入单元格是否位于您希望输入的列中，可以使用以下语法：

If myCell.Column <> 4 Then
...
End If

如果是myCell.第4列，则
...
如果结束

---

其中4在这种情况下等于D列。（A列=1，B列=2等等…

在Rich Holton的帮助下，我找到了解决方案

为了检查输入单元格是否位于您希望输入的列中，可以使用以下语法：

If myCell.Column <> 4 Then
...
End If

如果是myCell.第4列，则
...
如果结束

---

其中4在这种情况下等于D列。（A列=1，B列=2等等…

myCell是一个范围对象。范围对象具有许多属性。在这些属性中可以看到Column属性。@谢谢。我使用了myCell.Column 4作为一种方式来判断所选单元格是否在列D中，并且它似乎正在工作。myCell是一个范围对象。范围对象具有许多属性。在这些属性中可以看到Column属性。@谢谢。我使用myCell.Column 4作为一种方式来判断所选单元格是否在D列中，并且它似乎正在工作。