كل الانشطه

أرجو المساعدة في برمجة برنامج لتسيير المطاعم المدرسية كما هو موضح في الملف المرفق تسيير المطاعم المدرسية.xlsx

البرنامج لا يعمل اصلا

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

اللهم يا رب بحق اسمك الاعظم الذى اذا ما دعيت به الا و اجبت داعيه اللهم بمجرد كتابة هذا الدعاء ان تكون قد كتبت نعمة الشفاء على ابن صديقنا الغالى محمد هشام اللهم امين يا رب العالمين

اللهم امين .. أتم يارب شفاءه على أكمل وجه بالشكل الذى يرضيك يا أكرم الأكرمين واربط على اهله وذويه بالصبر على هذا

اخى عبدالله الكود يعمل بكفاءه جزاك الله خيرا

و عليكم السلام ورحمة الله و بركاته أهلا بأهلنا في أبو حمص الملف لايوجد به أي مشاكل عدا ارتباط بعض الخلايا بملف موجود عندك على سطح المكتب اسمه أسماء العاملين بالجمعيات المحلية على العموم تم تحويل الملف بصيغة أخرى لكي تعمل الأكواد مع أني أرى استخدام أكواد فقط في شيت المرتبات مرتبات لسنة 2025.xlsm

السلام عليكم ورحمة الله وبركاته ممكن حل لمشكلة ملف الاكسيل مش بيفتح على ويندوز ١٠ مرتبات لسنة 2025.xls

ما ادري !! عملت مقارنة بخطوط الوندوز اللي عندي (وما عندي خطوط اضافية) ، فالاقرب كان Times New Roman وطلبت من claude.ai يعمل المقارنة :

اذهب البأس رب الناس، بيدك الشّفاء، ولا كاشف له إلا أنت يا رب العالمين، اللهم لا ملجأ ولا منجا منك إلا إليك، إنك على كل شيء قدير اللهم ألبسه الصحة والعافية عاجلًا غير آجل، يا أرحم الراحمين، اللهم اشفه، اللهم اشفه، اللهم اشفه

اخى محمد هشام تم التجريب الكود يعمل بكفاءة فى الملفات التى على الدرايف مباشرة اما التى داخل فولدرات فلا تتاثر بالكود

بارك الله في عمرك وزادك علما على مساعدة الغير استاذنا عبدالله بشير

إللهم أذهب البأس ربّ النّاس، اشف وأنت الشّافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقماً، أذهب البأس ربّ النّاس، بيدك الشّفاء، لا كاشف له إلّا أنت يارب العالمين اشفى ابن محمد هشام اللهم امين

إلهي أذهب البأس ربّ النّاس، اشف وأنت الشّافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقماً، أذهب البأس ربّ النّاس، بيدك الشّفاء، لا كاشف له إلّا أنت يارب العالمين. - اللهم إنّي أسألك من عظيم لطفك وكرمك وسترك الجميل، أن تشفيه وتمدّه بالصحّة والعافية، لا ملجأ ولا منجا منك إلّا إليك، إنّك على كلّ شيءٍ قدير.

اخى عبدالله بشير عبدالله اخى محمد هشام كل الشكر والتقدير لكم اخوتى الاكارم جارى التجربه ولكن مجهودكم كبير تشكرون عليه جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته اليك ما طلبت Sub ExportCertificatesToSinglePDF() Dim lr As Long, i As Long, pageCount As Long Dim pdfPath As String, wsMain As Worksheet, tempWS As Worksheet Dim tempSheetNames As Collection Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False Set wsMain = ThisWorkbook.Sheets("معلمين") Set tempSheetNames = New Collection wsMain.Range("m2").FormulaR1C1 = "=COUNTA('جدول عام'!R6C1:R22C1)" lr = wsMain.Range("m2").Value i = 1 pageCount = 1 Do Until i > lr wsMain.Range("m2").Value = i wsMain.Copy After:=Sheets(Sheets.Count) Set tempWS = ActiveSheet tempWS.Name = "Temp_" & pageCount tempWS.PageSetup.PrintArea = "$A$1:$i$37" tempSheetNames.Add tempWS.Name i = i + 3 pageCount = pageCount + 1 Loop pdfPath = ThisWorkbook.Path & "\الشهادات.pdf" Dim wsArray() As Variant ReDim wsArray(1 To tempSheetNames.Count) For i = 1 To tempSheetNames.Count wsArray(i) = tempSheetNames(i) Next i ThisWorkbook.Sheets(wsArray).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath For i = 1 To tempSheetNames.Count Application.DisplayAlerts = False ThisWorkbook.Sheets(tempSheetNames(i)).Delete Application.DisplayAlerts = True Next i wsMain.Select wsMain.Range("m2").Value = 1 Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "تم حفظ الشهادات في ملف PDF بنجاح!", vbInformation, "تم الحفظ" End Sub تحويل الشهادات الى pdf.xlsm

اللهم إنا نسألك بأسمائك الحسنى وبصفاتك العلا وبرحمتك التي وسعت كلّ شيء، أن تمنّ عليه بالشفاء العاجل، وألّا تدع فيه جرحاً إلّا داويته، ولا ألماً إلا سكنته، ولا مرضاً إلا شفيته، وألبسه ثوب الصحة والعافية عاجلاً غير آجل، وشافِه وعافِه واعف عنه، واشمله بعطفك ومغفرتك، وتولّه برحمتك يا أرحم الراحمين.

Up

أكرمكم وأعزكم الله أستاذنا هو المطلوب وزيادة والله جزاكم الله كل الخير

آمل أن يكون هذا ما تريده فعلاً أخي احمد ، أكرمك الله على ما دعيت لي به ، وفتح الله عليكم من علمه ورزقه .. كل الإحترام والتقدير لشخصكم الكريم ..

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

جرب هذه النسخة ، وطابق النتائج . فكرة توزيع تلقائي لمستويين (4).mdb

تمام .. جاري التعديل

ما أقصده هو أنني فتحت جدول الشفوي وأريد توزيع طلاب الصف السادس بالمدرسة رقم 40 (الإجمالي الموجود هو 268 طالب) والذين تم تقسيمهم في جدول الشفوي على 13 دفعة كما في الصورة فسيكون التوزيع الدفعة الأولى 70 صباحي تم الحصول عليهم من (دفعة 1 / دفعة 2 / دفعة 3 / دفعة 4) الدفعة الثانية 60 مسائي تم الحصول عليهم من (باقي دفعة 4 / دفعة 5 / دفعة 6) الدفعة الثالثة 70 صباحي تم الحصول عليهم من (باقي دفعة 6 / دفعة 7 / دفعة 8 / دفعة 9 / دفعة 10) الدفعة الرابعة 60 مسائي تم الحصول عليهم من (باقي دفعة 10 / دفعة 11 / دفعة 12) الدفعة الخامسة 8 (المتبقيين من الصف السادس) صباحي تم الحصول عليهم من (باقي دفعة 12 / دفعة 13) مع خالص تقديري

بحاجة الى توضيح أكثر ، حتى أوجه التعديل الصحيح .