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

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

تفضل-يمكنك استخدام هذه المعادلة =SUMIF(Sheet1!$B:$B,$B2,Sheet1!$F:$F) Total.xlsx

السلام عليكم أستاذd الفاضل: إلم تكن توصلت إلى طريقة لإظهار الجهاز على الشبكة، فهذا الخطوات قد تحمل الحل-إن شاء الله-: services >> Discovery : set the function to Automatic then start SSDP : set the function to Automatic then start upnp : set the function to Automatic then start على الأغلب هذه الخدمات كلها أو بعضها غير مفعلة في نسخة الويندوز في الحاسب الذي لا يظهر على الشبكة-بناء على تجرية سابقة لي-، وعلى أية حال قم بضبظها أوتماتيكياً على حاسبيّ ويندوز 10. هذا إن كانت إعدادات المشاركة المتقدمة قد ضبطت بالصورة المناسبة ولم تأتِ بالنتيجة المنشودة. بالتوفيق.

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub sv_Click() If Format(Time, "Long Time") >= #12:00:00 AM# And Format(Time, "Long Time") <= #3:00:00 AM# Then DoCmd.OpenForm "frm1" Else MsgBox "لا يمكن عمل دخول او خروج في الوقت الحالي" Exit Sub End If End Sub Private Sub أمر30_Click() If Format(Time, "Long Time") >= #12:00:00 AM# And Format(Time, "Long Time") <= #3:00:00 AM# Then DoCmd.OpenForm "frm2" Else MsgBox "لا يمكن عمل دخول او خروج في الوقت الحالي" Exit Sub End If End Sub test2.rar تحياتي

