特定数字格式的VBA输入框数据验证

Question

我正在寻找在Macro中验证输入的方法，我希望我的输入仅限于XXXXXX-XXX（例如，465824-456）。这是我尝试过的代码（改编自数据验证中的录制宏）：

Lot = Application.InputBox(prompt:="Enter Lot ID to be put into Storage :", Type:=0)

If Lot = "=AND(ISNUMBER(LEFT(Lot,6)+0),MID(Lot,7,1)=""-"",ISNUMBER(RIGHT(Lot,3)+0))" Then

但它不起作用......

Answer 1

您可以使用“赞”声明

If Lot Like "[0-9][0-9][0-9][0-9][0-9][0-9]-[0-9][0-9][0-9]" Then