אופיס 365 המרת קוד VBA מ-32bit ל- 64 bit

[>השראה<]

יש מישהו שיכול לעזור לי עם זה גיגלתי הרבה ולא מצאתי את הפיתרון הסופי לחידה.

 

[moishy]

איזה קוד צריך המרה?

 

[>השראה<]

קוד VBA למשל מה שהיה כאן בעבר והוא הדין לכל סוגי הקודים השונים כדוגמתו.

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

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

 

[FullTime]

צריך להוסיף PtrSafe

#If VBA7 Then
Declare PtrSafe Sub...
#Else
Declare Sub...
#EndIf

ראה כאן בארוכה
וכאן מישהו שאל את השאלה שלך.

 

[moishy]

צריך להוסיף PtrSafe

#If VBA7 Then
Declare PtrSafe Sub...
#Else
Declare Sub...
#EndIf

ראה כאן בארוכה
וכאן מישהו שאל את השאלה שלך.

זה נכון אבל לא מדוייק, יש הבדלים נוספים שקשור לסוגי משתנים.

 

[>השראה<]

#If VBA7 Then Declare PtrSafe Sub... #Else Declare Sub... #EndIf

גם אני מצאתי את הקוד הזה אך זה לא עוזר...

אם למישהו יש איזשהו קוד שיעזור אני אודה לו מאד.

 

[moishy]

תנסה

#If VBA7 Then
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As LongPtr) As Long

Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, _
    ByVal nDEvent As Long) As Long
#Else
Declare Function SetTimer Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" _
    (ByVal hwnd As Long, _
    ByVal nIDEvent As Long) As Long
#End If

 

[>השראה<]

תנסה
#If VBA7 Then
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As LongPtr) As Long

Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nDEvent As Long) As Long
#Else
Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
#End If

הוא מחזיר את אותה שגיאה.

סתם כך מהחלק Declare Function הראשון כבר יש לי בקוד.

אם יש למישהו רעיון או קוד אחר שיעזור אודה לו מאד.

 

[FullTime]

אם זכור לי טוב, אם לא מוישי ימחה בי..

זה שהוא אדום זה לא תמיד שגיאה.
הIF עם הסולמית מראה את זה באדום, אבל עובד.

 

[moishy]

הוא מחזיר את אותה שגיאה.

ומהי אותה שגיאה, אם מותר לדעת?

סתם כך מהחלק Declare Function הראשון כבר יש לי בקוד.

אכן, אין זה סוד

 

[moishy]

אם זכור לי טוב, אם לא מוישי ימחה בי..

זה שהוא אדום זה לא תמיד שגיאה.
הIF עם הסולמית מראה את זה באדום, אבל עובד.

צודק לגמרי. המהדר מתעלם מכל מה שכתוב בתנאי שלא רלוונטי עבורו. תוכל לכתוב שם מה שתרצה ולא תהיה בעיה למרות שזה יהיה אדום.

 

[>השראה<]

מוישי תודה רבה אין עליך...

הכל עובד.

 

[moishy]

מה בכל זאת היתה הבעיה?

 

[>השראה<]

מה בכל זאת היתה הבעיה?

העברתי את הקוד הנ"ל לקובץ אחר ואז הוא הציג לי שגיאה על השורה האחרונה:

Global iCounter As Integer

מה זה אומר ?

 

[moishy]

העברתי את הקוד הנ"ל לקובץ אחר ואז הוא הציג לי שגיאה על השורה האחרונה:

Global iCounter As Integer

מה זה אומר ?

שורה אחרונה?!
זה הבעיה זה צריך להיות לפני הכל.

 

[>השראה<]

אתה צודק לא שמתי לב.