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

اخواني أعضاء منتدي اوفسينا الكرام كل عام وانتم جميعا بألف خير وعافية والمنتدي دائما في سمو بمجهوداتكم مع خالص تحياتي

السلام عليكم ورحمة الله وبركاته كل عام وأنتم إلى الله أقرب...آمين بارك الله بكم جميعاً.. حقيقة غيابك أستاذنا أقلقنا ...الحمد لله على عودتك بالسلامة.

كل عام و انتم جميعا بخير عودا حميدا استاذنا الفاضل / عادل حنفي و نتمنى وجودك دائما بيننا

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

وعليكم السلام استاذ محمد الفكرة نفسها .. لكن بما ان الورقة 3 بها صفان فارغان قبل الجدول .. فقط قم باضافة +2 كما في الصيغة الاتية =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(ورقة3!B:B)+2;"الانتقال إلى آخر صف")

المثال المرفق يبين كيفية اختيار بيانات من مجال محدد عن طريق كومبو و اظهار النتيجة كصف فى مكان آخر و لأن هذه الطريقة تعيد القيمة فى خلية واحدة فقط فقد تم الاستعانة بالدالة vlookup لعرض باقي القيم أولا : من تخصيص اليقونات اضغط علي صندوق الادوات Toolbox و ختار القائمة المنسدلة combo box و ضعها فى ورقة العمل اختار القائمة المنسدلة بالزر الايمن ثم Format Control control وحدد مجال الادخال و النتيجة ( راجع المثال ) combo1.xlsx

لا اعرف اذا كان هذا المطلوب بالضبط tekrar one_time 1.rar

عليكم السلام اخي الغالي ابو يوسف هل يزيد مجرد صف واحد الذي يسببه صف الاجمالي بالاسفل اذا كان كذلك فضع المعادلة هكذا =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(الجدول1[[#All];[الاسم ]])+1;"الانتقال إلى آخر صف") باضافة +1 فقط بدلا من +2 لتجنب زيادة صف الذي سببه الاجمالي اما اذا كان غير ذلك فياريت ترفق ملف به نفس الجدول الذي تعمل عليه ببيانات وهميه تقبل تحياتي

حبيبي ياسر الله يخليك المنتدي منور بيكم وكل سنه وانت بكل خير تحياتي

وانت بالف صحة وسلامة حبيبي ا / عادل عودا حميدا نورت المنتدى تقبل فائق احترامي

Sub UpdateFooter_Header1() Dim SH As Worksheet For Each SH In Worksheets With SH .PageSetup.RightHeader = Sheets("البيانات").Range("Q3").Value & Chr(13) & Range("Q4").Value .PageSetup.CenterHeader = Sheets("البيانات").Range("P1").Value & Chr(13) & Range("R1").Value .PageSetup.LeftHeader = Sheets("البيانات").Range("Q5").Value & Chr(13) & Range("Q6").Value .PageSetup.RightFooter = Sheets("البيانات").Range("A1000").Value .PageSetup.CenterFooter = Sheets("البيانات").Range("b1000").Value .PageSetup.LeftFooter = Sheets("البيانات").Range("c1000").Value End With Next End Sub

الاخ ناصر سعيد اضغط علي الرابط لتحميل فيديو شرح البروجرز بار

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة بدأه الاستاذ / ياسر خليل أبو البراء تم ارفاق كود الحل من الافاضل/ الحسامي_ الخالدي _ بن علية حاجي _ ياسر خليل أبو البراء _ أبوعبد الله_ عبد الفتاح كيرة _ يحيى حسين_ وائل مراد 700 و لا تنسونا من صالح الدعاء تحياتى اسماء مكرره_الحسامى.rar قائمة الاسماء المكررة _الخالدى).rar الاسماء المكررة1 _بن عليه حاجى).rar ListOfRepeatedNames تعديل ابو البراء_.rar NEW_PROGRAM-kemas (1).zip قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر -ابو عبدالله_2.rar _ابو عبدالله _3_قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر مع شرح الكود.rar Test2 عبد الفتاح كيره_.rar www.Excel4Us.com يحيى حسين.rar _الخالدى_الانتقال بين المكررات.rar فحص المكرر وائل مراد).rar قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر _ابو عبدالله).rar

عليكم السلام نحن كمسلمين و لله الحمد اجابتنا للرسالة "بسم الله الرحمن الرحيم","الله اكبر" دائماً نعم ولا مجال لخيار آخر. اما الموضوع الخاصة بنموذج ، الصق الكود التالي If MsgBox("هل تريد فتح النموذج في وضع ملء الشاشة", vbYesNo, "الرسالة") = vbNo Then MsgBox "No" Else DoCmd.Maximize End If

جزء من المطلوب تحياتى الاسماء المكررة _معدل_g (2).rar

السلام عليكم : أسأل الله بالتوفيق والعافية للعاملين على هذا المنتدى لما ينشروه من العلم

السلام عليكم و رحمة الله و بركاته اخي انظر الاستعلام الحقل الاول يرجع تاريخ تقريبي من تاريخ الحالي كما تفضل الاخ ابو خليل و الآخر (1/1/سنة تاريخ الحالي ناقص Age) Database3.rar

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

جزاك الله خيرا على الرد السريع للأسف هذه الدالة تعمل على 2010 و أنا عندي 2007 سأنزل 2010 الآن و سأجربها فورا شكرا لك

السلام عليكم ورحمة الله كل عام وأنت بخير و جميع المسلمين و الامة العربية و اعضاء المنتدى بالف خير

هذا يعطي تاريخ ميلاد تقريبي لليوم الذي تم الاحتساب فيه : Date() - 30 * 365 على اعتبار ان عمره = 30 سنة

السلام عليكم اخي الحبيب العالي ابو البراء تحياتي واشواقي وانا من يخسر بالبعاد عنكم وكل عام وانت بخير اخي الحبيب أ/ جلال الجمال اسعدني مروك وكلماتك ويشرفني دائما ان اكون بينكم وكل عام وانت بخير اخي الحبيب ابو يوسف اشكرك اخي الحبيب ولا تقلق علي غالي عليك ابدا ربنا يبارك فيك وكل عام وانت بخير

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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...أما بعد: السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام... تابعت مؤخراً طرق متعددة للارتباطات التشعبية وكان أحدها يوصلك سريعاً إلى آخر خلية تمت الكتابة بها في عمود لأحد أساتذتنا الكرام =HYPERLINK("#"&"ورقة1"&"!"&"b"&COUNTA(ورقة1!B:B);"الانتقال إلى آخر صف") وقد كانت معادلة رائعة لكنها ضمن نطاق لا جدول ... ما أرغبه هو النتيجة ذاتها ولكن ضمن جدول لا نطاق وقد أرفقت ملفاً يبين المطلوب وهو أن نقوم بالورقة2 بإدراج ارتباط تشعبي يبرز آخر اسم في الجدول ضمن الورقة3 والسلام عليكم ورحمة الله وبركاته.. ارتباط تشعبي متقدم.rar

الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

بارك الله فيك اخي الكريم

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

