在LISTBOX中展示数据

大灰狼1976

qqyyh 发表于 2024-9-19 11:04
向大神们学习，能不能加一个自动反复滚动；还可以鼠标指向数据行，停止滚动。

webbrowser做了一个示例

qqyyh

大灰狼1976 发表于 2024-9-19 11:33
webbrowser做了一个示例

老大，太高效了！谢谢！可以运行 ，不知道怎样输入自己的数据。

大灰狼1976

qqyyh 发表于 2024-9-19 21:08
老大，太高效了！谢谢！可以运行 ，不知道怎样输入自己的数据。

数据源放在工作表了，可以自己改，增加了一些动态功能。
都是网上找找七拼八凑的功能，再多我也不懂，仅供参考。
抱歉，好像传错附件，重新上传。

刀彐犬句

老姜007 发表于 2024-9-19 11:14
listbox控件不如listview好

我的2016装不上

刀彐犬句

cidanji 发表于 2024-9-18 12:12
https://club.excelhome.net/thread-1701930-1-1.html?_dsign=f6a26a3d

参照你的思路用activeX控件改了下

Option Explicit
   Public rowscount As Long
   Public showrows As Integer
   Public r As Integer


Private Sub CommandButton1_Click()

Dim RNG As Range
Dim H As Integer

Application.ScreenUpdating = False
rowscount = ActiveSheet.UsedRange.Rows.Count
Set RNG = Range(Cells(2, 1), Cells(rowscount, 3))
'
   
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ReDim arr(1 To rowscount, 1 To 3)
arr = RNG
  
With ActiveSheet.ListBox1 '数据列表

    .ListFillRange = "" '清空数据列表
    .ColumnCount = 3   '列表设定3列
    .ColumnWidths = "60;100;150" '每列宽度
    .ColumnHeads = True '默认有标题,标题数据取自源数据第一行的上一行
    .ListFillRange = RNG.Address(, , , True) '获取数据
    .TopIndex = .ListCount '首行显示的数据
   
     H = .Height '数据列表高度
     showrows = Int(H / 12) '大致估算每一页看到的行数，12为每一行的高度
End With

delay
Application.DisplayAlerts = True
End Sub


Private Sub CommandButton2_Click()
On Error Resume Next
Application.OnTime (Now + TimeValue("00:00:01")), "sheet4.delay", , False
End Sub

Sub delay()
With ActiveSheet.ListBox1
'首行显示当前行，每过1秒加1，当当前行等于最后一页的首行时，当前行为0
.TopIndex = r
r = r + 1

   If r = rowscount - showrows Then
   r = 0
   End If
   
End With

Application.OnTime (Now + TimeValue("00:00:01")), "sheet4.delay"
End Sub

qqyyh

大灰狼1976 发表于 2024-9-20 12:30
数据源放在工作表了，可以自己改，增加了一些动态功能。
都是网上找找七拼八凑的功能，再多我也不懂，仅 ...

好思路，拓展很多了。学习了！

scnc001

刀彐犬句 发表于 2024-9-20 17:01
参照你的思路用activeX控件改了下

Option Explicit

点个赞。。

老姜007

刀彐犬句 发表于 2024-9-20 16:41
我的2016装不上

去网上下载mscomctl.ocx控件，放到system32或syswow64文件夹中，然后到文件目录下，用regsvr32 mscomctl.ocx注册这个控件