أ / محمد صالح

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

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

يمكنك استعمال هذا الإجراء وربطه بشكل أو زر في شيت سجل قيد بيانات Sub mas_getdata() Dim sh As Worksheet, n As Long, lr As Long, lr2 As Long Set sh = Sheets("data") lr = sh.Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = 0 Range("b17:s218").ClearContents For n = 9 To lr If sh.Range("f" & n) = [e2] And sh.Range("g" & n) = [e3] Then lr2 = Cells(Rows.Count, 2).End(xlUp).Row + 1 lr2 = IIf(lr2 < 17, 17, lr2) For c = 2 To 19 Cells(lr2, c) = sh.Cells(n, Cells(1, c)) Next c End If Next n Application.ScreenUpdating = 1 MsgBox "Done by mr-mas.com" End Sub ملحوظة: تم استخدام الأرقام في الصف الأول في الكود فلا يجب مسحها يمكن إخفاء الصف بالتوفيق

ربما يكون هذا هو المطلوب .. تم إضافة تاريخ السداد المبكر في الخلية L15 تعديل معادلة العمود B & C تعديل معادلة الأشهر المسددة .. بالتوفيق ‫المثال ء _2.xlsm

ظننت الأمر أكبر من ذلك من الواضح أن ملف msi المرفق ليس إلا عملية إعادة تسمية لقاعدة البيانات accdb كما اقترح أ / @أبو إبراهيم الغامدي لأنه عند فك تجميع الملف بكود فك تجميع ملفات msi في الدوس ظهرت هذه الرسالة وهذا يعني أنه ليس ملف msi صحيح ولا يحتوي على تحزيم لمجموعة من الملفات داخله بالتوفيق

لدي أوفيس 365 وأستعمل هذه الطريقة تنجح مع الملفات التي تم تصديرها من الوورد غير ذلك نسبة النجاح لا تتعدى 60٪

يمكنك استعمال هذا الكود textbox1.value = sheets("ليذجر").cells(rows.count,5).end(xlup).value بالتوفيق

وبالنسبة لنواة 32بت أو 64بت فصاحبة الإمكانيات الأعلى 64بت

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

أخي الكريم الحلبي يبدو أنك لم تقرأ هذا السطر جيدا يجب كتابة اسم قاعدة البيانات وامتداده في المتغير myfile يبدو أنك لم تقم بهذه الخطوة

المشكلة في هذا السطر في حدث بعد تحديث مربع النص Me.TextBox2 = Application.VLookup(Val(Me.TextBox1), Sheets("cod").Range("c5:e5000"), 2, 0) حيث يتم البحث حتى صف 5000 والرقم المطلوب في الصف 7152 لذلك يلزمك زيادة صف النهاية إلى 10000 مثلا

ربما تكون مشكلة في الصلاحيات وخصوصا إذا كان مجلد تثبيت xampp في قرص النظام C أو يكون برنامج آخر يستعمل المنفذ 80 الخاص ب أباتشي لذلك أنصح بإعادة تثبيت البرنامج واختيار بارتيشن آخر غير سي كحل أول

أعتقد لا يمكن معرفة الملفات داخل الامتداد msi إلا بعد فك تجميعه باستخدام أوامر في الدوس CMD لو أمكن إرفاق ملف msi والملف الذي تريد وضع الكود فيه للتجربة عليه

ويمكن اختصار الكود إلى Sub mas160menu() Dim Ws As Worksheet, Sh As Worksheet Dim I As Long, x As Long, n As Long, Lr As Long, c As Integer Set Ws = Sheets("السجل الكلي"): Set Sh = Sheets("قوائم80") Lr = Ws.Cells(Rows.Count, 4).End(xlUp).Row Application.ScreenUpdating = False Sh.Range("C7:F86,H7:K86").ClearContents For t = 1 To 2 1: x = (t - 1) * 40 + 7 For I = n + 9 To Lr If Ws.Cells(I, 6).Value = Sh.Range("D1").Value And Ws.Cells(I, 7).Value = Sh.Range("E1").Value Then Sh.Cells(x, IIf(c Mod 2, 8, 3)).Value = Ws.Cells(I, 4).Value Sh.Cells(x, IIf(c Mod 2, 9, 4)).Resize(1, 2).Value = Ws.Cells(I, 10).Resize(1, 2).Value Sh.Cells(x, IIf(c Mod 2, 11, 6)).Value = Ws.Cells(I, 13).Value If x = t * 40 + 6 Then n = I - 8: c = c + 1 If c Mod 2 Then GoTo 1 Else GoTo 2 End If: End If x = x + 1: n = I + 1 End If Next I 2: Next t Application.ScreenUpdating = True MsgBox "Done by mr-mas.com" End Sub ويجب إعادة تعيين الماكرو للزر مع الاسم الجديد وهذا ملفك بعد التعديل .. بالتوفيق تعديل كود القوائم.xls

تفضل هذا ملفك بعد إضافة الكود وتعديل أسماء الشيتات من المسافات الزائدة وتعديل الأعمدة التي سيتم الترحيل لها حيث كان بها خلايا في الأسفل (مكتوب فيها) تمنع من دقة معرفة آخر صف مكتوب فيه بالتوفيق البرنامج 1-1.xlsm

لا أدري إن كان المقصود ب حفظها كملف pdf أن لكل طالب ملفا أم طباعة جميع التقارير في ملف pdf واحد على العموم قام أخي @د.كاف ياربالمقصود الأول وهذا الاحتمال الثاني طباعة جميع التقارير في ملف واحد باسم محتوى الخلية H1 للعلم تم تعديل معادلة البحث للاعتماد على رقم المسلسل لجلب بيانات الطالب نكتب مسلسله في الخلية F1 بالتوفيق تقرير الطلاب pdf.xlsm

إن شاء الله يفيدك هذا التعديل Sub قائمة80() Dim Ws As Worksheet, Sh As Worksheet Dim I As Long, x As Long, n As Long, Lr As Long Set Ws = Sheets("السجل الكلي"): Set Sh = Sheets("قوائم80") Lr = Ws.Cells(Rows.Count, 4).End(xlUp).Row Application.ScreenUpdating = False Sh.Range("C7:F86,H7:K86").ClearContents For t = 1 To 2 x = (t - 1) * 40 + 7 For I = n + 9 To Lr If Ws.Cells(I, 6).Value = Sh.Range("D1").Value And Ws.Cells(I, 7).Value = Sh.Range("E1").Value Then Sh.Cells(x, 3).Value = Ws.Cells(I, 4).Value Sh.Cells(x, 4).Resize(1, 2).Value = Ws.Cells(I, 10).Resize(1, 2).Value Sh.Cells(x, 6).Value = Ws.Cells(I, 13).Value If x = t * 40 + 6 Then n = I + 1: Exit For x = x + 1 End If Next I x = (t - 1) * 40 + 7 For I = n To Lr If Ws.Cells(I, 6).Value = Sh.Range("D1").Value And Ws.Cells(I, 7).Value = Sh.Range("E1").Value Then Sh.Cells(x, 8).Value = Ws.Cells(I, 4).Value Sh.Cells(x, 9).Resize(1, 2).Value = Ws.Cells(I, 10).Resize(1, 2).Value Sh.Cells(x, 11).Value = Ws.Cells(I, 13).Value If x = t * 40 + 6 Then n = I - 8: Exit For x = x + 1 End If Next I Next t Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub بالتوفيق

شكرا لمرورك الكريم أقصد ب (مع) بالإضافة إلى فالمشاركة السابقة بها حل مشكلة العلامة العشرية وبها أيضا كود استدعاء osk تحياتي

هذه أساسيات الدوال للحصول على أصغر قيمة نستعمل min =MIN(A2:B2) بالتوفيق

بارك الله لك

هذا سببه أن نوع بيانات الحقل رقمي وقيمة مثلا 5. (خمسة وبعدها علامة عشرية فقط) هي خمسة فقط وبالنسبة لصديقي @د.كاف يارلا تحاول الضحك علينا ههههه بعد ربط مربعات النصوص (غير المنضمة) بحقول الجدول تحدث نفس المشاكل الحل كما قلته سابقا: استعمال OSK أو جعل جميع الحقول نصية وعند التعامل معها يتم نحويلها إلى نوع البيان المطلوب وهذه محاولة أخرى لتفادي عدم كتابة العلامة العشرية مع عرض on screen keyboard من خلال زر بالتوفيق mas_numpad.accdb

إن شاء الله تصل إليها وتستعملها بسهولة وهذه مشاركتي في عمل لوحة أرقام للبرنامج (للعلم لم أطلع على أي مرفق لمن سبقوني من الأصدقاء في الحل) حيث أن التاريخ يتم إدخاله من date piker فلا حاجة لكتابة حقل التاريخ ولا الشرطة المائلة بالتوفيق mas_numpad.accdb

هذه خطوات تشغيل on screen keyboard في وينوز 7 اضغط زر Start , ثم All Programs, ثم Accessories, ثم Ease of Access, وفي النهاية On-Screen Keyboard. ولو النسخة عربي النقر فوق الزر أبدا ، والنقر فوق كافة البرامج، والنقر فوق الملحقات، والنقر فوق سهوله الوصول، ثم النقر فوق لوحه المفاتيح علي الشاشة. وبعد فتح البرنامج يمكن تثبيته في شريط المهام بالتوفيق

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

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