自动根据Activex Dropdown连续填充单元格

Question

我有一个Active-x Dropdown，并希望根据此Dropdown自动填充行中的其他单元格。我在工作表更改事件中编写了代码，但是当我从此下拉列表中选择时，它不会触发其他行的autopopulat代码。任何帮助，将不胜感激。第9列是我的active-x下拉列表，但是当我从列表中选择时，我的资源（工作表）中显示下一个单元格的代码不会触发。

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsSource As Worksheet
    Dim r As Long
    Set wsSource = ThisWorkbook.Sheets("Source")     'Source sheet
    Application.EnableEvents = False
    If Target.Column = 9 Then
       r = Application.Match(Target.Value, wsSource.Columns(8), 0)
       Target.Offset(0, 1) = wsSource.Cells(r, 9)
    End If
    Application.EnableEvents = True
    End Sub

Answer 1

更改Active X ComboBox中的值不会触发Worksheet_Change。相反，使用像这样的ComboBox_Change事件：

Private Sub ComboBox1_Change()
    MsgBox "Please share your code next time you post. It will greatly help others help you :)"
End Sub

---

您可能需要在运行代码之前验证所选值，这可以通过简单的If ComboBox1.Value = "?" Then来完成