جرب هذا الكود وعدله كما تشاء If (Time() >= #5:39:00 AM#) Then MsgBox "System Maintenance On-going. Please check back after 3 minutes.", vbOKOnly DoCmd.Quit acQuitSaveAll End If ملاحظة : يمكن للمستخدم ان يتلاعب في وقت الجهاز

بارك الله فيك استاذ عبد اللطيف ورحم الله والديك

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم لتغيير ايقونة النماذج والتقارير CurrentDb.Properties("AppIcon") = "D:\N.ico" ولتغيير ايقونة سطح المكتب لا بد اولا من انشاء اختصار على سطح المكتب للبرنامج وهذه وظيفة الكود التالي Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") Dim strDesktop As String strDesktop = WshShell.SpecialFolders("Desktop") Dim X As Object Set X = WshShell.CreateShortcut(strDesktop & "\Officena.lnk") X.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name X.WindowStyle = 1 X.IconLocation = CurrentProject.Path & "\N.Ico" X.Description = "Officena" X.WorkingDirectory = strDesktop X.Save تحياتي

تفضل اخي الكريم البحث في جميع الحقول للحصول على السجلات المكرره.rar تحياتي

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 2020 البرنامج هو تحديث للاصدارات السابقة من نفس البرنامج اولا وقبل كل شيئ اعتذر عن التأخير فى اطلاق هذا الاصدار نظرا لانشغالي الدائم وظروف خارجه عن الارادة. كما هو معروف عن برنامج المخزون و الفواتير الشامل: واجهة تطبيقية كاملة علي الاكسيل يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين و حساب المصروفات مع ميزانية عامه توضح الربح و الخساره. البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها.بالاضافه الي طرق جديده فى تصميم الفاتورة كما يتميز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت يعمل علي جميع اصدارات الاكسيل بنواتين 32 أو 64 بت ويفضل دائما الاصدارات الاحدث من الاكسيل اوفيس 2019 و 365 البرنامج مجاني بنسبة 100 % للاستخدام الشخصي ولا يوجد به تاريخ انتهاء. وتستطيع استخدامه بامان تام.ويمنع بيع البرنامج او اي ربح تجاري بدون الرجوع الي المالك الاصلي.و الله الشاهد علي ذلك. تم تصميم البرنامج بمواصفات خاصه ويعمل للشركات الصغيره الي متوسطة الحجم او للمشاريع الخاصه .وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية. تم اطلاق الاصدار الاول من هذا البرنامج عام 2012.وكل ما يلزم هو وجود نسخة اكسيل علي جهازك.وسيفي بالغرض تماما. هذا هو اخر اصدار للبرنامج علي اكسيل و الاصدار الخامس و لمزيد من التحسينات الكبيره سوف يتم تطويره إن شاء الله بلغة برمجه اخري وقاعده بيانات اخري. الدخول الاول:اسم المستخدم "مدير" و الباسورد 123 تم ارفاق نسختين من البرنامج نسخة الاستخدام المباشر كمستخدم ويمكنك استخدامها فى عملك مباشرة. نسخة اخري للتعلم مفتوحة المصدر وتوجد بها جميع الاكواد لجميع الشاشات داخل البرنامج للتعلم او التعديل عليها كما هو الغرض الرئيسي من هذا الصرح العظيم. يمكنك الرجوع الي الاصدارات السابقة حيث يوجد شرح كامل لكيفية استخدام البرنامج لاول مرة. توجد الروابط للاصدارات السابقة و الشرح اسفل هذا الموضوع . 📑الجديد في هذا الاصدار (2020)SIS Ver.4: شاشة تصميم الفواتير و هي من الشاشات الجديدة وبها الكثير من الاكواد الجديده فى الاكسيل (علي حسب علمي) حيث تمكنك من وضع اللوجو الخاص بالمؤسسه او الشركة الخاصه بك كما يمكنك ايضا وضع بياناتك اسفل الفاتورة كرقم التليقون و العنوان و ...... التحكم الكامل في بعض القيم و ظهورها داخل الفاتورة كرصيد العميل. شاشة اختيار عملة الدولة ووضع الضريبه او القيمه المضافه تمكنك هذه الشاشه من اختيار العمله علي حسب الدوله التي تعمل فيها. كما تمكنك من ضبط قيمة الضريبه او القيمه المضافه لفواتيرك شاشة ضبط صلاحيات المستخدمين بعد اضافة مستخدم جديد للبرنامج تستطيع ضبط صلاحيات المستخدم من الوصول الي جميع شاشات البرنامج شاشة حذف البيانات الغير مستخدمة بكل سهولة تستطيع حذف العملاء و الموردين او الاصناف الغير مستخدمة داخل البرنامج. شاشة الحركة المالية السريعة تستطيع ادخال سند صرف موردين او سند عميل بضغطة زر واحده. شاشة الفواتير الكثير من التحسينات تم ادارجها داخل شاشة الفواتير فاتورة المشتريات . انت من يقوم بوضع رقم الفاتورة الخاصه من المورد.بدلا من وضعها اتوماتيكيا كالاصدار السابق. اضافة خصم اجمالي علي الفاتورة. يتم تحديد الخصم كنسبه مئويه او خصم مبلغ مقطوع. اضافة الضريبه علي الفاتورة ويمكن تحديد قيمتها يدويا او تثبيتها من خلال شاشة البيانات الجديده وضبط الضريبه او القيمه المضافه علي حسب الدولة. مبيعات نقدي: فى حالة اختيار هذا النوع من الفواتير يتم ادراج سند قبض مباشره الي حساب العميل مع حفظ الفاتورة لانها مبيعات نقدية. ظهور رصيد العميل الحالي داخل الفاتورة. و التحكم في ظهوره من خلال شاشة تصميم الفاتورة. زر لسداد كامل الفاتورة مباشرة وادراج سند قبض او سند صرف داخل حساب العميل/المورد سند بالمبلغ المدفوع داخل الفاتورة وتسوية حساب العميل او المورد. شاشة الحركات المالية ادراج الكثير من الحركات المالية داخل سند الصرف. شاشة جديده لحساب رواتب وجميع الحسابات للموظفين العاملين فى المؤسسة او الشركة يوجد الكثير من الاضافات و التحسينات علي كل الشاشات والتقارير داخل البرنامج . تستطيع اكتشاف المزيد و المزيد اثناء استخدام البرنامج. التعامل مع رصيد اول المده (كميات الاصناف- حسابات العملاء/الموردين) تم الاستغناء عن شاشة اكواد البيانات والجرد فى هذا الاصدار وكانت تستخدم لوضع رصيد اول المده للاصناف. وعوضا عن ذلك ولحساب المخزون بطريقه منظمه يجب ان يتم وضع كميات اول المده لجميع الاصناف من خلال فاتورة مشتريات باسعار شراء محدده حتي يتم ادراجها وحسابها بطريقه دقيقه.وايضا فى حالة رصيد سابق للعملاء والموردين يجب ان يتم ادخاله من خلال شاشة الحركات الماليه( حركة ماليه رصيد اول مده او ترحيل لحساب عميل/مورد) طباعة الباركود لا تزال غير مفعله ايضا فى هذا الاصدار. 👁️‍🗨️شرح كيفية استخدام البرنامج وادخال البيانات من الاصدارت السابقة:(برجاء مراجعة الروابط التالية) شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) استخدام البرنامج لاول مره من الاصدار الثالث شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) 🏷️تحميل البرنامج: النسخة الاولي SIS 4.566EO : هى نسخة المستخدم النهائي مجانيه 100 % لاعضاء المنتدي الكرام وليس لها تاريخ انتهاء وكما ذكر سابقا هي للاستخدام الشخصي فقط. 💳SIS 4.566EO.rar النسخة الثانيه SIS 4 Learning : هي نسخة للمطورين و الباحثين عن التعلم وهي نسخة مفتوحة المصدر تحتوي علي جميع اكواد الشاشات داخل البرنامج. 🧼SIS4(Learning).rar إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

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

