VBA Excel Combobox问题

我试图做一个应用程序，让您更新使用combobox的客户供应商的详细信息。

看这个截图的演示。

在combobox中select供应商（法语Fournisseur ）时，我希望能够：

1. 在combobox的字段中显示供应商的详细信息
2. 更改combobox上的字段（例如地址）并将其写回到表单中

这里是我的代码来初始化用户：

Private Sub UserForm_Initialize() 'initialisation des variables Ligne = 2 'Affectation du numéro de colonne à 2 car premiere donnée 'On réalise une boucle qui va charger les noms des régions dans la liste déroulante Sheets("Fournisseurs").Select Do While Cells(Ligne, 1).Value <> "" 'Tant qu'il ya des valeurs dans la colonne 1, on charge les noms du fournisseur FormModif_Fournisseur.cboNom.AddItem Cells(Ligne, 1).Value Ligne = Ligne + 1 'On incrémente le numéro de ligne afin de passer à la ligne suivante Loop End Sub 

我想要做我所要求的，我可能需要使用这样的代码：

 Private Sub cboNom_Change() // Do some stuff! End Sub 

谢谢

Answer 1

假设您的数据在A2:A4 ，如下所示：

 1 Nom Adresse Telephone Fax 2 Carrefour 1, Gare du Nord 111 222 333 01 02 03 3 Gandi 1, rue de la croix 444 555 666 04 05 06 4 Hermes 1, Champs Elysees 777 888 999 07 08 09 

我也有一个用户FormModif_Fournisseur （ FormModif_Fournisseur ），看起来像这样：

我使用s / sheet上的ActivXbutton启动表单：

 Private Sub CommandButton1_Click() FormModif_Fournisseur.Show End Sub 

下面的代码现在在UserForm 。 这是我的标签模式：

• cbNom =供应商的combobox
• tbAddress =地址字段
• tbTel =电话字段
• tbFax =传真字段
• btnSave =保存button
• btnCancel =取消button

~~~>在启动时填充combobox

 Private Sub UserForm_Initialize() Dim suppliers As Range Set suppliers = Worksheets("Sheet1").Range("A2:A" & Worksheets("Sheet1").Range("A2").End(xlDown).Row) Me.cbNom.MaxLength = suppliers.Count Me.cbNom.List = suppliers.Value End Sub 

~~~>根据供应商名称提取地址，电话和传真

 Private Sub cbNom_Change() Dim data As Range Set data = Worksheets("Sheet1").Range("A2:D" & Worksheets("Sheet1").Range("A2").End(xlDown).Row) Me.tbAddress = WorksheetFunction.VLookup(Me.cbNom.Value, data, 2, False) Me.tbTel = WorksheetFunction.VLookup(Me.cbNom.Value, data, 3, False) Me.tbFax = WorksheetFunction.VLookup(Me.cbNom.Value, data, 3, False) End Sub 

~~~>根据供应商名称保存对地址，电话和传真的更改

 Private Sub btnSave_Click() Dim suppliers As Range, rowMatch As Integer //Set reference to suppliers Set suppliers = Worksheets("Sheet2").Range("A2:A" & Worksheets("Sheet1").Range("A2").End(xlDown).Row) //Get the row of the supplier in the s/sheet rowMatch = WorksheetFunction.Match(Me.cbNom.Value, suppliers, 0) + 1 //Write data to appropriate cell on s/sheet With Worksheets("Sheet2") .Range("B" & rowMatch) = Me.tbAddress .Range("C" & rowMatch) = Me.tbTel .Range("D" & rowMatch) = Me.tbFax End With End Sub 

~~~>取消userform

 Private Sub btnCancel_Click() Me.Hide End Sub 

Answer 2

下面的代码尝试

a）通过Array方法填充Combobox来提高性能，从而通过AddItem避免循环（ListBoxes和ComboBoxes是纯数组）。 此外，这避免了为控制添加不超过10列的限制。 该解决scheme避免了不必要的和较慢的WorksheetFunction匹配。

b）使用一个doFillCboNom子过程来简化这个过程，就像通过btnActualize_Click事件一样被UserForm_Initialize过程调用。

Bonne Chance！

 Option Explicit Dim rngData As Range Private Sub UserForm_Initialize() ' call sub filling ComboBox cboNom doFillCboNom End Sub Private Sub UserForm_Layout() ' Format ComboBox cboNom Me.cboNom.ColumnCount = 2 ' two columns Id + Name Me.cboNom.ColumnWidths = "30;80" ' ColumnWidths in Points End Sub Private Sub btnSave_Click() Dim ligne As Long ' no action if no data in comboBox If Me.cboNom.ListCount < 1 Then Exit Sub ' a) unsorted combo ' get line nr changing the zero based ListIndex of ComboBox cbNom ' to one base ligne = Me.cboNom.ListIndex + 1 ' b) if you use a sorted Combo, replace above code with the following line: ' ligne = getLigne() ' Save data to sheet rngData(ligne, 2).Offset(0, 1).Value = Me.tbAddress.Text rngData(ligne, 2).Offset(0, 2).Value = Me.tbTel.Text rngData(ligne, 2).Offset(0, 3).Value = Me.tbFax.Text End Sub Private Sub btnActualize_Click() doFillCboNom End Sub Private Sub cboNom_Change() Dim ligne As Long ' no action if no data in comboBox If Me.cboNom.ListCount < 1 Then Exit Sub ' a) unsorted combo ' get line nr changing the zero based ListIndex of ComboBox cbNom ' to one base ligne = Me.cboNom.ListIndex + 1 ' b) if you use a sorted Combo, replace above code with the following line: ' ligne = getLigne() ' Fill data ' with line nr refer to the datafield line column B and ' get the wanted sheet values 1,2,3 cells to the right Me.tbAddress.Text = rngData(ligne, 2).Offset(0, 1).Value ' Column C Me.tbTel.Text = rngData(ligne, 2).Offset(0, 2).Value ' Column D Me.tbFax.Text = rngData(ligne, 2).Offset(0, 3).Value ' Column E End Sub Private Sub doFillCboNom() ' Purpose: fill ComboBox cboNom ' Note: called by UserForm_Initialize and btnActualize_Click ' Declarations Dim liMax As Long Dim ws As Worksheet ' address WorkSheet Set ws = ThisWorkbook.Sheets("Fournisseurs") ' get last line of Range liMax = ws.Cells.SpecialCells(xlCellTypeLastCell).Row ' alternative method: ' liMax = ws.Range("A2:A" & ws.Range("A2").End(xlDown).Row).Count ' set data field Set rngData = ws.Range("A2:E" & Format(liMax, 0)) ' Fill ComboBox via datafield at once Me.cboNom.List = rngData.Value ' Show first supplier (fournisseur) - ListIndex 0 as combobox is zero based Me.cboNom.ListIndex = 0 End Sub 

备注

如果您使用sorting的combobox，那么您将不得不更换代码

 ligne = ligne = Me.cboNom.ListIndex + 1 

通过

  ligne = getLigne() 

调用用户定义的函数（而不是WorkSheetFunction匹配）

 Private Function getLigne() As Long Dim i As Long, imax As Long ' Line nr Dim s As String ' ID supplier/fournisseur s = Me.cboNom.List(Me.cboNom.ListIndex, 0) imax = rngData.Rows.Count For i = 1 To imax If rngData(i, 1) = s Then getLigne = i Exit Function End If Next i End Function