안녕하세요~

지금 올리신 타이머 코드는

64비트 Excel/VBA에서는

PtrSafe, LongPtr, LongLong 선언이 운영체제의 64비트 WinAPI와 잘 맞아서

컴파일도 실행도 잘 맞습니다.

​

​

하지만

32비트 Excel/VBA에서는

특히 구버전 VBA6, Office 2007이하에서

PtrSafe, LongPtr, LongLong 자체를 인식하지 못하고,

또 어떤 경우에는 인식은 하고 있지만,

WinAPI 선언부의 LongLong이 Win32 API 시그니처와 안 맞아서

​

​

결과적으로

처음에는 타입을 모르니 선언 문법오류로

컴파일 오류가 나고

​

또한 타입을 바꾸다보면 컴파일은 통과하지만

이번에는 실행 중 API 호출이 깨져서

런타임 에러가 나는 상황일 수 있습니다.

따라서

코드를 VBA버전에 따라 VBA7 여부와 비트수(32/64bit)에 맞게

조건부 컴파일 해서

VBA7(Office 2010 이상)은 PtrSafe, LongPtr 사용하도록 하고,

VBA6(Office 2007 이하)는 PtrSafe, LongPtr 없이 Long 사용하도록 합니다.

​

​

WinAPI 시그니처는

64bit의 포인터 자리는 LongPtr

32bit의 포인터 자리는 Long

LongLong은 “포인터 표현용 타입”으로는 64bit 전용에 가깝고,
숫자 연산용으로는 32bit VBA7에서도 쓸 수 있지만

Win32 API 포인터 자리에서는 절대 쓰면 안됩니다.

​

​

1. "같은 코드인데 64비트 Excel에서는 문제 없이 잘 돌아가는데,

32비트 Excel에서는 컴파일 에러가 나거나, 변수 선언이 잘못됐다고 나옵니다.

이유가 뭔가요?”

​

이는

VBA버전과 비트수가 다르기 때문입니다.

올려주신 선언부는 VBA7 + 64bit 기준으로 맞춰져 있기 때문입니다.

Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ...

Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As LongPtr, ...