تفضل اخي الغالي =HYPERLINK("#"&"اليومية"&"!"&"d"&COUNTA(مبيع17[[#All];[الاسم Account Name]])+12;"الانتقال إلى آخر صف") ارتباط تشعبي.rar

جرب اخي هذا الملف بعد التعديل توزيع الحجم الكلي المطلوب لعدد من الحجوم.rar

السلام عليكم ورحمة الله وبركاته أشكر أخويَّ الكريمين ياسر العربي أبو أسيل وعبد السلام أبو العوافي على المبادرة للإجابة عن موضوعي الذي طرحته وقد كانت إجاباتهما موفقة وغاية في الروعة بارك الله بكما.. إجابة أخي الكريم عبد السلام: =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(ورقة3!B:B)+2;"الانتقال إلى آخر صف") إجابة أخي الكريم ياسر العربي: =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(الجدول1[[#All];[الاسم ]])+2;"الانتقال إلى آخر صف") جزاكما الله خيراً وجعله بموازين حسناتكم ...آمين والسلام عليكم

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

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

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

الا خ مصطفى محمود مصطفى اخي انا اعمل علي اوفيس 11 وهو يعمل جيد

الاخ طاهر محمد الخ أبو حنــــين طريقه اخري بالمرفقات 1_مشتريات - جديد.rar

جرب هذا الكود Sub salim() Dim rg As Range Dim m, i As Integer Range("j8:j500").ClearContents m = 8 For i = 3 To 7 Step 2 Set rg = Range(Cells(8, i), Cells(500, i)).SpecialCells(xlCellTypeConstants, 23) rg.Copy Cells(m, "j") m = m + rg.Count + 1 Next End Sub

الا خ مصطفى محمود مصطفى استخدم هذا الكود قبل الطباعة Sub CopyHeadersFooters() ' Dim Sh As Worksheet Sheets("البيانات").Select With ActiveSheet.PageSetup lh = .LeftHeader ch = .CenterHeader rh = .RightHeader lf = .LeftFooter cf = .CenterFooter rf = .RightFooter End With For Each Sh In Worksheets With Sh.PageSetup .LeftHeader = lh .CenterHeader = ch .RightHeader = rh .LeftFooter = lf .CenterFooter = cf .RightFooter = rf End With Next ' End Sub

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

لا اعلم ما تقصد ؟ هل هو برنامج التحزيم ام برنامج اكسس بعد التنصيب

البروجرز بار الثالث و الرابع والخامس وتستخدم بنفس الاسلوب الاول Omar_3_5.rar ملحوظه : مؤشرات التقدم الخمس صناعة عربية مصرية 100% لكم مني كل تحية الاخ أبو يوسف شكرا لك اخي هذا اكثر مما استحق فهذه البرامج من مكتبتي وقد انشأتهم منذ عدة سنوات سابقه

البروجرز بار الثاني ويستخدم بنفس الاسلوب السابق Omar_2.rar

أساتذتى وإخوتى الكرام .. الملف التالى حول احد الدوال البحثيه .. Find.. الملف يتناول شرح وسائط الدالة .. اتمنى ان يمثل إضافه بسيطة .. المرفقـــات Find_2.rar

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

ربط عمود فى ورقة1 بعمود بورقة 2 بحيث لو حصل اضافة او حذف او تعديل يتاثر بية ولكم جزيل الشكر

وعليكم السلام، شاهد أخي المرفق التالي وأخبرني إذا كان هو ماتريد، ________________________________.rar

السلام عليكم مرفق ملف مضغوط به خطوط عثمانية وملف وورد به مثال (سورة الفاتحة) أرجو إنزال الخطوط أولا في مجلد Fonts داخل الويندوز ثم فتح ملف الوورد أتمنى الإفادة للجميع OthmanyFonts.rar

أيضا راجع هذه المواضيع التنبه عند تكرر قيمة http://www.officena.net/ib/index.php?showtopic=581 ما هي الداله التي تحسب التكرار http://www.officena.net/ib/index.php?showtopic=1217 معرفة هل السجل له مثيل و تحديد عدد التكرار http://www.officena.net/ib/index.php?showtopic=78

ماذا تفعل لو أردت أن تنفتح ملفات الاكسيل الجديدة و بها خصائص معينة تختارها بنفسك كاعداد معين للصفحة أو تنسيق معين أو اضافة فى الرأس أو التذييل Header & Footer الخ ... تقوم بعمل ما تريد من تعديلات علي ملف خالي ثم تحفظه فى c:\Program Files\Microsoft Office\Office10\XLStart او مسار الأوفس لديك و تختار نوع الملف template قالب أي بالامتداد xlt و تختار الاسم Book و هذا معناه أن الملف Book.xlt سيكون القالب الذي يتم بناء عليه فتح الملفات الجديدة Book1.xls مثلا و بهذا توفر كل الاعدادات التي تقوم بها كل مرة فى ملفات الاكسيل ملاحظة : عند اختيار النوع template يتغير المسار تلقائيا الي المسار الافتراضي للقوالب فيراعي اعادة المسار الي المسار السابق

فى المثال المرفق ثلاث طرق للتحكم فى البيانات المدخلة الأولي بالكود و هنا يتم التحقق من أن البيانات المدخلة فى الخلية d2 لابد أن تبدأ ب FGK Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Left(Range("d2").Value, 3)) <> "FGK" Then MsgBox "Not Accepted Entry, should start with FGK" Range("d2").Value = "FGK" Exit Sub End If End Sub و الثانية عن طريق معادلة if الشرطية و اظهار النتيجة فى الخلية المجاورة و الثالثة عن طريق أمر Validation من قائمة data و عليه يوجد 3 امثلة الاول للتحكم بان الرقم بين 10 و 100 و الثاني لأن النص لا يزيد عن 5 حروف و الاخير لان الرقم أقل من 1000 و فى الاخير تم استخدام خاصية الرسالة التي تظهر عند الوقوف فى الخلية و تغيير رسالة الخطأ و ذلك ايضا من امر validation من قائمة data Validation.zip

عندما نقوم بحماية ورقة العمل ، كيف يمكننا إستثناء بعض الخلايا من الحماية ؟؟ الإجابة : عن طريق استثناؤها من الحماية في الاكس بي Tools protection allow users to edit ranges ثم عرف المجال الذي تريد أو اختار الخلية و من القائمة المختصرة للماوس Format Cell و أزل خيار Locked ثم طبق الحماية علي ورقة العمل ستجد أن الخلية مستثناة من الحماية أي تقوم بعمل إستثناء للخلايا من الحماية عن طريق إختيارها ثم إختيار خصائص ، و حماية ، و الغاء تأمينها ثم عندما تطبق الحماية علي ورقة العمل ، تكون هذه الخلايا قد أستثنيت منها بالفعل