نجوم المشاركات

لقد وجدت الحل بواسطة هذا الكود: curPath="f:\" xlWB.SaveAs FileName:=curPath, CreateBackup:=False

بسم الله الرحمن الرحيم الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن ولاه، أما بعد فأقدم للأخوة في هذا المنتدى ميدول دوال تقويم أم القرى يقوم على التحويل بين تقويم أم القرى وتقويم الأوفيس ويعمل على جميع برامج أوفيس أو vb6 وهو ليس مخصصًا للأكسس ولكن لجميع البرامج التي تقبل VBA. وهذا رابط التحميل: modUmAlQura_1.0.3.zip المصدر تم اضافة الملف السابق اعداده بواسطة أبو هادي لنفس الموضوع بواسطة محمد طاهر UmAlQura_20050122-AbuHadi.rar المصدر

اخي الفاضل ابو يحي نصحيتي اليك بالاتي ان تجعل اسماء الجدوال والحقول باسماء اجنبيه كي تسهل عليك مستقبلا وتساعد كمان بعمل الاكواد اي مثلا جدول المصاريف تسميه msarif والحقول بنفس الطريقه انا شاء الله وصلتك الفكره تحياتي اليك

نعم لائحة أسماء دون تكرار ومرتبة أبجدياً بدون ماكرو ولا فلتر فقط (معادلات) اللائحة تتجاهل الفراغات و الارقام (فقط نصوص) لرؤية المعادلات يكفي رفع الحماية عن الشيت/ بدون كلمة مرور ترتيب ابجدي.xlsx

جرب 1.xlsm

اذا كنت تريد من اكسل المراتب بين 1 ومئة مثلا 1 الأوّل 22 الثّاني والعشرون وهكذا ..... حمل هذا الملف Salim's Order.xlsm

Excel Options >> Trust Center >> Trust Center Setting >> Privacy Options >> Uncheck the Remove personal information from file properties on save

ملف >> خيارات >> مركز التوثيق >> اعدادات مركز التوثيق >> (ازل علامة الصح من ) ازالة المعلومات الشخصية من خصائص الملف عند الحفظ

تفضل هذا بالدالة المعرفة Reversestr Book1.xlsm

النماذج : في قاعدة بيانات للعميل : نحن محتاج نموذج واحد للتسجيل ونموذج اخر بعد تسجيل لكي يفتح نقدر ان نستخدم النموذج الدخول لكن هنا عملنا نموذج بسيط هذه صورهم في النموذج الاول نحتاج لزرين واحد للتحقيق التسجيل والثاني لاغلاق القاعدة البيانات ونحتاج ايضا ل كومبوبوكس واحد و ثلاث مربعات النصية وخالي من المصدر و والمهم هنا هو خصائص كومبوبوكس شوف الصور لخصائصه قمنا بعمل كومبوبوكس وبيكون لها عمودين وعطينا لكل عمود حجمه العمود الاول عطينا صفر لكي يختفى والعمود الثاني عطيناه 3 سنتيمتر وغيرنا نوع مصدر الصف الى فاليو ليست وكتبنا لمصدر الصف الكومبوبوكس نفس المصدر في حقل Midda فی جدول وتم منع ادخال شيء اخر عدى اللي مكتوبة في مصدر الصف لكومبوبوكس

أحسنت استاذى الكريم بارك الله فيك عمل رائع

طريقة ارجاع المؤشر الى التكست بوكس هي setfocus ويجب ان تكون في اخر الاجراء .. يعني لو ان الاكواد متداخلة باكثر من اجراء يجب تتبع كل التفريعات للاجراءات وتكون نهايتها بالـ setfocus ممكن يكون صعب فهم كلامي بدون مثال كصعوبة فهم اكوادك بدون رفع الملف

اتفضل اوفيسينا (1).accdb

تقدر تستخدم هذا ايضا xlWB.SaveAs "D:\Excel Destn Temp" & Format(Now, "YYYYMMDDHHNNSS") & ".xlsx"

هل هذا هو المطلوب ..... test.rar

