Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عبدالله الصاري

Expert
  • Content Count

    542
  • Joined

  • Last visited

Community Reputation

294 Excellent

8 Followers

About عبدالله الصاري

  • Rank
    عبدالله بشير الصاري
  • Birthday 01/25/1964

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    مفتش تقني
  • Location
    ليبيا
  • Interests
    الاكسل+القراءة

Recent Profile Visitors

2,049 profile views
  1. عزيزى احمد بدون ملف لن تجد تجاوب .ارفق ملفك وبه الكود ليقوم الاعضاء بحل المشكة
  2. شكرا اخي هاني غلى افادتكم وجزاك الله كل خير
  3. لم تنقل الدالة صحيحة الى ملفك كما اخبرتك لا يمكنني التجربة لان جهازي يعمل على 32 بث تم اظافة الكود السابق لملفك على الفورم1 ويشتغل على جهازي بكفاءة جرب الملف وان لم يشتغل نتمنى من لديه نظام 64 تقديم المساعدة برنامج صلاحيات المستخدمين اصدار (3).xlsm
  4. اخي لا استطيع ان اجزم سبب الخطأ ولكن هناك اكواد لا تشتغل على 64 حتى ان تم اصلاح هذا الخطأ توقع ظهور اخطاء غيرها استبدل الاربع سطور الاولى بالدالة التالية Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long
  5. وعليكم السلام ورحمة الله وبركاته اغتقد ان اوفيس 2010 يشتغل على 32 بث اما الاخر 2013 يشتغل على 64 بث ولهذا يظهر الخطأ ضع هذه الدالة " PtrSafe " بين كلمتى "Declare" و "Function"فى كل سطر تجد فيه هاتين الكلمتين Private Declare PtrSafe Function SetWindowLong Lib "User32.dll" Alias "SetWindowLongA" (ByVal HWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLongPtr As LongPtr) As LongPtr Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ربما هذا الرابط به الافادة https://xlttn
  6. وعليكم السلام ورحمة الله وبركاته الملف وبه الكود headr.xlsm
  7. عند فتح الملف طالب بتمكين الماكرو وبعد التمكين اشتغل على جهازي اوفيس 2010 ويندوز 7 وكما افادك الاستاذ عبد الفتاح اويمكنك تشغيله غن طريق تحويل الملف الىexe الصندوق التعاوني.rar
  8. لو ارفقت ملفا لقمنا بادراج الكود به ملف به كودان ورقة1 اصغظ الزر ورقة 2 كود في حدث الصفحة تذييل.xlsb
  9. حسب فهمي من طلبك ايقونة للضرب وايقونة للقسمة اكتب في ملفك مثالين او ثلات وجدد الخلية التي سيكون فيها عملية الضرب والقسمة اخنصار للوقت لك تحياتي
  10. سؤالك بدون ملف . وطلبك عير واضح على الاقل بالنسبة لي اذا كان طلبك ادراج قيمة خلية من صفجة وادراجها في تذييل الصفحة فيمكنك استخذام هذا الكود Sub FooterFrom_P1() With ActiveSheet.PageSetup .RightFooter = "&14&""Arial,Bold""" & Range("a1").Value End With End Sub شرح الكود RightFooter تذييل يمين 14 حجه الخط Arial,Bold نوع الخط Range("a1").Value قيمة الخلية من الصفجة ويمكنك التعديل في الكود اذا كان التذييل يسار او وسط هذا حسب فهمى لسؤالك وان غير ذلك ارفق ملفا حفظك الله ورعاك
×
×
  • Create New...