Question

如何在VBA中判断文本框输入的是否是数字

如题，我在一个窗体里，添加了81个textbox，现要求其中的第1-80个textbox只能在运行时输入的是数字，（不管正负），如果输入的不是数字，则用msg报错，退出sub，而第81个无所谓，该怎么设置代码？

Answer 1

81个textbox 弄成控件数组textbox()，然后
for i=0 to 79
    if not IsNumeric(textbox(i).text) then
        msgbox "第" & i & ”个textbox框输入非数字"
        exit for
    end if
next

Answer 2

用正则表达式