Question

我有一组输入需要用户在宏运行之前设置。输入存储在稍后在宏中调出的各个单元格中。输入将是一些数字，单词或标点符号（例如： - ，*）。什么时候我把“。”进入输入框，代码停止并突出显示输入框代码。是否有什么东西（if语句，输入框上的不同类型）可以处理任何被抛出的东西？

Dim AN As Range
Dim AO As Range
Dim AP As Range

    Set AN = Application.InputBox(PROMPT:="ENTER SEPERATOR AFTER BLOCK/ARRAY NUMBER", Type:=2)
    Range("AN4") = AN
    Set AO = Application.InputBox(PROMPT:="ENTER SEPERATOR AFTER INVERTER NUMBER", Type:=2)
    Range("AO4") = AO
    Set AP = Application.InputBox(PROMPT:="ENTER SEPERATOR AFTER COMBINERBOX NUMBER", Type:=2)
    Range("AP4") = AP

Answer 1

将您的内容更改为以下内容，对我有用：

Set AN = Range("A4")
AN.Value = Application.InputBox(PROMPT:="ENTER SEPERATOR AFTER BLOCK/ARRAY NUMBER", Type:=2)

excel vba输入框，可以接受数字，特殊字符等

1 个答案: