代码停顿审后再继续

xing_chen

老师，有簿12张表，主要求助2点：1是对每张表中同家公司2笔以上业务，金额一致但列的收支方向不一致，或正负可以相抵的，标红；2由于是12张表，我希望在代码运行，将对标红的行删除前，有停顿。让我手工核对几分钟，若不需删除的，我将去色，后代码再运行，对余下标色的，删行。不知道，我这想法VBA可行吗?特别是停顿再运行。敬请老师赐教。谢谢

tanglf188

两段代码，一段标红，一段删除标红行或列

xing_chen

tanglf188 发表于 2023-2-7 15:48
两段代码，一段标红，一段删除标红行或列

谢谢老师！是的，但我需要有代码在执行过程中有暂停，提示；当然也可以分2个部分，分别执行。但我还是想将这2部分融合在1个模块中。看看代码的暂停，提示，再继续的流程

tanglf188

可以，中间插入一个窗体，设定继续按钮，调用：UserForm1.Show 0

xing_chen

tanglf188 发表于 2023-2-7 16:44
可以，中间插入一个窗体，设定继续按钮，调用：UserForm1.Show 0

老师！代码中间怎么用UserForm1.Show 0

xing_chen

tanglf188 发表于 2023-2-7 16:44
可以，中间插入一个窗体，设定继续按钮，调用：UserForm1.Show 0

看来，我这方案不可行呀？没有反响！那么就分别吧！有老师赐教吗

tanglf188

自己修改数据再测试一下

xing_chen

tanglf188 发表于 2023-2-8 11:12
自己修改数据再测试一下

谢谢老师！比我设想的好。但由于对窗体不熟，若需遍历12个月的表，窗体怎么设置，我要抽空学习一下。谢谢老师！

tanglf188

xing_chen 发表于 2023-2-8 13:01
谢谢老师！比我设想的好。但由于对窗体不熟，若需遍历12个月的表，窗体怎么设置，我要抽空学习一下。谢谢 ...

不需要设置，直接在当前表运行就可以了

tanglf188

历遍的话修改如下：
Sub 遍历工作表()
    Application.ScreenUpdating = False
    For i = 1 To Worksheets.Count
        With Sheets(2)
            .Select
            last = .Range("A" & Rows.Count).End(xlUp).Row
            .Cells.Interior.Pattern = xlNone
            arr = .Range("D2:D" & last)
            
            '...............
        End With
    Next
    Application.ScreenUpdating = True
    If dis > 0 Then UserForm1.Show 0
End Sub