如果combobox1 VALUE = combobox2列表中的项目,则返回错误

时间:2019-07-24 12:32:10

标签: excel vba combobox duplicates userform

我有一个用户窗体,上面有2个组合框。

-一个代表团队名称的下拉列表,即:团队1,团队2,团队3, -另一个组合框用作文本输入。

我想要一个VBA代码,按下操作按钮后,它将检查输入框的值,并将其与第一个组合框内的列表进行交叉引用。

-如果该框的值不在其中,则我希望它执行索引匹配功能,该功能将更改某些页面上的列表值并重新加载用户窗体。 -如果该框的值在那里,我希望它在消息框“不能更改团队,重复或其他内容”时提示用户。

我尝试了变量,对于每个语句和列表索引。到目前为止没有运气。

我已经对代码进行了很大的更改,以至于我没有任何半有效的示例,但是我将添加它(我知道它已损坏),但是我将尝试传达我想发生的事情:

键: Combobox1 = Select_Team(下拉列表) Combobox2 = Change_Team(输入)


For Each item In Select_Team

If Select_Team.listindex = Change_Team.Value Then
MsgBox "Duplicate"

Else:
MsgBox "This was changed"

'(This code works, I just need to implement the IF function)
Evaluate("=INDEX('Teams'!B2:S21,2,MATCH(""" & Select_Team.Value & """,'Teams'!B3:S3,0))") = Me.Change_Team.Value

Unload Me
Edit_Teams.Show

我让它工作了,但是我无法标记重复项。我最终有了一个组合框:

  • 第1队
  • 第1队
  • 第1队
  • 第4队
  • 第5队
  • 第6队
  • 第7队

团队是从单元格值的另一页中拉出来的,因此这些项目是“硬编码的”,因此不能被listindex -1删除。

仅当Change_Team值不在下拉组合框中时,我希望索引匹配函数更改组名(确实如此)。

0 个答案:

没有答案