Я пошел бы с самой простой моделью; каждым вопросом является заголовок с ответами в тегах абзаца. Ясный, логичный и семантически нормальный, я думаю.
причина я не использовал бы упомянутые теги списка определения, то, что я не думаю с чистой семантической точки зрения, что вопросы и ответы соответствуют форме чистых условий и определений.
Application.Wait Now + #0:00:01#
или (для Excel 2010 и более поздних версий):
Application.Wait Now + #12:00:01 AM#
Add this to your module
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Or, for 64-bit systems use:
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Call it in your macro like so:
Sub Macro1()
'
' Macro1 Macro
'
Do
Calculate
Sleep (1000) ' delay 1 second
Loop
End Sub