Question

我有这个VBA代码，它在big for循环之后，在“ msgbox“ h”之前结束。msgbox用于检查它是否继续。该代码在循环中运行，但仅此而已。请有人帮我理解为什么？

Sub countPT()
'Select file
    Application.ScreenUpdating = False

    Dim i As Integer, lastRow As Integer, tellerPoE(13) As Integer, 
telleruPoE(13) As Integer, SwitchInd As Integer
    Dim wb As Workbook, wb2 As Workbook
    Dim krrom As String, Comment As String

    For i = 1 To 13
        tellerPoE(i) = 0
        telleruPoE(i) = 0
    Next i

    Set wb = ActiveWorkbook

    openFile = Application.GetOpenFilename("Excel-files,*.xls*", 1, _
        "Select a file to open", , False)
    Application.ScreenUpdating = False
    If Len(openFile) = 0 Then
        MsgBox "No file selected.", vbExclamation, "Sorry!"
        End
    End If
    Workbooks.Open openFile

    Set wb2 = ActiveWorkbook


'Read through and count -> put to array on index
    lastRow = wb2.Worksheets("Rådata").Range("F" & Rows.Count).End(xlUp).Row
    For i = 114 To lastRow
        wb2.Activate
        If CStr(wb2.Worksheets("Rådata").Cells(i, "G")) = "528" Then
            krrom = CStr(wb2.Worksheets("Rådata").Cells(i, "F"))
            SwitchInd = SwitchCode(krrom)
            'If SwitchInd = 0 Then
                'GoTo ContinueLoop
            'End If

            Comment = LCase(CStr(wb2.Worksheets("Rådata").Cells(i, "M")))

            If (InStr(Comment, "poe") Or InStr(Comment, "kamera") Or 
InStr(Comment, "cam")) Then
                If Len(wb2.Worksheets("Rådata").Cells(i, "L").Value) > 0 Then
                    tellerPoE(SwitchInd) = tellerPoE(SwitchInd) + 1
                End If
                tellerPoE(SwitchInd) = tellerPoE(SwitchInd) + 1
            Else
                If Len(wb2.Worksheets("Rådata").Cells(i, "L").Value) > 0 Then
                    telleruPoE(SwitchInd) = telleruPoE(SwitchInd) + 1
                End If
                telleruPoE(SwitchInd) = telleruPoE(SwitchInd) + 1
            End If


'ContinueLoop

        End If
    Next i

'Check up to existing
    'Update values
    'Give message on change

    MsgBox "h"
    For j = 1 To 13
        If tellerPoE(j) > CInt(Cells(5 + j, "E")) * 2 Or telleruPoE(j) > 
CInt(Cells(5 + j, "G")) Then
            Cells(6 + j, "K") = "Punkter økt"
        End If
        Cells(5 + j, "E") = tellerPoE(j)
        Cells(5 + j, "G") = telleruPoE(j)
     Next j

'Empty and close
    Application.CutCopyMode = False
    Set wb = ActiveWorkbook
    wb2.Close
    Application.ScreenUpdating = True

End Sub

一些代码已被注释掉，以试图解决问题或使查找块更容易

Answer 1

在MsgBox之后，删除循环并编写以下内容：

MsgBox "h"
For j = 1 To 13
    Cells(6 + j, "K") = "Punkter økt"
Next j

检查它是否满足您的需求。如果是这样，那么它将起作用并且您的条件是错误的。

VBA模块似乎无故停止。

1 个答案: