excel - Excel VBA - 无法启动代码

Question

我有这段代码，我可以启动它来调试，但我不知道我做了什么，我再也不能了。当我单击“启动子/用户窗体”时，什么也没有发生。它以前工作过。

你知道出了什么问题吗？

编辑：我还注意到 F8 没有审查所有行。它直接从第 13 行跳到第 25 行。

    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
    
    Sub Listprice()
    
    Number_lift = 3
    Col_HK = 3
    Col_koko = 4
    
    Do While Number_lift < 9
    Level = 6
    TH = 20
    Line_x = 6
    Do While Level < 5
    Range("P14").Value = TH
    Range("P16").Value = Level
    Workbooks("Kalk.xlsm").Worksheets("Kalkulation").Range("C26").Copy
    Workbooks("List_EN_V1.xlsx").Worksheets("Sht1").Cells(Col_HK, Line_x).PasteSpecial Paste:=xlPasteValues
    Workbooks("Kalk.xlsm").Worksheets("Kalkulation").Range("C20").Copy
    Workbooks("List_EN_V1.xlsx").Worksheets("Sht1").Cells(Col_HK, Line_x).PasteSpecial Paste:=xlPasteValues
    TH = TH + 3
    Level = Level + 1
    Line_x = Line_x + 1
    Sleep (5000)
    Loop
    Number_lift = Number_lift + 5
    Col_HK = Col_HK + 4
    Col_koko = Col_koko + 4
    Loop


    End Sub

谢谢 ！

标签： excelvba