如何自动录入准确信息

lduanduan

根据已有清单，遇到重复姓名，如何根据下一级选项确定姓名，请高手帮忙，谢谢

蓝桥玄霜

有效性的例子：

lduanduan

蓝桥玄霜 发表于 2024-5-22 14:27
有效性的例子：

谢谢您回复， 太高深了，一时半会理解不了，可以在原文件中实现以便深入学习吗，再次感谢

tanglf188

参与一下，请参考

gwjkkkkk

Public dic As Object
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar(), i&, j&, strTarget$
   
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
   
    With Sheets(2)
        ar = .Range(.[A1], .Cells(Rows.Count, "C").End(3)).Value
        Set dic = CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(ar)
            If Not dic.exists(ar(i, 1)) Then
                Set dic(ar(i, 1)) = CreateObject("Scripting.Dictionary")
            End If
            dic(ar(i, 1))(ar(i, 2)) = ar(i, 3)
        Next i
    End With
   
   
    If Not dic.exists(Target.Value) Then
        Exit Sub
    Else
        Target.Select
        If dic(Target.Value).Count = 1 Then
            Target.Offset(, 1).Value = dic(Target.Value).keys()(0)
            Target.Offset(, 2).Value = dic(Target.Value).items()(0)
        Else
            With Application.CommandBars.Add(Name:="myCell", Position:=msoBarPopup)
                For i = 0 To dic(Target.Value).Count - 1
                    With .Controls.Add(Type:=msoControlButton)
                        .Caption = dic(Target.Value).keys()(i)
                        .OnAction = "Sheet1.myCellAction"
                    End With
                Next
                .ShowPopup
                .Delete
            End With
        End If
    End If
    Set dic = Nothing
End Sub
Sub myCellAction()
    Application.EnableEvents = False
    Selection.Offset(, 1).Value = Application.CommandBars.ActionControl.Caption
    Selection.Offset(, 2).Value = dic(Selection.Value)(Application.CommandBars.ActionControl.Caption)
    Application.EnableEvents = True
End Sub

gwjkkkkk

。。。。。。。。。。

lduanduan

gwjkkkkk 发表于 2024-5-22 21:04
。。。。。。。。。。

非常感谢！收藏学习

lduanduan

楼上各位大侠，感谢！

lduanduan

gwjkkkkk 发表于 2024-5-22 21:04
。。。。。。。。。。

为何今天再试的时候报错呢？With Application.CommandBars.Add 这里， error 5， invalid procedure call or argument