Какие знаешь модификаторы для директивы VBA INT?

Коллега, позвольте уточнить: в контексте Visual Basic for Applications (VBA) директива #If используется для условной компиляции, а не #Int. Возможно, вы имели в виду именно модификаторы или операторы для директивы #If. Я подробно расскажу об этом, а также о контексте условной компиляции в VBA, так как это фундаментальная тема для создания гибкого, поддерживаемого кода, особенно в проектах, которые должны работать в разных версиях Office (Excel, Access, Word) или операционных системах.

Директива #If...Then...#Else и её структура

Директива #If позволяет компилятору VBA включать или исключать блоки кода на этапе компиляции (в отличие от обычного If...Then, который работает во время выполнения). Это мощный инструмент для создания единой кодовой базы под разные условия.

Базовый синтаксис:

#If УСЛОВИЕ Тогда
    ' Код, компилируемый, если УСЛОВИЕ = True
#ElseIf ДРУГОЕ_УСЛОВИЕ Тогда
    ' Код для альтернативного условия
#Else
    ' Код по умолчанию, если ни одно условие не True
#End If

Ключевые "модификаторы" — константы условной компиляции

Сама директива #If не имеет "модификаторов" в классическом понимании. Её работа целиком определяется константами условной компиляции. Их значение проверяется на этапе компиляции проекта. Их можно разделить на несколько категорий.

1. Встроенные (предопределенные) константы VBA/VB6

Эти константы доступны всегда и определяются средой или версией.

• Win16, Win32, Win64: Определяют разрядность операционной системы. Win32 является наиболее распространенным.

  #If Win64 Then
      Declare PtrSafe Function MyAPIFunction Lib "mylib.dll" (ByVal param As LongLong) As LongLong
  #ElseIf Win32 Then
      Declare Function MyAPIFunction Lib "mylib.dll" (ByVal param As Long) As Long
  #End If
  

• VBA6, VBA7: Позволяют определить версию VBA. VBA7 — ключевая константа для кода, совместимого с Office 2010 и новее, особенно для объявлений API с ключевым словом PtrSafe.

  #If VBA7 Then
      ' Используем LongPtr для указателей, которые корректно работают и в 32-х, и в 64-битных системах
      Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
  #Else
      ' Старый синтаксис для Office 2007 и ранее
      Declare Function GetActiveWindow Lib "user32" () As Long
  #End If
  

• Константы, зависящие от приложения Host:

    *   `Mac` — обычно `True` для Mac OS (хотя поведение может отличаться).
    *   Версионные константы, такие как `Access`, `Excel`, `Word`. Их значение — номер версии (например, `Excel12` для Excel 2007). Однако их использование менее надежно, чем кажется.

2. Пользовательские константы условной компиляции

Это основной инструмент, который вы определяете для управления логикой компиляции. Их можно задать двумя способами:

• В коде, с помощью директивы #Const:

  #Const DEBUG_MODE = True
  #Const APP_VERSION = "Pro"
  
  #If DEBUG_MODE Then
      Public Sub LogMessage(msg As String)
          Debug.Print "LOG: " & msg
      End Sub
  #Else
      Public Sub LogMessage(msg As String)
          ' В production-версии логирование отключено
      End Sub
  #End If
  

• Через IDE (Интегрированную Среду Разработки) VBA Editor:

    Это наиболее гибкий и рекомендуемый способ для управления конфигурациями сборки (например, Debug/Release).
    1.  Зайдите в `Tools` -> `Project Properties...`.
    2.  Перейдите на вкладку `General`.
    3.  В поле `Conditional Compilation Arguments` задайте константы. Синтаксис: `Константа1 = Значение1 : Константа2 = Значение2`.
        *   Пример для отладки: `DEBUG_MODE = 1 : USE_LOG = 1`
        *   Пример для production: `DEBUG_MODE = 0`

3. Логические операторы для условий

Внутри #If можно использовать стандартные логические операторы, что делает условия очень гибкими:

• And, Or, Not, Xor
• =, <>, >, <, >=, <=

#If (APP_VERSION = "Pro" And DEBUG_MODE = 1) Or FORCE_ADVANCED_FEATURES Then
    ' Компилируем расширенные функции только в Pro-версии в режиме отладки
    ' ИЛИ если явно принудительно включены
    Public Sub AdvancedFeature()
        ' ... код функции ...
    End Sub
#End If

Практические сценарии применения

• Разделение кода для 32-битных и 64-битных версий Office: Использование связки #If VBA7 And Win64 для корректного объявления API-функций Windows — это самый критичный и частый случай.
• Управление функциональностью разных редакций приложения: Создание "легкой" и "профессиональной" версий из одного исходного кода.
• Включение/отключение отладочного кода и логов: Полное исключение отладочных вызовов из production-сборки, что повышает производительность и безопасность.
• Кросс-платформенная разработка (Windows/Mac): Несмотря на сходство, API и некоторые возможности на Mac отличаются, и условная компиляция помогает это учесть.

Важное предупреждение

Директивы условной компиляции оцениваются один раз — в момент компиляции проекта в P-код или native-код. Они не могут зависеть от значений переменных или результатов выполнения функций, которые известны только во время выполнения программы. Все константы должны быть известны на момент запуска компиляции.

Таким образом, "модификаторами" для #If являются константы условной компиляции (как встроенные, так и пользовательские) и логические операторы, используемые для построения условий. Правильное их применение — признак зрелого подхода к разработке в VBA, позволяющего создавать устойчивые и легко адаптируемые решения.