Question

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

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

因此，我对给定单元格的值进行了这些检查，因此如果验证没有通过，脚本将无法运行。我需要的是验证以检查某列中的单元格（在我的情况下为D）。

所以我需要验证说＆＃34;是D列中的选定单元？＆＃34;如果是，请继续，如果没有停止。

我无情地用Google搜索试图找到这种比较，但我只是没有给它一个好的查询。

感谢任何帮助。感谢

Answer 1

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

为了检查输入单元格是否在您想要的列中，可以使用以下语法：

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

在这种情况下，4等于D列。（A列= 1，B列= 2，依此类推......）

Excel VBA - 如何验证输入是否在某个列中

1 个答案: