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

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مكتبة الأكواد الخاصة) :: الإصدار الثالث :: مكتبة عامرة بمئات الأكواد VBA داعمة للمبرمجين وجزء لا يتجزأ من عملهم. تختصر الوقت وتسهل العمل على مصممي البرامج. وهي مكتبة عامة يمكن استخدامها لأي لغات برمجية أخرى . من مميزات المكتبة : - أكثر من 360 كود ودالة في مختلف الفنون والمجالات . - قابلة لحفظ مرفقات مع الكود لدعم التطبيق. - يمكنك إضافة أكوادك الخاصة لتكون مكتبة داعمة لكل مبرمج. - سهلة الاستخدام . تحميل المكتبة : مكتبة الأكواد الخاصة zip.zip ولا تنسوني من صالح دعواتكم 🙂🌹

المنتدي تعليمي لا يقدم برامج جاهزة يمكنك عمل ملف بطلبك والنقطه التي تتوقف فيها يمكنك السؤال عنها وستجد ان شاء الله من يفيدك

تفضل اخي مثال للتوضيح.xlsb

اخي @أبو أحمد الاجابه التي قدمها لك @أ / محمد صالح لو ركزت فيها ستجد انها تفي بطلبك تماما الاستاذ محمد كاتب لك ActiveSheet.Unprotect "password" Range("C3:E3").Merge 'Selection.Merge ActiveSheet.Protect "password" كل ما عليك ان تجعله كالتالي ActiveSheet.Unprotect "password" Selection.Merge ActiveSheet.Protect "password" وتحدد الخلايا المراد دمجها ثم تعمل تشغيل للكود وسوف يتم دمج الخلايا بلا عناء ولا تعب

لا اصف لكم المعاناة التي واجهتها من اجل بلورة الفكرة وتصور التنفيذ ولكن .. الحمد لله توصلت الى تحقيق المطلوب فكل الاشتراطات تحققت ولكن التنفيذ لا يتم بضغطة زر واحدة .. التوزيع يتم بناء على اختيار : المدينة / والمجموعة ... الآن اعتقد انه من الممكن التعديل على المثال وضم هذه العمليات تحت زر واحد توزيع الطلاب على ايام الدورة.rar

وعليكم السلام جرب الملف سؤال مهم فى البحث 33.xlsm

وعليكم السلام تفضل اخى جرب الملف التالى FilterData.xlsm

عملت نموذج جديد..لان القديم فيه مشكلة ..دائما تحدث معي بعض الامر التي لا افهم سببها فأضطر الى عمل نموذج جديد اما مطلبك الاخير ..الاسم واللقب لايمكن عمله لان فيه اسماء مختلفة بالمناسبة ...يمكن عمل البحث من خلال الاستعلام الذي هو مصدر بيانات النموذج الفرعي من خلال استخدام دالة like AA.rar

يسرني ان اكون اول المشاركين في الرد وقبل ان اطلع على المرفق يكفي هذه الصورة لتتحدث عن المحتوى ابداعاتك لا تنتهي .. أسأل الله الكريم ان يجعل ما تقدمه لإخوانك من فائدة وخير ؛ سعة لك في الرزق وان يبارك لك في وقتك وأهلك وولدك ----------------- تم الاطلاع عمل جبار يغني عن جميع ما املكه من مكتبات ومراجع

انت لم تذكر هذا من قبل .. ويمكن وجهة نظر مقبولة بهذا الشرط ... سوف ارى ما يمكن عمله اما التواريخ وتنسيقها انظر تنسيقاتك في وندوز واضبطها عندي كل شيء تمام

غريب!! كيف مدرس في الرياض يدرس طلاب في جدة ... اذا ما فائدة اضافة المدن؟ عندي التاريخ صحيح عزيزي المسألة في الاعداد .. يدرج التواريخ الواقعة بين التاريخين في جدول Tbl_TeachersTemp تأكد من هذا الجدول بقية العمليات مجرد نقل

الملاحظة الاولى : اعتقد التاريخ صح فقط الخلل بالتنسيق .. لا تنظر في جدول النتيجة النهائية .. انظر في الاستعلام الرئيسي الكود ينقل التاريخ فقط من الاستعلام .. ولا ينشىء تاريخ حاول تضبط تنسيق الحقل في الجدول وأفدني بالنتيجة . الملاحظة الثانية : لم افهم !! ارجوا تفصيل شرح هذا اللبس

اعمل هكذا لحقل الاسهم ولبقية الحقول

تفضل جرب Private Sub CommandButton1_Click() 'كود لانشاء نسخة احتياطية للملف Dim F As Workbook, J As String, Folder As String, ST As Boolean Dim B, A, ST_Path, strPath As String On Error GoTo NotAbleToSave Set F = ThisWorkbook A = "Backup" ' اسم مجلد الحفظ B = F.Name strPath = "C:\" ' تحديد مسار الحفظ Application.DisplayAlerts = False On Error Resume Next If IsEmpty(A) Then Exit Sub If IsEmpty(B) Then Exit Sub MkDir strPath & "\" & A ST_Path = strPath & "\" & A & "\" & B Folder = "C:\Backup\" ' تحديد مسار مجلد الحفظ J = F.Name ST = False If F.Path = "" Then Application.Dialogs(xlDialogSaveAs).Show Else If Dir(Folder & J) <> "" Then Kill Folder & J End If '(Save) لحفظ الملف النشط تلقائيا يمكنك تفعيل هدا السطر With F '.Save .SaveCopyAs Folder & J ST = True End With End If NotAbleToSave: Set F = Nothing If Not ST Then End If MsgBox " : تم حفظ الملف في مجلد" & vbLf & vbLf & Folder & "" & J & vbLf & "" & vbLf & vbCrLf, vbInformation + vbOKOnly, " ! تعليمات" Application.DisplayAlerts = True End Sub MMM.xlsm

تابع هذا الموضوع والشرح الرائع من المبدع @jjafferr

أدخل في الماكرو الموجود على الزر وغير طريقة عرض التقرير إلى > طباعة .. بدل معاينة الطباعة

ما دامت ورقة العمل محمية فلا يمكن دمج الخلايا إلا باستعمال كود VBA وأن يبدأ الكود بسطر لفك الحماية ثم أي كود تريده كدمج نطاق معين أو دمج الخلايا المحددة ثم آخر سطر لإعادة حماية الشيت مرة أخرى ActiveSheet.Unprotect "password" Range("C3:E3").Merge 'Selection.Merge ActiveSheet.Protect "password" وأنصح ألا يحتاج المستخدم لدمج خلايا جديدة بعد حماية ورقة العمل فالأولى دمج الخلايا قبل الحماية بالتوفيق