首页 > 解决方案 > 新手 - 创建下拉列表 x 2 并编写代码。- 检测到不明确的名称

问题描述

我已经制作了 2 个下拉列表,它们有一个名称,然后是它旁边的列中的一个值。例如。

第 1 列 col b
第一层 0
2级 0.2

接着

第 1 列 col b
安培 0.693
澳新银行 0.715

我找到了要使用的以下代码,并且已按指示更改了目标列和下拉名称。

但我不断检测到一个模棱两可的名字。我认为我使用的代码仅适用于每个工作表的 1 个下拉列表。当我将它放在不同的单张纸上时,它只能使用。

我确实想让我的下拉列表放在书后面的表格上,然后简单地将下拉列表复制到以前表格上的其他单元格中,但我无法在谷歌上弄清楚。

请协助代码或如何从另一张表中插入下拉菜单。非常感谢您的帮助:)

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    selectedNa = Target.Value
    If Target.Column = 4 Then
        selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("tier"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    selectedNa = Target.Value
    If Target.Column = 3 Then
        selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("comm"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

标签: exceldropdown

解决方案


推荐阅读