点击combobox控件的事件

我有3000张发票,其中有产品的细节和经销商的名字是可用的。 SAP的销售数据已经出口到excel进行分析。 但不幸的是,在每张发票的导出数据中都找不到经销商的名称。 因此,我已决定将发票的名称与每张发票结合起来。 为此,我将一个combobox控件embedded到包含销售数据的工作表中,我已经加载了所有代理商的名称。

在一个单元格的组合控制的左边,单元格(1,1)input发票号码,并从组合控件的发票硬拷贝中select相应的经销商,以便点击经销商名称姓名将打印在下一列的发票号码中。 为此,我在Combobox1_ Click事件中写入了以下macros。

Sub Combobox1_Click() For i = 5 to 3000 If cells(1,1).value = Cells(i,4).value then Cells(i,5).value = Combobox1.Text End if Next 

只要我为每个点击事件select不同的经销商,这工作正常。 但是,当我连续两次select相同的经销商时,点击事件不会被触发,经销商的名字也不会被打印。

为了清楚地说明发票1233,我已经select了经销商X并且姓名X打印在发票1233上。下一张发票1244也属于经销商X,并且在单元(1,1)中input1244后,如果我select了拖拉机X,名称X不会打印发票1244。

请告诉我解决问题

点击事件没有被触发,因为控件没有检测到变化。 您可以通过在点击事件结束时添加以下代码来更改控件的显示值:

 ComboBox1.Text = "Select Dealer" 

或者只有当您离开控件时,通过添加以下事件来更改combobox显示文本:

 Private Sub ComboBox1_LostFocus() ComboBox1.Text = "Select Dealer" End Sub