Question

我希望我的工作表通过下拉列表与用户输入进行交互。基本上我需要通过下拉按钮根据输入复制和粘贴数据列。

这是我的代码

Sub DropDown84_Change()


 If ActiveSheet.DropDowns("Drop Down 84").Value = 1 Then
 Sheets("data").Range("N28:N30").Value = Sheets("data").Range("E48:B50").Value
 ElseIf ActiveSheet.DropDowns("Drop Down 84").Value = 2 Then
 Sheets("data").Range("N28:N30").Value = Sheets("data").Range("F48:F50").Value
 ElseIf ActiveSheet.DropDowns("Drop Down 84").Value = 3 Then
 Sheets("data").Range("N28:N30").Value = Sheets("data").Range("G48:G50").Value
 ElseIf ActiveSheet.DropDowns("Drop Down 84").Value = 4 Then
 Sheets("data").Range("N28:N30").Value = Sheets("data").Range("H48:H50").Value
 Else: Sheets("data").Range("N28:N30").Value = Sheets("data").Range("J48:J50").Value

End If


End Sub

我收到了一条消息

“运行时错误1004，无法获取工作表类的DropDowns属性”

请帮忙，

Answer 1

我希望您使用ActiveX：

Sub ComboBox84_Change()

Select Case ActiveSheet.ComboBox84.Value
    Case 1
        Sheets("data").Range("N28:N30").Value = Sheets("data").Range("E48:B50").Value
    Case 2
        Sheets("data").Range("N28:N30").Value = Sheets("data").Range("F48:F50").Value
    Case 3
        '-- do for all of your cases--
End Select

End Sub

处理Excel中的下拉菜单

1 个答案: