Чтобы преобразовать длинное целое число в двоичное представление в Excel VBA, вы можете использовать несколько методов. Вот несколько подходов:

Метод 1: использование функции WorksheetFunction.Dec2Bin

Dim value As Long
Dim binary As String
value = 123456 ' Replace with your long integer value
binary = WorksheetFunction.Dec2Bin(value)

Метод 2: использование оператора побитового сдвига

Dim value As Long
Dim binary As String
value = 123456 ' Replace with your long integer value
binary = ""
While value > 0
    binary = CStr(value And 1) & binary
    value = value \ 2
Wend

Метод 3: использование функции StrConv

Dim value As Long
Dim binary As String
value = 123456 ' Replace with your long integer value
binary = StrConv(CStr(value), vbUnicode)
binary = Replace(binary, vbNullChar, "")

Метод 4. Использование рекурсивной функции

Function ConvertToBinary(ByVal value As Long) As String
    If value <= 0 Then
        ConvertToBinary = ""
    Else
        ConvertToBinary = ConvertToBinary(value \ 2) & CStr(value Mod 2)
    End If
End Function
Dim value As Long
Dim binary As String
value = 123456 ' Replace with your long integer value
binary = ConvertToBinary(value)

Эти методы преобразуют длинное целое значение в его двоичное представление в Excel VBA. Выберите метод, который лучше всего соответствует вашим требованиям.