重复更新列表框的内容，同时保持用户控制

发布于 2024-12-26 06:02:17 字数 162 浏览 1 评论 0原文

在 VBA 中，我使用稳定增长的文本文件的文本反复更新列表框的内容。当我更新列表框的循环正在运行时，有什么方法可以让用户保持控制（滚动列表框，按下按钮）？ application.wait 的替代方案也可以工作；如，更新 ->等待 x 秒（用户仍然可以执行操作 -> 再次更新 -> 重复。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

删除会话 2025-01-02 06:02:17

这是一个开始。在常规模块中，粘贴此代码：

Sub ShowUserForm()
UserForm1.Show vbModeless
End Sub

Sub UpdateTextBox()
Dim ws As Excel.Worksheet

Set ws = ThisWorkbook.Worksheets(1)
With UserForm1.ListBox1
    .List = ws.Range("A1:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).Value2
    .ListIndex = .ListCount - 1
End With
Application.OnTime Now + TimeValue("00:00:5"), "UpdateTextBox"
End Sub

在您的用户窗体中，将此代码粘贴到 UserForm_Activate 事件中：

UpdateTextBox

它使用该代码更新工作簿中 Sheet1 的 A 列中的值。

要测试它，请运行 ShowUserForm。

Here's a start. In a regular module, paste this code:

Sub ShowUserForm()
UserForm1.Show vbModeless
End Sub

Sub UpdateTextBox()
Dim ws As Excel.Worksheet

Set ws = ThisWorkbook.Worksheets(1)
With UserForm1.ListBox1
    .List = ws.Range("A1:A" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row).Value2
    .ListIndex = .ListCount - 1
End With
Application.OnTime Now + TimeValue("00:00:5"), "UpdateTextBox"
End Sub

In your userform paste this code in the UserForm_Activate event: