EXCEL VBA 多个If判断语句简化的问题

2024-11-30 19:13:31

推荐回答（3个）

回答1：

建议改用ComboBox控件代替TextBox控件，将ComboBox控件的RowSource属性链接到J2:J30，这样的话，用户不用手工输入姓名了，只要在下拉列表中选择就行了。
当用户选择了ComboBox中的姓名以后，将触发ComboBox_Change事件，可将原来需要根据姓名进行的处理代码放置在这个事件过程中。

回答2：

dim st
st=join(application.transpose(range("j2").resize(28,1)).vlaue,",")
if instr(st,textbox1.text) then
有该姓名
else
MsgBox "技师姓名出错请重新输入"
Exit Sub
End If

回答3：

你是要判断TextBox1里输入的内容是否在J2:J30存在吗？是的话做个循环不就好了

用

For Each i in Range("J2:J30").value
    if TextBox1.value=i then
        XXXXXX
    end if
next i