将所选值从下拉框填充到单独的工作表中

Question

我有一个工作表单，可以从已有的客户表单自动填充，但是下拉菜单和我不同意。由于这种形式是用于工作和通过多个组织使用/转移，我不想要任何下拉框。我正在做的是让下拉框中的选定值自动填充到新表单中的相应单元格中。即：下拉是在OriginalSheet D12中，我希望在NewSheet D12中填充所选值。

我已经尝试了所有这些答案：

Get dropdown value in VBA and get the name of the dropdown...nowhere to be found?
Return the text from a dropdown box rather than the index number
Return the selected text from a dropdown box

目前我正在使用以下代码，但我仍然无法将所选值填充到新单元格中：

Sub Dropdown()

Dim dd As Dropdown

Set dd = Sheets("LTL Quote Form").Dropdowns("Drop Down 63")
Set r = Sheets("Sheet3").Range("D12")

Set ddValue = r(dd.ListIndex)

End Sub

Answer 1

试试这个：

Sub Dropdown()
    With ActiveSheet.DropDowns(Application.Caller)
        Sheets("Sheet3").[d12] = .List(.Value)
    End With
End Sub

注意：这假设您已将Dropdown（）宏指定给下拉表单控件。

注意：这假设您希望该值显示在“Sheet3”的单元格D12中。