联想输入加防错警告

kdsea

请教在工作表事件中联想输入 ，且对源 数据扫描，给出出错警告。详见附件。请大师抽时间予以解惑，不胜感谢！

582766

感觉简单的事情复杂化了

3190496160

列出“源”表中的值（或源表中的平均值 ）
你究竟需要的是值还是平均值呢？？？？？

3190496160

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            ActiveCell.Value = .List(i, 0)
            ListBox1.Clear
            ListBox1.Visible = False
            TextBox1 = Empty
            TextBox1.Visible = False
            Exit For
        End If
    Next i
End With
End Sub

Private Sub TextBox1_Change()
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 1).End(xlUp).Row
ar = Range("a2:b" & r)
zf = TextBox1.Text
For i = 2 To UBound(ar)
    If InStr(ar(i, 1), zf) > 0 Then
        d(Trim(ar(i, 1))) = ""
        mc = ar(i, 1)
    End If
Next i
If d.Count = 1 Then
    ActiveCell.Value = mc
    ListBox1.Clear
    ListBox1.Visible = False
    TextBox1 = Empty
    TextBox1.Visible = False
Else
    With ListBox1
        .Visible = True
        .Top = ActiveCell.Top
        .Left = ActiveCell.Left + 50
        .Clear
        .List = d.keys
    End With
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row = 3 And T.Column = 5 Then
    If T.Count > 1 Then End
    With TextBox1
        .Visible = True
        .Top = T.Top
        .Left = T.Left
        .Activate
    End With
Else
    TextBox1 = Empty
    TextBox1.Visible = False
    ListBox1.Clear
    ListBox1.Visible = False
End If
End Sub

3190496160

仅供参考
快捷输入且防错警告.rar (23.33 KB, 下载次数: 10)

2022-12-8 10:39 上传

点击文件名下载附件

kdsea

3190496160 发表于 2022-12-8 10:19
列出“源”表中的值（或源表中的平均值 ）
你究竟需要的是值还是平均值呢？？？？？

值 与 平均值 都可以