Поместить код Excel-VBA в модуль или лист?

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

Пример: Любой код, который использует события рабочего листа, такие как Worksheet_SelectionChange или Worksheet_Calculate.

Я бы предложил разделить ваш код на основе функциональности и назначения, характерных для каждого листа или модуля. Таким образом, вы только ставите код относительно листа UI внутри модуля листа и только ставите код, связанный с модулями в соответствующих модулях. Кроме того, используйте отдельные модули для инкапсуляции кода, который используется совместно или повторно используется для нескольких разных листов.

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

Это может быть сделано так.

Модуль: DataAccess:

Function GetData(strTableName As String, strCondition1 As String) As Recordset
    'Code Related to getting data from the database'
End Function

Модуль: PopulateSheet:

Sub PopulateASheet(wsSheet As Worksheet, rs As Recordset)
    'Code to populate a worksheet '
End Function

Лист: Код Sheet1:

Sub GetDataAndPopulate()
    'Sample Code'
     Dim rs As New Recordset
     Dim ws As Worksheet
     Dim strParam As String
     Set ws = ActiveSheet
     strParam = ws.Range("A1").Value

     Set rs = GetData("Orders",strParam)

     PopulateASheet ws, rs
End Sub

Sub Button1_Click()
    Call GetDataAndPopulate
End Sub