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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته للتسهيل على من يقوم بعمل جداول أرقام عربي ويحاول إيجاد نوع خط يظهر الأرقام واضحة فهذا الكود يمكن عن طريقه سرد جميع الخطوط الموجودة وإظهار الأرقام باستخدام هذه الخطوط برجاء التجريب وإرسال تعليق لتحسن هذا الكود - تم تعــديــل المـــلف جميع اسماء الخطوط1.xls

بارك الله فيك اخي الغالي شحادة بوركت جهودكم المثمرة وفقكم الله

تمام، بارك الله فيك، وإضافة البيان -بفضل الله- أكثر من رائعة، وفقكم الله.

جزاكم الله خيراً على الإفادة. بإذن الله تعالى سأعمل على هذا الأمر، وسأضيف هذه الميزة لإضافة البيان البحثية: معالجة أسماء الأعلام في فهرس الأعلام. وسيكون في النافذة ثلاث علامات تبويب: 1- العلامة الأولى: العبارات المعالَجة: تضاف فيها العبارات التي يود الباحث تجاهلها وعدم اعتبارها في الترتيب؛ مثل: ابن، ابن أبي، وغير ذلك مما يريد إضافته، مع إضافة خيار: تجاهل (ال) التعريف: عند تحديد هذا الخيار سيتم تجاهل (ال) التعريف من بداية الأسماء الموجودة والأسماء المعالجة؛ مثلاً: (الوليد) يوضع في الواو، و(ابن أبي الدنيا) يوضع في حرف الدال. 2- العلامة الثانية: العبارات المستثناة: تضاف فيها العبارات المستثناة من المعالجة، والتي لا يريد الباحث معالجتها؛ مثل: أُبَي بن كعب؛ حيث سيبقى هذا العلم ضمن حرف الهمزة، ولن يتم وضعه في حرف (ب) أو (ك). وفي العبارات المعالَجة والمستثناة يُسمح بإضافة عبارات جديدة، كما يسمح بتعديل أي عبارة، وحذف أي عبارة. 3-العلامة الثالثة: الترتيب والمعالجة: فيها مربع سرد يحدد من خلاله الباحث في أي عمود توجد الأسماء، فمن الممكن أن الأسماء في العمود الثاني وليس الأول، فقد يكون العمود الأول وضع فيها أرقاماً تسلسلية، وبذلك يكون مرونة في الخاصية أكثر. وفيه زر بدء الترتيب والمعالجة: عند النقر عليه سيتم المعالجة وترتيب الأعلام بعد استثناء الكلمات التي تم معالجتها. بإذن الله تعالى عندما أنتهي من إضافة هذه الخاصية الجديدة، سأقوم بنشرها هنا ضمن هذا الموضوع، مع فيديو أشرح من خلاله هذه الخاصية الجديدة.

جزاكم الله خيرا، فخير الناس أنفعهم للناس، كما أخبرنا بذلك الصادق المصدوق، صلوات ربي وتسليماته عليه. أحب أن أشارككم الفكرة ببساطة: الموضوع أنني أريد أن أنشئ فهارس علمية لكتاب معين، كفهرس الآيات، والأحاديث، والآثار، والأعلام، وغير ذلك. لكن هناك مشكلة في ترتيب الورد، حيث يدخل (أبو ، ابن ، أم) في الترتيب، وهذا خطأ. حيث يجعل مثلا: (أبو بكر) في حرف الألف، والصواب في حرف الباء، ويجعل (أم سلمة) كذلك في حرف الألف، والصواب في حرف السين، وهذا ما جرى عليه علماؤنا القدامى. وكثيرا ما تكون قائمة الأعلام كبيرة، فيحصل مجهود كبير لضبط الترتيب. فهداني الله لفكرة استفدتها من أحد إخواني، وهو يعمل في مجال البرمجة، ونفذت الماكرو بالشكل التالي: 1- قائمة الأعلام موجودة في جدول له عمودان: الأول للعلم، والثاني لرقم الصفحة مرتبة حسب ورودها في الكتاب المفهرس. 2- أخفيت كل الكلمات المراد عدم اعتبارها في الترتيب، وهي (ابن أبي ، ابن أم، ابن ، أبو، أم ، ابنة أبي ابنة) من قائمة تنسيق عن طريق البحث والاستبدال. 3- رتبت القائمة على العمود الأول (طبعا مع إخفاء الكلمات المقصودة). 4- رتب الورد القائمة اعتمادا على الظاهر، ولم يعتمد الكلمات المخفية سواء في أول الاسم أو في وسطه أو آخره. 5- ظللت الجدول، ومن قائمة تنسيق حولت كل المخفي إلى ظاهر، وبهذا تم المراد، وجاء الترتيب حسب المطلوب. * ومعذرة على تأخري في الرد، فلم أقرأ رسائلكم إلا صباح الجمعة، صبحكم الله بكل خير.

من وجهة نظري: الثوابت الدائمة بالاستثناءات واضحة كما أشرت إليها بالمشاركة أعلاه (ابن، ابن أبي، ابنة، ابنة أبي، أبي، أبّي بن، أبو، أم، بنو، ال "التعريف"....)، ويُضاف خانة للاستثناءات، يُترك للباحث بوضع ما يشاء حسب وجهة نظره، وبذلك يكون المجال واسعاً ومتاحاً له، ولا مجال للتخمين في مثل هذه الحالات.

السلام عليكم مشاركة مع اساتذتي الاعزاء بدل السطرين .FindNext "[EmpName] like '*" & strSearch & "*'" If Not .EmpName Like "*" & strSearch & "*" Then بالتالي .FindNext "[EmpName] like '" & strSearch & "*'" If Not .EmpName Like strSearch & "*" Then

جميعا بإذن الله تعالى تم عرض التفقيط vba متعدد اللغات في قناتي منذ فترة شكرا لاهتمامكم

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

ممکن تعطينا نسخة مصغرة منه ، علی رغم من عدم ظهور هذه المشكلة امامي من قبل لكن نريد ان نشوفه

جربت هذا البرنامج

تفضل هذه المعادلة لعد أحرف الخلية =LEN(A4) أما بالنسبة لتحديد كتابة 31 حرف أو أقل فقط بالخلية فهذا يتم من خلال DataValidation كما بالصورة وتم تنفيذ ذلك على الملف بالفعل دالة عدد الاحرف.xlsx

اختيار القرعة مثلا فريق 15 Choose _rand_name.xlsm

بعد اذن استاذنا الحبيب استاذ على واثراء للموضوع Copy of final 19-09.xlsx

اخونى السلام عليكم ورحمة الله وبركاته فى الملف المرفق فى النموذج Trans_in الخاصة بفاتورة المشتريات فى الجزء الاسفل الخاص ببيانات الصنف عند الضغط على مفتاح انتر او تاب وترك سجل فارغ تظهر هذه الرسالة : الرجاء المساعدة فى عدم ظهورر رسالة (تعذر على مشغل قاعدة البيانات microsoft office access العثور على سجل فى جدول (name) باستخدام مفتاح يتوافق مع الحقل (الحقول) number ) اريد المساعدة فى عدم ظهور هذه ا لرسالة ليكون البرنامج سلسل ومرن Copy of HorusAccount-1223.zip

معالجة التكرار هذه فكرة ظريفة ومادام المسألة هكذا فيمكنك اختصار الارقام الى نصف العدد او اقل اما ثبات الارقام فيمكن تطبيقها بالاستعانة باستعلام بحيث يكون هو من تجرى عليه العملية بعد وضع المعيار المناسب للتعامل مع الحقول الفارغة فقط : وهو ماتم عمله من خلال الكود ادناه انسخه والصقه بدلا من الاول : Dim db1 As DAO.Database Dim rs As DAO.Recordset Set db1 = CurrentDb Set rs = db1.OpenRecordset("SELECT table1.nox, table1.nameX, table1.id, * " & vbCrLf & _ "FROM table1 " & vbCrLf & _ "WHERE (((table1.id) Is Null))") If rs.RecordCount > 0 Then rs.MoveFirst Else Exit Sub End If Do While Not rs.EOF rs.Edit rs!id = Format(Int(Rnd * 123456789), "0000000") rs.Update rs.MoveNext Loop rs.Close: Set rs = Nothing

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

أخي تفضل الرابط التالي لبرنامج يقوم بالتحويل من بي دي اف إلى وورد http://www.pdf-to-html-word.com/pdf2word.exe والشكر موصول للأخ محمد حجازي الذي دلنا عليه مع العلم أن حجم البرنامج صغير تقريبا 680 ك ب

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