Прерывание For L oop для ввода пользовательского ввода в каждом цикле цикла - PullRequest
Новая
       52

Прерывание For L oop для ввода пользовательского ввода в каждом цикле цикла

0 голосов
/ 03 мая 2020

Я использую For l oop to fla sh два критерия в форме. Рядом с ними находится текстовое поле для ввода оценки пользователем на основе этих критериев. Я пытаюсь ввести пользовательский ввод каждый раз, когда l oop завершает цикл. Не хочу использовать прерывание InputBox. Проблема в том, что после первой оценки l oop продолжает мигать MsgBox и не позволяет пользователю обновить счет TextBox. Вот код: 

Private Sub Cb_Submit_Click()
Debug.Print (No_of_Comparisons)
Debug.Print (Criterias_No)
For i = 1 To Criterias_No
    For j = 3 To Criterias_No
        If j <= Criterias_No And i < j Then
            Lab_Criteria1.Caption = Worksheets("PairWiseMatrix").Range("A" & i + 3).Value
            Lab_Criteria2.Caption = Worksheets("PairWiseMatrix").Range("A" & j + 3).Value
            MsgBox "You have entered a Comparative Score of " & Tb_Score.Value, vbOKOnly
        End If
    Next j
Next i
End Sub
...