استخدم استيراد وليس ربط .... في حالة الاستيراد يعمل كملف مستقل تماما ... بالتوفيق

وعليكم السلام يمكنك اضافة هذا الكود فى حدث ThisWorkbook وكلمة السر : 123 Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim z z = Application.InputBox("لإضافة ورقة عمل جديده ادخل باسورد الصلاحيه", "منتدى أوفيسنا") If IsNull(z) Or z = "" Or z = False Or z <> "123" Then Application.DisplayAlerts = False MsgBox "عفوا, لايمكنك اضافة اوراق اخرى", vbInformation, "منتدى أوفيسنا" Sh.Delete Application.DisplayAlerts = True End If End Sub

text to columns فصل الأرقام عن الحروف شرح أداة text to columns و كيف يمكن استعمالها في فصل الأرقام عن الحروف وفصل أي بيانات عن بعضها بشكل احترافي وبدون استخدام الدوال

السلام عليكم عندي ملف اكسيس فيه تقرير لرواتب للموظفين وهو يتكون من 5 صفحات اريد ان اجمع كل صفحه على لوحدها (حقل مجموع الراتب ) ومن ثم في الورقة النهائية يكون المجموع الكلي للرواتب علما اني استخدم اكسيس 2010 وشكرا لكم test.accdb

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته فهذه نسخة أخرى مع طريقة معلجة خطأ يمكن أن يحدث sewer.rar طريقة معلجة الخطا.rar

الحب في الله تعالى أوثق عرى الإيمان وهو منحة من الله لا يشترى بالمال . قال تعالى في بيان فضله على عباده المتحابين ( وَأَلَّفَ بَيْنَ قُلُوبِهِمْ لَوْ أَنفَقْتَ مَا فِي الأَرْضِ جَمِيعًا مَّا أَلَّفَتْ بَيْنَ قُلُوبِهِمْ وَلَكِنَّ اللهَ أَلَّفَ بَيْنَهُمْ إِنَّهُ عَزِيزٌ حَكِيمٌ ) . و قد جعل الله الحب في الله سببا للنجاة من النار و دخول الجنة ، ففي الحديث الصحيح المتفق عليه في السبعة الذين يظلهم الله تحت ظله ، منهم ( رجلان تحابا في الله ، اجتمعا عليه ، و تفرقا عليه ) المحبة في الله نعمة من الله ، فقد الأحبة في الله غربة ، والتواصل معهم أنس ومسرة ، هم للعين قرة ، فسلام على من دام في القلب ذكراهم ، وإن غابوا عن العين قلنا يا رب احفظهم وارعاهم . لا يوجد متسع للكلام ، أحبكم في الله جمعياً اخي في الله المبدع أ/ شوقي ربيع وثمرة التعاون المثمر بأذن الله بيننا ، نأتي من جديد في سلسة برامج ضاحي وشوقي الخدمية ، لتيسير ما امكن علي اخواننا , نفعنا الله واياكم بما علمنا ولا تنسونا بدعوة بصلاح الحال بظهر الغيب . كلمة مرور الأدمن admin VBA Password 6626 فورم تعديل / اضافة صلاحيات المستخدمين البرنامج بالمرفقات Multi User Form Permissions Management.rar

السلام عليكم أخي الكريم بفرض ان إسم الفولدر المراد إنشاؤه Folder1 غير الكود إلي التالي Sub Button3_Click() xx = ActiveWorkbook.Path & "\Folder1" MkDir (xx) Set NewBook = Workbooks.Add With NewBook '.Title = "All Sales" '.Subject = "Sales" .SaveAs Filename:=xx & "\" & "m.xlsx", CreateBackup:=False End With Workbooks.Open Filename:=xx & "\" & "m.xlsx" Sheets.Add ActiveSheet.Name = "TDR" ActiveWorkbook.Close savechanges:=True End Sub

تم ذلك عن طريق الوحدة النمطية يتم استخراج مسار سطح المكتب الفعلي ثم يتم توظيف هذا المستخرج في تصدير الجدول . Export1.rar