关于listbox读取数据！

幸福花开0304

各位老师好！       附件是一个出入库存报表，为了防止同一个备件名称在入库时录错，我想在入库写入备件名称时有逐渐提醒功能（以库存报表里的备件名称为准），使用了两个activex控件textbox和listbox，也不知道代码哪里有问题，listbox就是写入不了。麻烦老师帮忙看一下，谢谢！

liulang0808

楼主的if语句有两个条件，第一个是否有必要，或者删除看看

幸福花开0304

liulang0808 发表于 2022-11-30 18:57
楼主的if语句有两个条件，第一个是否有必要，或者删除看看

老师，应该不是这个原因，也不知道咋了就是调试不出来，关于这个if条件我试了很多种都不行。我以前经常用这段代码都没什么问题。

582766

if 后面没有 end if

3190496160

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

Private Sub TextBox1_Change()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Me.ListBox1.Clear
arr = Sheets("库存").Range("a2:a" & Sheets("库存").Range("a65536").End(xlUp).Row)
If Len(Me.TextBox1.Value) <> 0 Then
    For ii = LBound(arr) To UBound(arr)
        If InStr(arr(ii, 1), Me.TextBox1.Value) > 0 Then
            If Not d.exists(arr(ii, 1)) Then
                Me.ListBox1.AddItem arr(ii, 1)
                d(arr(ii, 1)) = ""
            End If
        End If
    Next
    If Me.ListBox1.ListCount > 0 Then
        Me.ListBox1.Visible = True
        Me.ListBox1.Left = ActiveCell.Left
        Me.ListBox1.Width = ActiveCell.Width
    Else
        Me.ListBox1.Visible = False
    End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 1 Then
    Me.TextBox1.Top = Target.Top
    Me.TextBox1.Left = Target.Left
    Me.TextBox1.Width = Target.Width
    Me.TextBox1.Height = Target.Height
    Me.TextBox1.Visible = True
    Me.ListBox1.Left = Target.Left
    Me.ListBox1.Width = Target.Width
    Me.TextBox1.Activate '
Else
    Me.ListBox1.Visible = False
    Me.ListBox1.Clear
    Me.TextBox1 = ""
    Me.TextBox1.Visible = False
End If
End Sub

3190496160

捷鸿备件库报表 - 副本.rar (32.25 KB, 下载次数: 11)

2022-12-1 11:21 上传

点击文件名下载附件

3190496160

修改了部分不合理的代码，仅供参考，
感觉，你这个问题，要走的路还很长哟

幸福花开0304

3190496160 发表于 2022-12-1 11:23
修改了部分不合理的代码，仅供参考，
感觉，你这个问题，要走的路还很长哟

谢谢老师，我会好好学习的，我知道是什么原因了。