排除多个组合框中的双重输入,但允许除第一个之外的空框

时间:2019-07-17 03:59:52

标签: excel vba

我有3个comboBoxes,它们具有相同的输入列表 在这些框中,不允许双打作为答案。允许2个没有输入的框,但是要注意的是2个框具有相同的值(空白),因此我想排除空框(无输入)来检查双打。

我不是程序员,剪切粘贴是我的工具。

代码: '检查输入的3x ComboBox是否不包含双打

If Trim(Me.ComboBox1.Value) = (Me.ComboBox2.Value) Then
 Me.ComboBox1.SetFocus
  MsgBox "Duplicate input in box 1 a 2"
 Exit Sub
End If

If Trim(Me.ComboBox1.Value) = (Me.ComboBox3.Value) Then
 Me.ComboBox1.SetFocus
  MsgBox "Duplicate input in box 1 a 3"
 Exit Sub
End If

If Trim(Me.ComboBox2.Value) = (Me.ComboBox3.Value) Then
 Me.ComboBox3.SetFocus
  MsgBox "Duplicate input in box 2 a 3"
 Exit Sub
End If

当框2和3留空时,不应有重复输入的消息

1 个答案:

答案 0 :(得分:0)

如何在您的IF语句中添加第二个条件:

If Trim(Me.ComboBox2.Value) = (Me.ComboBox3.Value) and (Me.ComboBox3.Value)<>"" Then