أبوأحـمـد

الخوارزية موجودة لدي وقمت بأضفتها إلى الملف المرفق وهي تعمل بشكل سليم

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

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

تم التعديل بالمرفق Password.zip

أخي إذا كنت تريد حذف الكسر نهائيا استخدم هذه الدالة =INT(A1/3)

هذا هو المثال أتمنى يكون طلبك tnseg.zip

Private Sub Worksheet_Change(ByVal Target As Range) 'مع أطيب تحية من أبي أحمد 'غير الرقم 1 برقم العمود الذي تستخدم If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub Co = Target.Column If Target.Value <= 50 Or Target.Value = "غائب" Then Cells(Target.Row, Co).Select Selection.Interior.ColorIndex = xlNone Else Target.Value = "" MsgBox "اكتب هنا رقما بين 1 إلى 50 أو غائب", , "عفوا" Cells(Target.Row, Co).Select With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With Exit Sub End If End Sub

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

جرب هذا التعديل Sub ماكرو1() Dim Coll As String Coll = InputBox("ادخل اسم الخلية التي تريدها بداية للصف") Range(Coll & (Range("M14").Value)).Select End Sub

بداية جرب يأخذ من الخلية N بدلا من M وغير القيم من 50 إلى 15 وهكذا

أستغفر الله لست من خبراء الاكسل ولكن الأمر أسهل من أن يحتاج خبير الحل يا أخي هو إذا فرضنا أن الرقم موجود في الخلية A1 ضع في الخلية التي تريد النتيجة فيها هذه المعادلة =FIXED(A1/15*50;0) طبعا غير احداثية الخلية A1 تبعا لحاجتك

أشكرك أخي حسام نور لقد اطلعت على برنامج الأخ Band والحقيقة هو أكثر من رائع ويدل على أن صاحبه متمكن من الأكسل وفيه فوائد كثير عيبه فقط حجمه الكبير ولكنه يستحق قياسا لما فيه من الدروس بالنسبة لبرنامجي أحب أن ألفت نظر الأخوة إلى بعض الأفكار والدوال التي استخدمتها لاستفادة منها 1- استخدمت نظام قواعد البيانات وبعض دوالها المختلفة 2- استخدمت نظام المصفوفة لإضافة وتعديل أسماء الفرق من خلا أرقامها 3- استخدمت جمل منوعة ومختلفة لـ if الشرطية 4- استخدمت طريقة لعملية الفرز بدون مايكرو لإخراج ترتيب الفرق 5- يمكنك استخدام البرنامج لأي سنة ولأي دوري فقط غير أسماء الفرق في ورقة تسجيل . 6- البرنامج يتعامل مع اسم الفرق ومدينته على أساس الرقم في ورقة تسجيل لذا لن تحتاج إلى تعديل اسم أحد أو كل الفرق في كل السجلات بل ستعدل في سجل واحد في ورقة تسجيل 7- يتيح استخدام قاعدة البيانات إمكانية كبير من المرونة في البرنامج فلا حاجة لأن لاستخدام عبارة مثلا A1 = A5 + R1 + E1 + B1 وبالتالي إذا تغير مكان أحد الفرق تلخبطت النتائج :( هذا ما أتذكرة الآن وأتمنى أن أجد منكم اقتراحات وتوجيهات لأستفيد منها في عمل الجدول المدرسي طبعا برنامج الدوري السعودي للي ما نزله موجود هنا

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

أهلا بأستاذنا الغالي محمد طاهر سعدت كثيرا وتشرفت بمرورك على الموضع والشكر موصل للأخ الغالي الفاروق على اهتمامه ومتابعته من خلال ما سبق يتضح أن المشكلة في الأوفس xp ذو الواجهة العربية وكذلك أوفس 2003 ولكن يبقى السؤال لماذا مائة مليون :d

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

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

ماشاء الله أستاذي محمد قمة في الإبداع ألف شكر

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

ألف شكر أستاذي محمد (y)

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

لتثبيت صف اضغط بالفأرة أسفل الصف المراد ثم اختر إطار وأخيرا تجميد الألواح والعمود نفس الطريقة ولكن التحديد سيكون للخلية التي أمام العمود أما إدراج التاريخ فهو بالكود التالي dd = Target.Row Range("E" & dd).Value = Now() طبعا العمود محدد أما رقم الصف فهو متغير أتمنى أن يكون شرحي أفادك

شكرا مشرفنا امير عاطف على عرض المثال أخي hosam شكرا لك و ننتظر مثالك بفارغ الصبر شكرا Sharaf سعدت بمرورك وملاحظة جيدة وبالتأكيد أساتذتنا المشرفين لديهم الحل :yess: أستاذي محمد طاهر شرفتني كثيرا بمرورك وكلام الجميل شكرا أخي NAWAS وفقك الله لكل خير أخي samir_samir تأكد من أدوات >> خيارات >>أمان وتمكين وحدات المايكرو

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

مشاء الله وفقك الله أستاذي محمد الكود الآن 100% وكذلك مشرفنا الغالي Sharaf مثال ولا أروع الله يديمكم ويحفظكم وأعتذر أشغلتكم معاي تحياتي للجميع

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