带有名称/值对的 Excel 下拉列表

Question

我有包含 2 个工作表的工作簿。

“Sheet2”有两列:

|    A    |      B        |
+---------+---------------+
|  code1  | description 1 |
|  code2  | Descr 2       |

Sheet1 有几列，其中一列(D 列)是代码。在本专栏中我需要一个“投递箱”，什么

• 将显示 Sheet2!B 列(描述)，并且当用户选择一个描述时
• 将输入 col:A 中的代码。

是否可以在 Sheet1 中无需额外的辅助列？ (Excel 2010)

所以，需要一些 html 中非常简单的东西:

<select>
  <option value="code1">Description 1</option>
  <option value="code2">Descr 2</option>
</select>

当用户选择“Descr 2”时，表单将获取“code2”。

这个问题可能是重复的 - 但我不确定 - : How to create dropdown with multiple columns in excel ，但唯一的答案将我指向 external site其中解决方案是另一个问题。

添加了屏幕截图以获得更准确的解释:

Answer 1

简单!这就是我们将得到的!

只需 3 个步骤:

1. 定义用作查找值的范围

2. 创建下拉列表

3. 粘贴一些代码

<小时/> 第 1 步:像这样设置 Sheet2 并将 命名范围定义为 _descrLookup:

( Highlight -> Right-Click -> "Define Name..." )

This is an optional step, but it just makes it easy to follow for Step 3.

---

第 2 步:在 Sheet1 中，使用数据验证创建下拉列表，并使用您希望在下拉列表中显示的值作为源。在此示例中，它是 Sheet2 A2:A4(参见上图):

( Data -> Data Validation )

<小时/> 第 3 步:向 Sheet1 添加一些 VBA 代码:

( Right-Click the tab Sheet1 -> View Code )

将其粘贴到 Sheet1 的代码窗口中:

Private Sub Worksheet_Change(ByVal Target As Range)
    selectedVal = Target.Value

    If Target.Column = 4 Then
        selectedNum = Application.VLookup(selectedVal, Worksheets("Sheet2").Range("_descrLookup"), 2, False)

        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If

    End If
End Sub