Создать цикл с остановкой и последующим продолжением

@serviktor · Регистрация: 03.04.2018

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток! Максимально простой макрос: копирует ячейки из первого листа во второй. Но вопрос заключается в следующем: можно ли сделать в цикле MsgBox, чтобы пользователь выбирал - продолжать цикл или прервать его? Если выбирает продолжить, то копируется дальше, и так до тех пор, пока не дойдет до конца цикла, в конце тоже должен быть MsgBox (поэтому может быть стоит его поднять выше, после копирования, но перед вставкой). Либо пользователь нажимает кнопку отмены (или кнопку "Нет", если там только две кнопки) и в итоге цикл завершается, пользователь меняет данные на первом листе и снова запускает макрос. Надеюсь, понятно объяснил.

Кликните здесь для просмотра всего текста

Visual Basic

Sub MMM()
    Dim a, b, c, d As String
    Dim ms As Integer
    LR = ThisWorkbook.Sheets("List").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 4 To LR
        a = ThisWorkbook.Sheets("One").Cells(i, 1)
        b = ThisWorkbook.Sheets("One").Cells(i, 2)
        c = ThisWorkbook.Sheets("One").Cells(i, 3)
        d = ThisWorkbook.Sheets("One").Cells(i, 4)
        ThisWorkbook.Sheets("Two").Cells(i, 1) = a
        ThisWorkbook.Sheets("Two").Cells(i, 2) = b
        ThisWorkbook.Sheets("Two").Cells(i, 3) = c
        ThisWorkbook.Sheets("Two").Cells(i, 4) = d
        If IsEmpty(ThisWorkbook.Sheets("One").Cells(i, 5)) = Falls Then
            ThisWorkbook.Sheets("Two").Cells(i, 5) = "Text"
        End If
'сюда пытаюсь вставить MsgBox 
        ms = MsgBox("Выберите кнопку!", 323, "Выбор кнопки")
        If ms = 6 Then
        Next
            MsgBox "Вы нажали кнопку: Да"
        ElseIf ms = 7 Then
            MsgBox "Вы нажали кнопку: Нет"
        Else
            MsgBox "Вы нажали кнопку: Отмена"
        End If
    Next i
End Sub

@serviktor · 04.03.2021, 07:21 **[ТС]**

Может быть так будет понятней...

I can · 04.03.2021, 08:58

Сообщение от serviktor

323

Это какой стиль? Как понять?

Добавлено через 14 минут

Visual Basic

Sub MMM()
    Dim a, b, c, d As String
    Dim ms As VbMsgBoxResult
    LR = ThisWorkbook.Sheets("List").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 4 To LR
        a = ThisWorkbook.Sheets("One").Cells(i, 1)
        b = ThisWorkbook.Sheets("One").Cells(i, 2)
        c = ThisWorkbook.Sheets("One").Cells(i, 3)
        d = ThisWorkbook.Sheets("One").Cells(i, 4)
        ms = MsgBox("Вcтавить???", VbMsgBoxStyle.vbYesNoCancel, "Выбор кнопки")
        If ms = vbYes Then
           'Вставляем
            ThisWorkbook.Sheets("Two").Cells(i, 1) = a
            ThisWorkbook.Sheets("Two").Cells(i, 2) = b
            ThisWorkbook.Sheets("Two").Cells(i, 3) = c
            ThisWorkbook.Sheets("Two").Cells(i, 4) = d
            If IsEmpty(ThisWorkbook.Sheets("One").Cells(i, 5)) = Falls Then
                ThisWorkbook.Sheets("Two").Cells(i, 5) = "Text"
            End If
        ElseIf ms = vbNo Then
            'Не вставляем
        Else
           'Выходим
            Exit Sub
        End If
   Next i
    
End Sub

Добавлено через 3 минуты
serviktor, есть еще такая замечательная(в умелых руках) вещь, как GoTo

С помощью нее можно прыгать по меткам в коде.

@serviktor · 04.03.2021, 09:06 **[ТС]**

I can, Да я уже сделал то, что хотел, сделал выход из цикла при помощи Exit For

Кликните здесь для просмотра всего текста

Visual Basic

        a = MsgBox("Если всё верно, нажмите в окне кнопку Yes", 4, "Если ошибка - кнопка No")
        If a = 6 Then
 
        ElseIf a = 7 Then
            MsgBox "Измените данные и запустите макрос"
            Exit For
        Else
            MsgBox "Вы нажали кнопку: Отмена"
        End If

Но вопрос теперь в другом: можно ли MsgBox сделать vbModeless, как это делается на формах? В документе у меня форм нет, есть только макрос и MsgBox, хотелось бы чтоб можно было спокойно переключаться по листам и смотреть данные, но в данный момент активен только MsgBox и дальше него ничего сделать нельзя.

I can · 04.03.2021, 09:22

Сообщение от serviktor

можно ли MsgBox сделать vbModeless, как это делается на формах

Сделайте из формы MsgBox

@serviktor · 04.03.2021, 09:34 **[ТС]**

Сообщение от I can

Сделайте из формы MsgBox

а без использования формы, чтоб не усложнять ничего, и оставить окно MsgBox, только сделать возможным переключение на эксель и листы?

Кликните здесь для просмотра всего текста

Visual Basic

Sub Кнопка2_Щелчок()
    Dim a As String
    Dim ms As Integer
    For i = 2 To 10
        a = ThisWorkbook.Sheets("List").Cells(i, 1)
        ms = MsgBox("Если всё верно, нажмите в окне кнопку Yes", 4, "Проверьте данные ") 'сделать так, чтобы можно было смотреть данные на листе, но без использования формы
        If ms = 6 Then
        ElseIf ms = 7 Then
            MsgBox "Измените данные и запустите макрос"
            Exit For
        Else
            MsgBox "Вы нажали кнопку: Отмена"
        End If
        ThisWorkbook.Sheets("Two").Cells(i, 1) = a
    Next i
End Sub

I can · 04.03.2021, 10:00

Сообщение от serviktor

чтоб не усложнять ничего

Это как раз и есть "усложнение", придётся скакать с бубном вокруг API.

I can · 04.03.2021, 10:18

serviktor, Лист Microsoft Excel.rar

@serviktor 5 / 4 / 1 Регистрация: 03.04.2018 Сообщений: 113
	04.03.2021, 07:21 [ТС]	2
	Может быть так будет понятней... Миниатюры 0

I can help 4427 / 4080 / 812 Регистрация: 13.04.2015 Сообщений: 8,930
	04.03.2021, 09:22	5
	Сообщение от serviktor можно ли MsgBox сделать vbModeless, как это делается на формах Сделайте из формы MsgBox 0

I can help 4427 / 4080 / 812 Регистрация: 13.04.2015 Сообщений: 8,930
	04.03.2021, 10:00	7
	Сообщение от serviktor чтоб не усложнять ничего Это как раз и есть "усложнение", придётся скакать с бубном вокруг API. 0

I can help 4427 / 4080 / 812 Регистрация: 13.04.2015 Сообщений: 8,930
	04.03.2021, 10:18	8
	Сообщение было отмечено serviktor как решение Решение serviktor, Лист Microsoft Excel.rar 1

Создать цикл с остановкой и последующим продолжением

Решение