اشكرك اخي الكريم علي كلماتك الطيبه. شكرا علي مرورك الكريم. تحياتي

تفضل التعديل اخي الكريم HLA_HLA.accdb

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

هذا فورم للاستاذ عماد غازي عله ان يفيدك change back color button automaticaly.xlsm

تفضل hide_rows.xls

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

ممكن في النماذج والتقارير عن طريق التنسيق الشرطي تحياتي

اعتقد اخي ازهر السؤال الصحيح هو متى نسنخدم متغير من نوع Variant تحياتي

بارك الله فيك استاذ ماجد عمل ممتاز

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub أمر11_Click() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[no_m]=""" & Me.نص9 & """" Me.Bookmark = rs.Bookmark End Sub Private Sub أمر13_Click() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[name]=""" & Me.نص12 & """" Me.Bookmark = rs.Bookmark End Sub تجريبي1.rar تحياتي

بارك الله فيك استاذ ماجد وزادك الله من فضله

أحسنت استاذ عمرو عمل ممتاز بارك الله فيك وزادك الله من فضله

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

ممكن ذلك عن طريق الكود

وعليكم السلام 🙂 وعيدكم مبارك 🙂 انا لم اعمل رسائل تنبيه ، وانما عملت شيء قد يكون مقبول 🙂 1. نعمل استعلام مجاميع ، ونجمع الحقول في حقل واحد (لاحظ الحقل All ) : . ثم نعمل استعلام عادي لنفس الجدول ، وننسخ حقل All اليه . نعمل نموذج لكل استعلام ، ثم نضع النموذجين في نموذج واحد ، ونربط النموذج الفرعي بالرئيسي عن طريق الحقل All : . والنتيجة ، لما تختار من النموذج الرئيسي ، تجد تفاصيل السجلات في النموذج الفرعي : . جعفر 1239.Count.mdb.zip

السلام عليكم 🙂 انا ضد وضع الساعة في النموذج ، لأن حدث On Timer يحدث كل ثانية (ساعتك تشير الى انك تعرض الثواني ايضا) : 1. ومستحيل انه يستطيع ان يحدث كل ثانية ، لأن هذا الامر مرتبط بساعة الجهاز ، وعلشان اكسس يقدر يحصل على هذه المعلومة ، فإنه يطلبها من الوندوز ، والذي معناه ان المعالج CPU يجب ان ينفذ هذا الامر ، ومن المعروف ان المعالج يكون لديه طابور من الاوامر لتنفيذها ، والأولوية لتنفيذ أوامر الوندوز ثم اوامر البرامج ، ومستحيل ان المعالج يكون فاضي ومستعد 100% لتنفيذ امر الاكسس في تلك الجزئية من الثانية. لهذا السبب ترى ان معظم الوقت الثواني تعمل بطريقة صحيحة ، وبعض الاوقات تتوقف الثواني (لما المعالج يكون مشغول بتنفيذ أوامر اخرى) ، ولا حقا نرى ان الساعة تعمل بطريقة صحيحة!! طبعا كلامي ليس معناه ان بعد التوقف يكون الوقت خطأ ، وانما كلامي انه يكون فيه تأخير في عرض الثواني بعض الاوقات ، 2. وبما ان الساعة موجودة في زاوية الكمبيوتر (ولاحظ انه لا يوجد بها ثواني ايضا) ، فمافي داعي ان نضع ساعة في النموذج ، إلا اذا كان عندنا نموذج منبثق يملئ الشاشة ، واللي من الخطأ استعمال النموذج المنبثق إلا في حالات نادرة ، وهذه احد مشاكله !! 3. حدث الساعة سيكون يعمل طوال وقت استعمال البرنامج ، ولما تفتح احد النماذج وتريد تنفيذ احد الاوامر ، قد تجد فيه بطئ في التنفيذ ، 4. بما ان حدث الساعة يعمل طوال وقت استعمال البرنامج ، واذا اردت ان تعمل تغيير في كود احد النماذج الاخرى في البرنامج ، فسترى انك لا تستطيع كتابة الكود بحرية ، لأنه كل ثانية سترى ان مؤشر الكتابة يرجع الى اول السطر ويترك السطر بلون احمر لأنك لم تكمل كتابة الكود ، الى ان تغلق النموذج الرئيسي او تضعه في وضع تصميم فيتوقف حدث الساعة 🙂 عند استعمال الصور يجب المحافظة على نسبة الطول الى نسبة العرض ، حتى تظهر الصورة بمقاسات صحيحة ، لذلك لا تستعمل Stretch (لاحظ الخيار الثاني في القائمة) إلا بنسبة قليلة ، وإلا فالشكل الدائري سيظهر كشكل بيضاوي (وهذا غير صحيح وعمل غير احترافي) ، ولاحظت هذا على احد صورك في النموذج : . جعفر

السلام عليكم وبالإضافة لما تفضل به أساتذتنا الكرام من باب تجربتي البسيطة في ربط برنامج اكسيس بـ SQL Server فكان الأداء والسرعة لا تقارن جدا . وأيضا لست بحاجة لمجلد لمشاركة قاعدة البيانات إلا فحالة مشاركة الملفات ... وكذلك الاجهزة المتصلة بالواي فاي فأداؤها جيد جدا 👍 . أيضا والحمدلله قمت بتصميم بعض الصفحات من خلال فيجوال استديو بلغة السي شارب بتقنية asp.net وربطتها بنفس القاعدة في الشبكة الداخلية وأداء خرافي .

هناك طريقة اخرى باستعمال index match وذلك للتمكن من تغيير ترتيب الجدول في الصفحة بحث عن مثلا قم بكتابة تاريخ الميلاد بدل رقم الملف سيتغير الناتج الى قيمة تاريخ الميلاد في العمود واضفنا له فورم ادخال من اجل مساعدتك في ادخال المستلزمات البحث بالرقم القومى1.xlsm

بارك الله فيك وأكرمك الله فى الدارين

أحسنت استاذ ماجد بارك الله فيك وزادك الله من فضله

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

أحسنت استاذ ماجد بارك الله فيك وزادك الله من فضله

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

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

مرفق الملف بعد التعديل المطلوب وبالتوفيقhamed 2.xls

احسنت استاذ عبد اللطيف بارك الله فيك وزادك الله من فضله

بارك الله فيك وجزاك الله كل خير

بارك الله فيك وزادك الله من فضله

كود لطباعة صفحات معينة On Error Resume Next ActiveWindow.SelectedSheets.PrintOut From:=Range(E1").Value, To:=Range("G1").Value, _ Copies:=1, Collate:=True, IgnorePrintAreas:=False كود لحذف عدد من الصفوف تحدد باستخدام خليتين i = Sheet1.Cells(1, 5) ' Cell E1 j = Sheet1.Cells(1, 7) ' Cell G1 Rows(i & ":" & j).Select Selection.Delete Shift:=xlUp Range("B2").Select

وعليكم السلام-تفضل لك ما طلبت بمعادلة Sumif & Sumifs الفلزات1.xlsx

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

تم ضبط الأبعاد بدقة فعليك بعدم العبث بها 1عتماد مستندات نهائى1.xls

بارك الله فيك ... وتقبل الله منا ومنكم سائر الأعمال

بارك الله فيك استاذنا الكريم وجزاك الله خير الثواب

بالنسبة للكود الاول لم يعمل معك .. لأنك SIRIAL غير موجود في النموذج لديك في الكود الثاني استخدمنا DLOOKUP للبحث عن القيمة الموجودة في مربع النص IDE في جدول EMPDEV في الحقل IDE عندما قيمة الحقل IDE يساوي القيمة الموجودة في مربع النص IDE عند وجود القيمة في الجدول يقوم الكود بمسح الحقول واعطاء الرسالة بوجود السجل ELSE في حالة عدم وجود القيمة في الجدول يتمم حفظ السجل انصحك بالبحث في المنتدى شرح مستفيض عن دالة DLOOKUP ارجو اني وفقت للشرح ...... لأني ضعيف جدا في الشرح ....

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

مثال تطبيقي db1.zip

السلام عليكم تفضل أخي هذا هو الكود Dim str_code As String Dim name_frm As String Dim frm As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each frm In dbs.AllForms name_frm = frm.Name DoCmd.OpenForm name_frm, acDesign str_code = "Private Sub Form_Load()" & vbCrLf & _ "call Color_V(me)" & vbCrLf & _ "end sub" Forms(name_frm).Module.AddFromString str_code DoCmd.Close acForm, name_frm, acSaveYes Next

السلام عليكم جميعا يمكنك فعل ذلك عن طريق الحشر بالطريقة التالية Object.[event]="=MsgBox('Say Something')" يمكنك استخدام جميع وظائف أكسس، أو إنشاء وظائف خاصة، كما يمكنك استخدام الميكرو أيضا تنبيه الإجراءات ()SUB لا يعمل هنا لأنه لا يقبل الاسناد! إليك مرفق الاستاذ أبو خليل بعد التعديل db1.zip

أخي الكريم // حل اخر بجانب حل اخي الاستاذ/ قنديل الصياد بارك الله فيه وجزاه خيرا استخدم الكود التالي في حدث الصفحة واكتب حروف صغير سوف تتحول الي حروف كبيرة (كبتل) Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo ErrTrap With Target If .Count = 1 Then .Value = UCase(.Value) End If End With ErrTrap: Application.EnableEvents = True End Sub التطبيق بالمرفقات الكتابة بحروف كبيرة.rar