Есть также третий способ - использовать Application.StatusBar. Вы даже можете смоделировать настоящий индикатор выполнения, используя последовательность символов U + 25A0 и U + 25A1.

Я собираюсь закрыть это и сказать, что Modal - победитель. Я пробовал оба способа, но в итоге вы пытаетесь закрыть слишком много лазеек с помощью немодальных пользовательских форм. Модальный режим сложнее, потому что он более строг, но он побуждает вас разбивать код на более мелкие части, что в любом случае лучше в долгосрочной перспективе.

Определенно модально. Если вы собираетесь рассматривать режим без режима, вам следует запускать его в отдельном внепроцессном потоке, а не в основном потоке Excel.exe.

Я думаю, что на начальную тему стоит ответить, поскольку вопрос сформулирован так красиво, что Google находит его первым.

Раздел 1 - Теория

Прежде всего нужно сказать, что передавать переменные между модулями совсем несложно.

Единственное, что вам нужно сделать, это создать отдельный модуль и поместить туда все глобальные переменные. Тогда вы сможете читать их везде, во всех формах, листах, модулях.

Второе - окно должно быть БЕСМОДЕЛЬНЫМ. Почему так? Ответ: сохранить подвижность кода, т. Е.

1. функция, в которой выполняется самый рутинный процесс, не должна находиться в модуле UserForm
2. вы можете вызвать окно с индикатором выполнения отовсюду и
3. единственная связь между рутинной функцией / процедурой - это глобальные переменные

Это большое преимущество - быть здесь универсальным.

Раздел 2 - Практика

1) Создайте модуль «Объявление» с глобальными переменными:

Public StopForce As Integer 'эта переменная будет использоваться как индикатор того, что пользователь нажал кнопку отмены.

Public PCTDone As Single '- это процент уже выполненной работы.

Public CurrentFile As String 'любой другой параметр, который мы хотим передать форме.

2) Создайте форму с помощью кнопки. В событии OnClick кнопки должен быть код, в котором мы ссылаемся на глобальную переменную StopForce в модуле Объявление.

 Private Sub CommandButton1_Click()

 Declaration.StopForce = 1
  End Sub

3) Добавьте одну процедуру, в которой вы обновляете индикатор выполнения

Sub UpdateProgressBar(PCTDone_in As Single)
With UserForm1
    ' Update the Caption property of the Frame control.
    .FrameProgress.Caption = Format(PCTDone_in, "0%")
    ' Widen the Label control.
    .LabelProgress.Width = PCTDone_in * _
        (.FrameProgress.Width)
    ' Display the current file from global variable   
    .Label1.Caption = Declaration.CurrentFile
End With
End Sub

4) в любом другом модуле мы должны иметь функции или процедуру / подпрограмму, в которой выполняется процедура:

 For i=1 to All_Files

 Declaration.CurrentFile = myFiles (i)

 FormFnc.UpdateProgressBar (i / .Range("C11").Value)


 DoEvents

 If Declaration.StopForce = 1 Then
    GoTo 3
 End If

 Next i

На самом деле у вас есть следующие свойства, что дает плюсы / минусы в зависимости от ваших потребностей:

Type      | Impact on UI | Impact on caller execution
----------|--------------|-----------------------------
Modal     | Blocked      | Blocked until Form is closed
Modeless  | Not blocked  | Continues

Если вы хотите заблокировать пользовательский интерфейс и позволить вызывающему абоненту продолжить, вам нужно открыть форму в модальном режиме с помощью Application.OnTime.