Как запустить несколько кодов VBA

Question

Я довольно новичок в использовании VBA в Excel, но мне было интересно, есть ли способ запустить несколько кодов одновременно?

Моя цель - сделать несколько вещей: сначала мне нужно вставить столбец, затем добавить заголовок столбца, затем добавить формулу в ячейку ниже и скопировать формулу для всех строк.

На данный момент у меня есть этот код для ввода строки, а затем заголовка, но он не будет работать, если я не буду запускать их по отдельности. есть ли текст, который мне нужно ввести, чтобы объединить их, чтобы при запуске он запускал все сразу? Спасибо!

Sub AddColumns()

Worksheets(1).Range("AH1").EntireColumn.Insert

End Sub

Sub AddHeader()

    Worksheets(1).Range("AH1").Formula = "Group A"

End Sub

Answer 1

Другой метод - просто вызвать их обоих из другой подпрограммы.

Sub Main()

    AddColumns
    AddHeader

End Sub

Sub AddColumns()

    Worksheets(1).Range("AH1").EntireColumn.Insert

End Sub

Sub AddHeader()

    Worksheets(1).Range("AH1").Formula = "Group A"

End Sub  

Answer 2

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

Попробуйте поместить все свои строки в одну подпрограмму:

Sub AddColumnsAndHeaders()

Worksheets(1).Range("AH1").EntireColumn.Insert
Worksheets(1).Range("AH1").Formula = "Group A"

End Sub