ظهور رسالة خطأ عند تشغيل اكوادvba..أرجو المساعدة

[البراء مصطفى]

السلام عليكم ورحمة الله وبركاته

أنا عندى اوفيس 2013 نسخة 64 بت

وكثيرا تواجهنى مشكلة عند تشغيل الاكواد

والرسالة التى تظهر كما بالمرفقات

نرجو المساعدة ... لانى محروم من الكثير من التطبيقات بسبب ذلك

وجزاكم الله خيرا مقدما  

[شوقي ربيع]

السلام عليكم

بما ان نضامك 64 واغلب الاكواد التي تطرح في المنتدى تعرف على النضام 32

فهذا اكيد انو مش راح تشتغل معاك

جرب تغيير عبارة user32 ب user64

[الخالدي]

السلام عليكم ورحمة الله

اضافة الى رأي الاستاذ الفاضل/ شوقي ربيع حفظة الله

قم باضافة  كلمة PtrSafe بعد كلمة Declare

واذا ترغب بان يعمل الكود على 64 او32 بت استخدم الدالة #If على الشكل التالي

#If VBA7 Then
Declare PtrSafe ...
#Else
Declare ...
#End If

في احيان اخرى قدم يلزم تعديل نوع المتغير

في امان الله

[البراء مصطفى]

السلام عليكم

بما ان نضامك 64 واغلب الاكواد التي تطرح في المنتدى تعرف على النضام 32

فهذا اكيد انو مش راح تشتغل معاك

جرب تغيير عبارة user32 ب user64

جزاك الله خيرا أ/ شوقى ربيع لكن للأسف لم تفلح معى هذه المحاولة

وبالمناسبة أنا معجب بإتقانك "وحركاتك " فى الأكسيل .... هل تسمح لى أن أستخدمها فى برامجى؟

[البراء مصطفى]

 

السلام عليكم ورحمة الله

اضافة الى رأي الاستاذ الفاضل/ شوقي ربيع حفظة الله

قم باضافة  كلمة PtrSafe بعد كلمة Declare

واذا ترغب بان يعمل الكود على 64 او32 بت استخدم الدالة #If على الشكل التالي

#If VBA7 Then
Declare PtrSafe ...
#Else
Declare ...
#End If

في احيان اخرى قدم يلزم تعديل نوع المتغير

في امان الله

 

جزاكم الله خيرا أ/ الخالدى

أما بالنسبة للطريقة الأولى فقد نجحت معى

أما عن الطريقة الثانية فلم أعرف أين أضع هذا الكود؟

وللمرة الثانية شكرا كثيرا .... وأعزكم الله وجعله فى موازين أعمالكم