[已解决]为什么Listbox1里没显示最后1条记录？

爱疯

11模糊输入.zip (24.88 KB, 下载次数: 15)

2016-11-16 20:39 上传

点击文件名下载附件
原贴：http://club.excelhome.net/thread-1252433-1-1.html 3楼




Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With ListBox1
        For i = 0 To .ListCount
            If .Selected(i) Then
                arr = Array(.Text, .Column(1), .Column(2))
                Exit For
            End If
        Next
    End With
    ActiveCell.Resize(1, 3) = arr
    TextBox1.Text = ""
    ListBox1.Visible = False
    TextBox1.Visible = False
End Sub

Private Sub TextBox1_Change()
    s = TextBox1.Text
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 3)
    For i = 1 To UBound(arr)
        If InStr(1, arr(i, 1), s) > 0 Then
            k = k + 1
            brr(k, 1) = arr(i, 1)
            brr(k, 2) = arr(i, 2)
            brr(k, 3) = arr(i, 3)
        End If
    Next
    ListBox1.List = brr
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub
    If Target.Column = 6 Then
        With TextBox1
            .Visible = True
            .Top = Target.Top
            .Left = Target.Left
            .Height = Target.Height
            .Width = Target.Width
            .Activate
        End With
        With ListBox1
            .Visible = True
            .Top = Target.Top
            .Left = Target.Offset(0, 1).Left
            .Height = Target.Height * 10
            .Width = 200
            .ColumnCount = 3
        End With
    Else
        ListBox1.Visible = False
        TextBox1.Visible = False
    End If
End Sub



当手动清除 Textbox1的文本后， Listbox1 应该是显示全部。
请问如题，谢谢！

最佳答案

月排行榜 / 总排行榜

领风飞翔

2016-11-17 11:28

单元格高度、列表框高度、列表框中文字高度不成比例，最后一行想显示，但无奈无足够空间显示。。。

跳转到最佳答案楼层

爱疯

Private Sub TextBox1_Change()
    s = TextBox1.Text
    arr = [a1].CurrentRegion
    ReDim brr(UBound(arr), 1 To 3) '第1维下界改为 0
    For i = 1 To UBound(arr)
        If InStr(1, arr(i, 1), s) > 0 Then
            brr(k, 1) = arr(i, 1)
            brr(k, 2) = arr(i, 2)
            brr(k, 3) = arr(i, 3)
            k = k + 1 '改为 赋值后才累加
        End If
    Next
    ListBox1.List = brr
End Sub


这么改了后，好像没再发生这种现象了。
但我还是没想明白

爱疯

3.rar (13.15 KB, 下载次数: 8)

2016-11-16 21:14 上传

点击文件名下载附件



Sub test()
    With Me.ListBox1
        .ColumnCount = 3
        .List = [a1].CurrentRegion.Value
    End With
End Sub




在空白工作簿中测试了下，
说明：区域中所有的行能在 listbox 里全部显示。

爱疯

Private Sub TextBox1_Change()
    arr = [a1].CurrentRegion
    ListBox1.List = arr
End Sub


这样测试，1楼仍然无法显示最后1行。

为什么呢 。。。。。。。。。。。{:031:}

爱疯

刚才发现切换到设计模式，手动调整listbox1 的高后，4楼代码便可显示最后1行。


对此，能否这么认为：
如果listbox1 的高“很不凑巧”时，就“恰好”无法显示最后1行，有些"四舍五入"被舍去的感觉 。
解决方法1：微调一下高的值
解决方法2：往listbox里多录入一行

爱疯

'刷新控件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 6 Then   '可能会改
            With TextBox1
                .Left = Target.Left
                .Top = Target.Top
                .Width = Target.Width
                .Height = Target.Height
                .Activate
                .Value = ""
                .Visible = True
            End With
            With ListBox1
                .Left = Target.Offset(0, 1).Left
                .Top = Target.Top
                .Height = Target.Height * 10
                .Width = 300
                .ColumnCount = 3    '可能会改
                .Visible = True
            End With
        Else
            TextBox1.Visible = False
            ListBox1.Visible = False
        End If
    End If
End Sub

'写入Listbox
Private Sub TextBox1_Change()
    Dim txt, arr, brr, i, j, s
    txt = TextBox1.Text
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr) + 1, 1 To UBound(arr, 2))    '多创建一行，为避免可能无法显示最后一行
    For i = 1 To UBound(arr)
        If arr(i, 1) Like txt & "*" Then
            s = s + 1
            For j = 1 To UBound(arr, 2)
                brr(s, j) = arr(i, j)
            Next j
        End If
    Next
    ListBox1.List = brr
End Sub

'写入单元格
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i, arr
    With ListBox1
        arr = .List
        For i = 0 To .ListCount
            If .Selected(i) Then Exit For
        Next
        ActiveCell.Resize(1, UBound(arr, 2) + 1) = Application.Index(arr, i + 1, 0)
        .Visible = False
    End With
    TextBox1.Visible = False
End Sub

学习4.rar (26.4 KB, 下载次数: 10)

2016-11-16 22:32 上传

点击文件名下载附件



备份下

wp8680

结果证明，是因为列表框的高度，正好不能显示最后一条数据，而实际上最后一条数据是已经存在列表框中的。
在立即窗口输入：?listbox1.List(27,0)
是能看到最后一行的信息的。
在右边的滚动条拖拉中也是能看到，该滚动条不能拖至最底部，拖到底部了也会自动回弹一点。
而通过调整合适的列表框高度后，又能拖动滚动条看到最后一条记录。
这也证实你的五楼说法是对的。

以前没有注意过这件事。

爱疯

wp8680 发表于 2016-11-17 09:02
结果证明，是因为列表框的高度，正好不能显示最后一条数据，而实际上最后一条数据是已经存在列表框中的。
...

谢谢 wp8680！

在本地窗口也可看到brr有最后一行的记录。
3楼也证明数组对listbox的赋值方式没问题。
因此，最后才怀疑到 listbox 头上。

su45

疯版的锲而不舍的精神可嘉！

爱疯

su45 发表于 2016-11-17 09:46
疯版的锲而不舍的精神可嘉！

只是碰巧发现这示例挺好，以后可能会人被问到，

所以想搞明白，以备抢答