بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
602 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عبدالله الصاري
-
الكود هذا مش راضي يشتغل معي يرجي المساعده
عبدالله الصاري replied to mailk najeeb's topic in منتدى الاكسيل Excel
تصحيج للكود المصنف1.xlsm- 1 reply
-
- 1
-
استفسارات تتعلق بالتكست بوكس والكومبوبوكس
عبدالله الصاري replied to يوسفي's topic in منتدى الاكسيل Excel
بالنسبة للفورم كما اشرت سابقا انه للعلامة عبدالله باقشير والفورم له اكثر من اصدار اخرها الاصدار الرابع وبه اظهار الصور التكست بوكس مرن كلما اضفت عمود في الصفجة مع تحديد النظاق يقوم الفورم بفتح تكت بوكس جديد كما في الصورة, لعمل قائمة منسدلة وذلك عن طريق ادراج تعليق في الخلية بالنسبة للتوسيط تم تعديله رابط الموضوع الرئيسي الاصدار الثالت والرابع ,عند تجمبل الملف تجد شرحا لاستحذام الفورم https://www.officena.net/ib/topic/52300-امثلة-على-طباعة-السجل-من-فورم-ادخال-وتعديل-وبحث/ https://www.officena.net/ib/topic/52482-الاصدار-الرابع-فورم-اضافة-وبحث-وتعديل-مرن-مع-استعراض-الصور-تحكم-كامل-بالصورة/ اتمنى اني قدمت ما يفيد yousef.xlsb -
وعليكم السلام ورحمة الله وبركاته الحفظ في D يمكنك تغيره في الكود backup.xlsm
- 1 reply
-
- 1
-
استفسارات تتعلق بالتكست بوكس والكومبوبوكس
عبدالله الصاري replied to يوسفي's topic in منتدى الاكسيل Excel
السلام عليكم بعد اذن استاذنا الفاضل حسين مامون طبقت فورم بالمنتدى للسيد غبدالله باقشير غلى ملفك واعتقد ان فيه طلبك وزيادة الترقيم تلقائي غند الحذف يقوم يحذف الصف كله ويتم إزاحة الصفوف التالية مكانة فلا يترك الصف خالي مع تحديث الترقيم يمكن البحت بما تشاء بالاسم او الرقم الوطني او باي رؤوس العناوين كما يمكنك طباعة بيانات اي موظف بورقة خاصة به كما يمكنك الانتقال الى الاسم من الفورم بالضغط على الزر GO كما يعطيك عدد الاسماء المسجلة يمكنك التعديل والاظافة والحذف حسب الازارار الموجودة ويجب الضغط على زر حفظ التغيرات عند التعديل طبعا الفورم يعتمد على صفجة القوائم وتم اخفائها الزر باسم فورم ادخال اتمنى ان يلبى طلبك الفورم الخاص بك تم اظافة معادلة العدد الى الكود كما تم عمل كمبوكس الخيارات بواسطة الكود ولا يعتمد غلى صفحة القوائم تحياتي yousef.xlsb -
كلمات تتحرك داخل الفورم باستخدام WebBrowser
عبدالله الصاري replied to مجدى يونس's topic in منتدى الاكسيل Excel
بارك الله فيك وبك حاج يونس موضوعاتك مفيدة وجديدة -
عزيزى احمد بدون ملف لن تجد تجاوب .ارفق ملفك وبه الكود ليقوم الاعضاء بحل المشكة
- 1 reply
-
- 1
-
شكرا اخي هاني غلى افادتكم وجزاك الله كل خير
-
لم تنقل الدالة صحيحة الى ملفك كما اخبرتك لا يمكنني التجربة لان جهازي يعمل على 32 بث تم اظافة الكود السابق لملفك على الفورم1 ويشتغل على جهازي بكفاءة جرب الملف وان لم يشتغل نتمنى من لديه نظام 64 تقديم المساعدة برنامج صلاحيات المستخدمين اصدار (3).xlsm
-
اخي لا استطيع ان اجزم سبب الخطأ ولكن هناك اكواد لا تشتغل على 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) As Long Private Const Gvl_style As Long = (-16) Private Const ws_thinkfime As Long = &H4000 Const min_box As Long = &H20000 Const max_box As Long = &H10000 Private Declare PtrSafe Function droemenubar Lib "user32.dll" (ByVal hvnd As Long) As Long Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr او هذه #If VBA7 Then #If Win64 Then Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr #Else 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) As Long #End If Private Declare PtrSafe Function WindowFromAccessibleObject Lib "oleacc" (ByVal pacc As IAccessible, phwnd As LongPtr) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32.dll" (ByVal hWnd As LongPtr) As Long Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long Private hWnd As LongPtr Private lStyle As LongPtr #Else Private Declare Function WindowFromAccessibleObject Lib "oleacc" (ByVal pacc As IAccessible, phwnd As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hWnd As Long) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private hWnd As Long Private lStyle As Long #End If Private Const GWL_STYLE = -16 Private Const WS_SYSMENU = &H80000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_THICKFRAME = &H40000 Private Const WM_SYSCOMMAND = &H112 Private Const SC_MAXIMIZE = &HF030& Private dInitWidth As Single Private dInitHeight As Single لا أستطيع التجربة لأن الويندوز لدي 32 بت واتمنى من لديه 64 بث تقديم المساعدة
-
وعليكم السلام ورحمة الله وبركاته اغتقد ان اوفيس 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.com/vba/32-bit-and-64-bit-api-declarations-for-vba-developers/
-
سلسلة تعليم بور كويري الجزء الخامس جلب بيانات من ملف مغلق
عبدالله الصاري replied to mmagedmemo's topic in منتدى الاكسيل Excel
جزاك الله خيرا استاذنا الفاضل -
هل من كود لعمل هيدر طباعة بما هو مكتوب فى خلية
عبدالله الصاري replied to zahraamohamed's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته الملف وبه الكود headr.xlsm -
ادراج قيمة خلية في هامش الطباعة في شيت اكسيل
عبدالله الصاري replied to سامي ابو ريم's topic in منتدى الاكسيل Excel
لو ارفقت ملفا لقمنا بادراج الكود به ملف به كودان ورقة1 اصغظ الزر ورقة 2 كود في حدث الصفحة تذييل.xlsb -
طريقة عمل ايقونة عكس مثل التي في برامج تحويل العملات
عبدالله الصاري replied to العميل السـري's topic in منتدى الاكسيل Excel
حسب فهمي من طلبك ايقونة للضرب وايقونة للقسمة اكتب في ملفك مثالين او ثلات وجدد الخلية التي سيكون فيها عملية الضرب والقسمة اخنصار للوقت لك تحياتي -
ادراج قيمة خلية في هامش الطباعة في شيت اكسيل
عبدالله الصاري replied to سامي ابو ريم's topic in منتدى الاكسيل Excel
سؤالك بدون ملف . وطلبك عير واضح على الاقل بالنسبة لي اذا كان طلبك ادراج قيمة خلية من صفجة وادراجها في تذييل الصفحة فيمكنك استخذام هذا الكود Sub FooterFrom_P1() With ActiveSheet.PageSetup .RightFooter = "&14&""Arial,Bold""" & Range("a1").Value End With End Sub شرح الكود RightFooter تذييل يمين 14 حجه الخط Arial,Bold نوع الخط Range("a1").Value قيمة الخلية من الصفجة ويمكنك التعديل في الكود اذا كان التذييل يسار او وسط هذا حسب فهمى لسؤالك وان غير ذلك ارفق ملفا حفظك الله ورعاك -
ظهور رسالة خطأ في كود ميكروا هام جداً
عبدالله الصاري replied to خليل القيسي's topic in منتدى الاكسيل Excel
تم تغيير اسم الشيت الى الحروف الانجليزية اصل التقارير.xlsm التقارير.xlsm -
ظهور رسالة خطأ في كود ميكروا هام جداً
عبدالله الصاري replied to خليل القيسي's topic in منتدى الاكسيل Excel
قمت بتحميل الملفات مرة اخرى وجربتها وتعمل بكفأءة وليس بها اي مشكلة جرب الملف على جهاز اخر ربما لديك خلل في الاوفيس او يقوم احد الاعضاء بتجربته ويعلمنا النتيجة Sub OECUE1() Sheets("استمارة متابعة").Activate Range("H2").Activate [H2] = 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("x2").Value Range("H2").Activate [H2] = 1 End Sub -
ظهور رسالة خطأ في كود ميكروا هام جداً
عبدالله الصاري replied to خليل القيسي's topic in منتدى الاكسيل Excel
هو نفس كود الاستاذ غلي تم تنفيذه على ملفك اصل التقارير والاسماء عدد الآيات..xlsm اصل التقارير والاسماء عدد الاوجه (1).xlsm -
ظهور رسالة خطأ في كود ميكروا هام جداً
عبدالله الصاري replied to خليل القيسي's topic in منتدى الاكسيل Excel
اخي الفاضل ....السلام عليكم الكود في الملف الاول به طباعة صفخة اسمها H2 وفي ملفك لا يوجد صفحة بهذا الاسم الكود في الملف الثاني به طباعة صفخة WORKSHEETولا يوحد في ملفك صفحة بهذا الاسم فمن الطبيعي ظهور الحطأ الحل بسيط جدا استبدل في الكود في الملفين Sheets("H2").Activate Sheets("workbooks").Activate بدل H2 و workbooks ضع بدلهما استمارة متابعة وسيعمل الكود باذن الله ولو اانك رجعت الى مشاركتك السابقوالتي اجابك فيها الاستاذ علي لا كتفيت بها ولاغناك عن طلبك هذا اضغط على الرابط لمشاهدة مشاركتك السابقة لكم وافر التقدير والاحترام