Private Function ActivateTimer(ByVal Seconds As Long, FunctionAddress As LongLong, ...

​

PtrSafe, LongPtr, LongLong 은 전부 구버전(32bit VBA6)에서는 모르는 타입이라서

바로 컴파일 에러가 터집니다.

​

​

Office 2010 이후 32bit 환경이라도

LongLong은 64bit 전용 개념이라 32bit WinAPI 시그니처와 안 맞아서 문제가 됩니다.

​

그래서 32bit 쪽에서 맞추려면

PtrSafe를 쓸 수도 있고 (VBA7), 아닐 수도 있고 (VBA6)

​

포인터 타입을 Long 또는 LongPtr로 상황에 맞게 바꿔야 하는데,

이것을 조건부 컴파일(#If VBA7 Then …) 로 나누지 않으면

한쪽은 항상 에러가 납니다.

​

2. “32bit에서 컴파일 에러를 없애보려고 타입을 바꾸다 보면,

컴파일은 잘 되는데 [시작] 버튼을 누르면 런타임 에러가 뜹니다.

왜 이런가요?”

​

이는,

WinAPI 선언과 실제 함수 시그니처가 다르면

컴파일은 통과했을지라도

실제 호출 시 스택이나 포인터가 꼬여서 실행 중에 크래시나 런타임 에러가 발생합니다.

​

​

예를 들어
좀 단순화했지만, SetTimer는 실제 Win32 API에서 이런 형태입니다.

UINT_PTR SetTimer(HWND hWnd, UINT_PTR nIDEvent, UINT uElapse, TIMERPROC lpTimerFunc);

​

32bit에서는 UINT_PTR, HWND, 함수 포인터 등이 4바이트(Long)이고,

64bit에서는 이 값들이 8바이트(LongLong)가 됩니다.

VBA에서는 이를 LongPtr로 추상화합니다.

​

그런데 32bit 환경에서

Private Function ActivateTimer(ByVal Seconds As Long, FunctionAddress As LongLong, ...

라고 해버리면

콜백 함수 주소를 8바이트 타입처럼 다루게 되고

​

실제 Win32 API는 4바이트 포인터를 기대하는데

바로 스택이 틀어지면서 런타임 에러가 납니다.

​

즉,

“컴파일이 된다”라는 것이 꼭 “타입이 맞다”는 아닙니다.

​

​

운영체제의 실제 함수 정의에 맞춰서

32bit에서는 포인터 타입을 Long, 64bit에서는 LongPtr로 맞춰줘야

비로소 런타임까지 안전하게 됩니다.

3. “위의 시계를 64bit와 32bit 둘 다에서 컴파일/실행이 모두 되게 하려면,

SetTimer / KillTimer, 그리고 콜백 함수 선언을 어떻게 써야 하나요?

#If Win32 / #Else Win64를 써봤지만 실패했습니다.”

이에 대한

핵심 포인트는 세 가지입니다.

​

첫번째 기준은 Win32/Win64가 아니라
VBA7 여부부터 결정해야 합니다.

​

MS에서 공식으로 제시하는 패턴은


https://learn.microsoft.com/en-us/office/client-developer/shared/compatibility-between-the-32-bit-and-64-bit-versions-of-office

#If VBA7 Then … #Else … #End If

입니다.

​

​

VBA7인 경우에만 PtrSafe, LongPtr 키워드를 지원하기 때문에

구버전(VBA6)에서는 이 키워드 자체가 문법적 에러가 발생합니다.

#If Win32 Then

...

#Else Win64 Then '// <- #ElseIf 여야 하고, 보통 이렇게 직접 쓰지 않습니다

#End If

​

이 코딩을

​

If VBA7 Then
    ' // Office 2010 이상 (32/64bit 둘 다)
#Else
    ' // Office 2007 이하
#End If

​

이렇게 코딩해야 합니다.
그리고 필요하다면 #If Win64 Then을 안쪽에서 추가로 쓰는 식입니다.

​

두 번째, 포인터 타입은 VBA7에서는 LongPtr, 구버전에서는 Long

64bit에서 Long은 여전히 4바이트라서 포인터 크기와 안 맞고,

이걸 해결하려고 나온 게 LongPtr입니다.

​

하지만 VBA6에는 LongPtr이 없으니,

​

VBA7은 LongPtr

VBA6은 Long

이렇게 조건부로 나눠야 합니다.

​

#If VBA7 Then

Private Declare PtrSafe Function SetTimer Lib "user32" ( _

ByVal hWnd As LongPtr, _

ByVal nIDEvent As LongPtr, _

ByVal uElapse As Long, _

ByVal lpTimerFunc As LongPtr) As LongPtr

#Else

Private Declare Function SetTimer Lib "user32" ( _

ByVal hWnd As Long, _

ByVal nIDEvent As Long, _

ByVal uElapse As Long, _

ByVal lpTimerFunc As Long) As Long

#End If

​

마찬가지로 KillTimer, TimerID 변수도 같은 패턴으로 맞춰야 합니다.

​

그리고 세 번째, LongLong은 아예 쓰지 않는 편이 안전합니다.

​

LongLong은 64bit에서 유용하지만,

WinAPI 선언에서는 이미 LongPtr이 포인터 사이즈를 추상화해 주고,

​

VBA6에서는 LongLong을 아예 지원하지 않고,

VBA7 32bit에서는 LongLong은 “일반 숫자 계산용”으로는 사용할 수 있지만,

포인터 자리(WinAPI 호출)에는 쓰면 안됩니다.

Win32 API 시그니처와 맞지 않아 런타임 문제를 만들 가능성이 크니,

따라서 이 케이스에서는,

“콜백 주소(AddressOf … 받는 자리)”도 LongPtr(VBA7) / Long(VBA6) 조합으로 맞추고

LongLong은 사용하지 않는 것이 좋습니다.

4. “위 시계가 64bit 와  32bit 모두 양쪽에서 아무 컴파일에러도 없이 잘 돌아가게 소스를 고쳐주시면 ...”

Option Explicit

'// =========================
'// 공통 변수
'// =========================
Private Count As Long

#If VBA7 Then
    '// Office 2010 이상 (32/64bit 모두 포함) : PtrSafe / LongPtr 사용

    Private Declare PtrSafe Function SetTimer Lib "user32" ( _
        ByVal hWnd As LongPtr, _
        ByVal nIDEvent As LongPtr, _
        ByVal uElapse As Long, _
        ByVal lpTimerFunc As LongPtr) As LongPtr

    Private Declare PtrSafe Function KillTimer Lib "user32" ( _
        ByVal hWnd As LongPtr, _
        ByVal nIDEvent As LongPtr) As Long

    Public TimerID As LongPtr     '// 타이머 ID(포인터 크기와 맞춤)

#Else
    '// Office 2007 이하 (무조건 32bit) : PtrSafe / LongPtr 없음

    Private Declare Function SetTimer Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal nIDEvent As Long, _
        ByVal uElapse As Long, _
        ByVal lpTimerFunc As Long) As Long

    Private Declare Function KillTimer Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal nIDEvent As Long) As Long

    Public TimerID As Long        '// 32bit에서는 그냥 Long 사용

#End If


'// =========================
'// 외부에서 호출하는 엔트리
'// 버튼 [시작] / [정지]에 연결
'// =========================
Public Sub StartCount()
    '// 최초 카운트 초기화
    Count = 0
    
    '// 1초마다 타이머 (원하면 3으로 바꿔서 3초마다로 가능)
    StartTimer 1
End Sub

Public Sub StopCount()
    DeactivateTimer TimerID
End Sub

Public Sub StartTimer(ByVal Seconds As Long)
    '// Seconds 간격(초)으로 Timer 시작
    ActivateTimer Seconds, AddressOf TriggerEvent, TimerID
End Sub


'// =========================
'// SetTimer가 호출하는 콜백
'// 파라미터 타입이 32/64bit에 맞아야 함
'// =========================
#If VBA7 Then
Private Sub TriggerEvent( _
    ByVal hWnd As LongPtr, _
    ByVal uMsg As Long, _
    ByVal idEvent As LongPtr, _
    ByVal SysTime As Long)   '// DWORD는 4바이트
#Else
Private Sub TriggerEvent( _
    ByVal hWnd As Long, _
    ByVal uMsg As Long, _
    ByVal idEvent As Long, _
    ByVal SysTime As Long)
#End If

    On Error Resume Next
    EventFunction
End Sub


'// =========================
'// 타이머 시작/정지 내부 함수
'// =========================
#If VBA7 Then

Private Function ActivateTimer( _
    ByVal Seconds As Long, _
    ByVal FunctionAddress As LongPtr, _
    ByRef tID As LongPtr)

#Else

Private Function ActivateTimer( _
    ByVal Seconds As Long, _
    ByVal FunctionAddress As Long, _
    ByRef tID As Long)

#End If

    On Error Resume Next
    
    '// 이미 돌고 있지 않을 때만 새로 시작
    If tID = 0 Then
        tID = SetTimer(0, 0, Seconds * 1000, FunctionAddress)
    End If
End Function


#If VBA7 Then

Private Function DeactivateTimer(ByRef tID As LongPtr)

#Else

Private Function DeactivateTimer(ByRef tID As Long)

#End If

    On Error Resume Next
    
    If tID <> 0 Then
        If KillTimer(0, tID) <> 0 Then
            tID = 0
        End If
    End If
End Function


'// =========================
'// 매 틱마다 실제로 하고 싶은 작업
'// =========================
Private Sub EventFunction()
    On Error Resume Next
    
    Dim tm As Date
    tm = Time
    
    With ThisWorkbook.Worksheets("Sheet1")   '// 시트명 맞게 수정
        .Cells(1, 1).Value = Format$(tm, "hh:nn:ss")   '// A1에 12:32:00 형식 표기
    End With
    
    Count = Count + 1
    'Debug.Print "Count:" & Count & " now:" & tm
End Sub