JSA的进度条有大佬会吗

QAZ1234ab

VBA的可以写，但是JSA好像窗体一旦运行，就不会继续运行后面的代码了


Sub Opiona()
    With FormJinDuTiao
        .Show 0   '//显示窗体
        Int总数 = 1000  ''(UBound(ARRSH) + 1) * (UBound(SQLARR, 1) + 1)
        Int当前 = 0
        
        For IROW = 4 To Int总数  '//IROW 是循环变量
        
                Int当前 = Int当前 + 1
                .Label1.Width = Int(Int当前 / Int总数 * 324) '//窗体设置：底色为红色，宽度自动代码设置
                .Frame1.Caption = CStr(Round((Int当前 / Int总数 * 100), 4)) & "%" '//显示内容，窗体设置：长度设为：324
                .Caption = "标签生成中，请稍候......"         '//根据实际情况改一下显示内容"
                DoEvents
               
            '//正常代码
        
        Next IROW
    End With
    Unload FormJinDuTiao  '//关闭窗体

End Sub

dto8323

右键用户窗体→属性，找到showmodal属性，改为false

LIUZHU

做过JSA的进度条，效果还可以

ruirui5015

jsa进度条请参考

QAZ1234ab

ruirui5015 发表于 2023-12-24 11:54
jsa进度条请参考

谢谢大佬，很有用，研究好久没有弄出来

QAZ1234ab

dto8323 发表于 2023-12-22 19:36
右键用户窗体→属性，找到showmodal属性，改为false

这个是调什么的？

dto8323

QAZ1234ab 发表于 2024-1-14 13:34
这个是调什么的？

唤出用户窗体后是否可以同时操作单元格的属性