Question

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

    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

更改"error_code": "ITEM_LOGIN_REQUIRED"中的值不会触发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

完成

根据Active-x下拉列表自动填充单元格

1 个答案: