利用文本控件框输入数据

SCWYZJ

求助:我想利用Textbox1与Listbox1文本控件来快速输入数据（见附件）既能显示标题，又不能影响筛选及选择数据。实在不行换Active控件也可。，试过网上一些方法都不是很好，特来此请教老师。麻烦大神老师抽空帮忙看看能否完美解决，谢谢!

SCWYZJ

补充下，显示的内容不要去重，就是不管姓名还其他的字段数据都不要去重显示

SCWYZJ

要么所有字段数据都相同才去掉重复行。

cidanji

3190496160

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
w = ActiveCell.Row
m = 2
With ListBox1
    For i = 1 To .ListCount - 1
        If .Selected(i) = True Then
            For j = 0 To 4
                If j <> 3 Then
                    m = m + 1
                    Cells(w, m) = .List(i, j)
                End If
            Next j
            Exit For
        End If
    Next i
    .Visible = False
    .Clear
End With
TextBox1.Visible = False
TextBox1 = ""
End Sub

Private Sub TextBox1_Change()
Dim ar As Variant
Dim br()
With Sheets("数据")
    r = .Cells(Rows.Count, 3).End(xlUp).Row
    If r < 5 Then MsgBox "数据工作表为空，请先导入数据！": End
   ar = .Range("c4:g" & r)
End With
zd = TextBox1.Text
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
n = 1
For j = 1 To UBound(ar, 2)
    br(n, j) = ar(1, j)
Next j
For i = 2 To UBound(ar)
    If InStr(ar(i, 1), zd) > 0 Then
        n = n + 1
        For j = 1 To UBound(ar, 2)
            br(n, j) = ar(i, j)
        Next j
    End If
Next i
With ListBox1
    .Clear
    .List = br
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If T.Row > 5 And T.Column = 3 Then
    If T.Count > 1 Then End
    With Sheets("数据")
        r = .Cells(Rows.Count, 3).End(xlUp).Row
        If r < 5 Then MsgBox "数据工作表为空，请先导入数据！": End
       ar = .Range("c4:g" & r)
    End With
    With TextBox1
        .Visible = True
        .Top = T.Top
        .Left = T.Left
        .Activate
    End With
    With ListBox1
        .Visible = True
        .Top = T.Top
        .Left = T.Left + 70
        .List = ar
    End With
    Cancel = True
End If
        
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row <= 5 Or T.Column <> 3 Then
    TextBox1.Visible = False
    TextBox1 = ""
    ListBox1.Visible = False
    ListBox1.Clear
End If
End Sub

3190496160

双击c列
)VBA利用Textbox与Listbox控件选择数据快速录入.rar (54.36 KB, 下载次数: 19)

2025-3-26 15:05 上传

点击文件名下载附件

SCWYZJ

我自己弄好了，但也非常感谢二位老师的帮助，真不愧大神，牛！还得向您们多多的学习。