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

السلام عليكم 🙂 عند تنصيب الاوفيس 2019 و 365 ، فإن التنصيب الافتراضي هو نواة 64 بت ، بينما سابقا كانت مايكروسوفت توصي بتنصيب الاوفيس نواة 32 بت (بغض النظر عن نظام الوندوز) : لذا فقد آن الأوان ان تكون برامجنا تعمل على النواتين 32/64 بت 🙂 اسهل طريقة لتنصيب اكثر من نسخة من البرامج ، هو استخدام الكمبيوتر الافتراضي 🙂 رجاء مشاركتنا تجربتك في هذا المجال 🙂 جعفر

ها هي في النموذج ( مربوط باستعلامك الذي أنشأته الأخير ) يعطيك بدون تكرار ، وآخر تاريخ صيانة للمركبة . إن شاء الله يكون طلبك .. مع الشكر والتقدير للأخ أحمد الفلاحجي . ‏‏Vibrators.accdb

السلام عليكم منذ سنوات عديدة لم استخدم جهاز افتراضي ، منذ كنت احاول تجربة اللينكس في اول اصداراته ليس لدي ما اضيفه ، و لكن و بما اننا نتحدث عن ويندوز و اوفيس ، لما لا نستخدم تطبيق الجهاز الافتراضي للمطورين من مايكروسوفت https://developer.microsoft.com/en-us/windows/downloads/virtual-machines/ كما انه فى اصدارات قديمة للاوفيس ، كان تحميل نسختان مختلفتان من الاوفيس (بنفس النواة) يمكن عمله على نفس الويندوز ، و كنا نضطر فى بعض الاحيان الي التحميل على قرصين مختلفين لتعملا سويا ،و صراحة لاادري ان كان الامر نفسه بصلح عند اختلاف النواة، فالمفترض ان يرفض النظام تحميل اوفيس بنواة مختلفة عن نواة الويندوز. فصراحة لم يحدث ان جربت تحميل اوفيس لنواتين مختلفتين معا ، فقط اصدارات مختلفة، و أفترض ان كل اصدار يحب ان يكون على نفس اصدار الويندوز المناظر ليعمل بكفاءة لذا فاستخدام جهاز افتراضي مطلوب فى هذه الحالة

تعديل على مثالك الاخير لاظهار اخر السجلات بناء على اخر تاريخ Vibrators(1).accdb

السلام عليكم مشاركه مع اخوانى الافاضل @فايز.. و @أمير2008 جزاهم الله خيرا ممكن ترفق ملف وورد به ناتج الاستعلام المطلوب من خلال البيانات المرفقه بالمثال الذى ارفقته باول مشاركه وياريت توضحلى اكثر الجداول المطلوب منها البيانات مع اسماء الحقول زى جدول tblProType وبه اسم الاجراء - ادامة اذكر باقى الجداول مع اسماء الحقول المطلوبه من كل جدول بالاضافه لملف الوورد وبه ناتج الاستعلام الفعلى لان الناتج الفعلى مش هيكون 13 بالتوفيق

السلام عليكم ورحمة الله وبركاته وتقبل الله طاعاتكم تفضل Duplicate-waz.mdb

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

بالنسبة للصق (يمكنك الاختيار من خلال الـــ Input Box عدد الصفوف في كل مرة والافتراضي هو 20 لذلك اذا اردت اكثر أو اقل حدد بنفسك واضغط Ok) تم ادراج شيت جديد يحتوي على الديباجة (الشيت مخفية لأن لا عمل لها سوى الاحتفاظ بالديباجة) لأ انه في حال مسح المعلومات لادراج رقم جديد للصفوف تم تمسح ألديباجة الملف الجديد مرفق (بردو الصفحة Salim من هذا الملف لأني لا اريد ان أغير شيئاً بالشيت الأولى حفاظاَ على محتوياتها) الزر Del Dibaja هو لارجاع البيانات الأصلية كما كانت بدون ديباجات الماكرو الجديد Sub salim_rows() Dim t%, lr%, x%, z%, a% Dim my_rg As Range, k% Dim In_box If ActiveSheet.Name <> "Salim" Then GoTo End_Me Application.ScreenUpdating = False del_Empty_rows In_box = Application.InputBox("How Many Rows", , 20) a = In_box - 1 'number of rows for every group z = 3 'number of rows to be insert every time x = 7 'first row to begine If a <= 0 Then Exit Sub t = x + a + 1 If z > 5 Then z = 5 lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next Set my_rg = Range("B" & x & ":B" & lr).SpecialCells(4) my_rg.EntireRow.Delete On Error GoTo 0 Do Until Cells(t, "B") = "" Rows(t).Resize(z).Insert Sheets("sheet1").Range("My_DEB").Copy _ Cells(t, 1) t = t + a + z + 1 Loop End_Me: Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub del_Empty_rows() On Error Resume Next Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Range("Ba7:Ba" & lr).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End Sub الملف من جديد Najehoun.xlsm_1.xlsm

وعليكم السلام أخى @ازهر عبد العزيز هل هذا ما تريد New Microsoft Access Database (5) - Copy.accdb

هلا اخي هذه محاولة Aziz.accdb

من المميزات الجميلة في ويندوز 10 نسخة البرو امكانية تشغيل انظمة افتراضية اخرى بدون الحاجة الى برامج اضافية حيث ان هذة الميزة مضمنه وتحتاج فقط الى تفعيل في نافذة تشغيل run ضع الامر التالي OptionalFeatures.exe انظر الصور المرفقة وعيش حياتك ياعم احمد🌹

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

شكر الله لك أخي @kha9009lid أحاول أن أجتهد في البحث عن الجواب .. أبحث في العم google عسى ان أجد جوابا ثم أقدمه للسائل . ليست عبقرية مني .. أشكرك مرة ثانية . شكر الله لك أخي @kanory وجزاك خيرا . قدر ما يستطيع الانسان ينفع إخوانه فليفعل . الله يتقبل منا ومنكم ..

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

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

نعم اخي احمد هذا اعلان مايكرو بخصوص ويندوز 7 اعتبارًا من 14 يناير 2020، سيستمر جهازك الذي يعمل بنظام التشغيل Windows 7 في العمل، ولكن لن تقوم Microsoft بتقديم الخدمات التالية:: الدعم الفني لأي مشاكل تحديثات البرنامج تحديثات الأمان أو إصلاحه تجربتي تقريبا جربت جميع انظمة مايكرو رحلة طويلة من عام 1982 من اصدار دوس3 الى دوس5 ثم ويندوز1 و 3 و3.1 و3.11 و95 و98 كلا الاصدارين وملينيوم و2000 و2003 ستاندر اديشن واكس بي وفيستا و7 و8 و8.1 واخيرا 10 لم اجد افضل من 10 لاستقرار النظام والوضع الليلي ووضع الطيران وكذلك 7 للتوافق مع الاجهزة والبرامج القديمة ولكن ثغراته كثيرة ولم اجد اسوء من فيستا ثقيل ومشاكلة لا تنتهي اضافة رائعة استاذنا الفاضل نعم استاذي لا يمكن تحميل اصداري اوفيس مختلفتي النواة وهذا مذكور في وثائق مايكرو هذا النص من موقع مايكرو احرص على أن تكون جميع إصدارات Office التي تريد تثبيتها من الإصدار 32 بت أو 64 بت. لا يمكنك تثبيت مزيج من الإصدارين. اطلع على الخطأ "تعذر تثبيت Office‏ (64 بت أو 32 بت‏)" عند محاولة التثبيت.

ربي يسعدك أخي @أحمد الفلاحجى

من تجربتي ويندوز 10 احيانا عند تركيب ويندوز 10 اخر يحصل مشكلة عند الاقلاع المشكلة احيانا تختفي شاشة اختيار النظام عند بدء التشغيل والمشكلة الاكبر عندما يرفض الجهاز الاقلاع يمكن حل المشكلة باستخدام EasyBCD تحميل البرنامج مع اخلاء مسئوليتي لكون البرنامج قد يعطل عمل النظام لذا وجدت ان الافضل تحميل ويندوز 7 64 بت ثم تحميل ويندوز 10 64 بت ولكون لدي وفرة في محركات الاقراص الفعلية فانني اضع لكل نظام تشغيل قرص صلب مستقل واحد لويندوز 10 والثاني لويندوز 7 والثالث ل Ubuntu احتياجي لعدة انظمة ليس بسبب اوفيس وانما لوجود مبرمجة ملتي برجرامر وسيزون انترفيس لا يتوافقون مع ويندوز 10

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

وهذا بالضبط اللي عملته انا في البداية ، حيث من المعروف ان الوندوز يسمح بتنصيب اكثر من وندوز على الجهاز الواحد ، ولكن من تجربتي لما نصبت الوندوز 10 نواة 64 بت ثم نصبت الوندوز 32 بت ، صار لي مجموعة من المشاكل لاحقا ، فكان الكمبيوتر يشتغل تمام معظم الاحيان ، ولكن بعض الاوقات ما يشتغل ، وبالتالي اضطررت ان انصب نواة واحدة فقط !! ما ادري ، يمكن الوندوز 10 في اول ايامه كان فيه مشاكل !! جعفر

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

هلا اخي جرب المرفق __Duplicate -1.mdb

هلا اخي جرب المرفق New_Microsoft_Access_Database.accdb

تم معالجة الأمر الشيت "شيت تبيض الدور الأول" يمكن اخفائها اذا اردت أم يمكن حذفها نهائياً لكن Sheet1 لا يمكن الاستغناء عنها لأنها تحتفظ بالديباجة اذا زاد او نقص عدد الطلاب يمكن ازالة الديباجات بواسطة الماكرو المخصص لهذه الغاية (الزر Del Dibaja ) تم التعديل على البيانات (دون صفوف فارغة) و من ثم تقسيم الديباجات على الصفحة حسب الرقم الذي تريده من الــ Input Box الكود الجديد Sub salim_rows() Dim t%, lr%, x%, z%, a% Dim my_rg As Range, k% Dim In_box, ro% If ActiveSheet.Name <> "Salim" Then GoTo End_Me Application.ScreenUpdating = False del_Empty_rows In_box = Application.InputBox("How Many Rows", , 20) a = In_box - 1 'number of rows for every group z = 3 'number of rows to be insert every time x = 7 'first row to begine If a <= 0 Then Exit Sub t = x + a + 1 If z > 5 Then z = 5 lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next On Error GoTo 0 Do Until Cells(t, "B") = "" Rows(t).Resize(z).Insert Sheets("sheet1").Range("My_DEB").Copy _ Cells(t, 1) t = t + a + z + 1 Loop ro = ActiveSheet.Cells(Rows.Count, 2).End(3).Row Rows(ro + 1).Resize(z).Insert Sheets("sheet1").Range("My_DEB").Copy _ Cells(ro + 1, 1) End_Me: Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub del_Empty_rows() On Error Resume Next Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Range("B" & lr + 1).Resize(20).EntireRow.Delete Range("Ba7:Ba" & lr).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End Sub الملف من جديد Najehoun.xlsm_2.xlsm

لعل الأساتذة @jjafferr @أحمد الفلاحجى @Gamal.Saad يفيدوننا إن شاء الله .. حاولت لكن ما نجحت .. للأسف رسبت في الامتحان .

حرب هذا الكود ( DIBAJA هي النطاق الذي يحتوي على الديباجة من B1 الى AZ4 ) كان الأفضل عدم ادراج علة العلل بالنسبة للأكواد والمعادلات وهي الخلايا المدمجة صفحة salim من هذا الملف Sub salim_rows() Dim t%, lr%, x%, z%, a% Dim my_rg As Range, k% Dim In_box If ActiveSheet.Name <> "Salim" Then GoTo End_Me Application.ScreenUpdating = False del_Empty_rows In_box = Application.InputBox("How Many Rows", , 20) a = In_box - 1 'number of rows for every group z = 3 'number of rows to be insert every time x = 7 'first row to begine If a <= 0 Then Exit Sub t = x + a + 1 If z > 5 Then z = 5 lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next Set my_rg = Range("B" & x & ":B" & lr).SpecialCells(4) my_rg.EntireRow.Delete On Error GoTo 0 Do Until Cells(t, "B") = "" Rows(t).Resize(z).Insert Range("DIBAJA").Copy _ Cells(t, 1) t = t + a + z + 1 Loop End_Me: Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub del_Empty_rows() On Error Resume Next Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Range("Ba7:Ba" & lr).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End Sub الملف مرفق Najehoun.xlsm

تم تحسين الكود قليلاً لتكون النتيجة اكثر فائدة Option Explicit Sub Trasfer_data_Special() Dim R As Worksheet, Act_sh As Worksheet Dim k%, col%, Ro% Dim Max_ro%, x%, y% Dim Bol As Boolean Dim ST_Dat As Date Dim End_Dat As Date Dim My_sum# Dim Mot$ Mot = "الاجمالى" Set R = Sheets("Report_Youmi") Ro = R.Cells(Rows.Count, 1).End(3).Row R.Range("C3").CurrentRegion.Resize(Ro - 1).ClearContents R.Cells(3, 9).Resize(Ro + 1).ClearContents R.Cells(Ro + 1, 9).Resize(2).ClearContents ST_Dat = Application.Min(R.Range("I2:J2")) End_Dat = Application.Max(R.Range("I2:J2")) For k = 3 To Ro Bol = Application.Evaluate _ ("ISREF('" & R.Range("A" & k) & "'!A1)") If Bol Then Set Act_sh = Sheets(R.Range("A" & k) & "") Max_ro = Act_sh.Cells(Rows.Count, 1).End(3).Row For y = 3 To 7 For x = 5 To Max_ro If CDate(Act_sh.Cells(x, 1)) >= ST_Dat And _ CDate(Act_sh.Cells(x, 1)) <= End_Dat And _ Act_sh.Cells(x, 2) <> Mot Then My_sum = My_sum + IIf(IsNumeric(Act_sh.Cells(x, y + 2)), _ Act_sh.Cells(x, y + 2), 0) End If Next x R.Cells(k, y).Value = My_sum: My_sum = 0 Next y End If Next k R.Cells(Ro + 1, 3).Resize(, 5).Formula = _ "=Sum(C$3:C$" & Ro - 2 & ")" R.Cells(3, 9).Resize(Ro - 1).Formula = _ "=IF(COUNTA($C3:$G3)>0,SUM($C3:$G3),"""")" R.Cells(Ro + 2, 9) = "Sum Of All" R.Range("A3:I" & Ro + 2).Value = _ R.Range("A3:I" & Ro + 2).Value End Sub الملف مرفق My_Repport_Final_1.xlsm

أعتذر منك أخي .. تفضل Vibrators11.accdb

انتبه ولا تورط نفسك 🙂 اذا قصدك ان تنصب الاكسس نواة 64 بت على كمبيوتر آخر ، بحيث ان كمبيوترك الاصل عليه الاكسس نواة 32 بت ، فنعم الرأي 🙂 اما انك تلغي نواة 32 بت ، فقد لا تستطيع تشغيل برامجك اصلا وتتورط بنواة 64 بت !! وانا اقترح ان تبدأ بعمل برنامج فيه جميع المكتبات التي تحتاج لها ، والتي تعمل على النواتين 32/64 بت ، بحيث تصل للمكتبة بسرعة وتعرف طريقة عملها 🙂 جعفر

نسخة 32 بت ستبقى تعمل وتدعم ولكن لن يكون هناك خيار الحصول على اصدار جديد من ويندوز 32 كما حصل عند الانتقال من ويندوز 3x الى 95 والذي كان يعمل على 32 ويدعم 16 بت وايضا الاصدارات الحالية ذات 64 تدعم برامج 32 بت صحيح ولكن اصدار نسخة 64 بت فقط حتى لو كان للاجهزة الجديدة سيدفع الشركات للاتجاة نحو 64 بت وسياتي يوم يكون مصير 32 مثل 16 وتغيير نصيحة مايكروا من التشجيع على استخدام 32 بت الى 64 بت مع توجهاتها لما بعد اصدار 2004 ليس من فراغ الحقيقة لا انصحك بتنزيله حاليا اخي احمد

اكثر الله خيرك استاذنا حبيبى لن اثقل على حضرتك هاحول اعملها بالفورمات سيلس الكود هو هو ويعمل تمام التمام التمام التمام انا فرحان جدااااااااااااااااااااا بيه ,وادعى لحضرتك من كل قلبى اسعدك الله مثل ما تسعدنا يارب

احسنت قولا اخى واستاذى العزيز خالد وبالفعل اخى فايز يتعلم ويتقدم ما شاء الله عليه اسرع منى فالتعلم اللهم لا حسد حبايبى اخوانى فالله وربنا يبارك فيك وفى علمك وعملك وكل ما تحب اخى فايز ع فكره اخى فايز لحد اللحظه كان عندى استعلام مجننى بقاله حوالى 4 ايام شاغلنى لانه بيلف على جميع السجلات بالرغم ان السجلات حوالى 3000 سجل ومع ذلك وكان فى بطىء والحمد لله ربنى يسرلى الامر وانتهيت من هذه اللفه الطويله بفضل الله ثم بفضل اخواننا واساتذتنا جزاهم الله خيرا وفقك الله اخى

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

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

واياكم اخى @فايز.. لم افعل شىء بارك الله فيك على مساعده اخوانك وفقك الله

جزاكم الله خيرا اساتذتى على كل ما تقدمونه لنا من معلومات بارك الله لنا فيكم وبارك لكم فى كل ما تحبون ورزقكم الفردوس الاعلى لم احب العمل على ويندوز 10 بالرغم انه النظام الان بالعمل وع ما فهمت من الدعم عندنا انه بقى النظام الاساسى بالعمل على حسب اعتماد الدعم الرئيسى لدينا بالعمل والى الان لم اغير ويندز 7 لدى بالمنزل بالرغم ان ميكروسوفت قد اوقفت الدعم عنه وتجربتى مع virtual pc كانت لتجربه Ubuntu كان تقيل شويه ولعله من جهازى ولكن كنت خصصت بعدها جزء من الهارد لـ Ubuntu واشتغلت عليه فتره بسيطه وكان تخصيص جزء للنظام افضل من النظام الافتراضى معى بالتوفيق اساتذتى وجزاكم الله خيرا

وعليكم السلام -اجعل المعادلة هكذا =IFERROR(E12-E13,"") معادلة1.xlsx

يمكن تمثيل الخط الزمني للقيم بالجدولين مركز الخليج Chart.accdb

معنى ذلك قد نعود لتركيب اكثر من نظام تشغيل على الجهاز حيث انه يمكن تركيب عدة اصدارات للاوفيس على نفس نظام التشغيل ولكن يشترط ان تكون جميعها اما 32 او 64 اما لو كان لدينا اكثر من نظام تشغيل فيمكن تركيب اصدارات 32 و64 على نفس الجهاز

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

تسلم يا غالي والشكر موصول للأستاذ/ ابو تراب صاحب فكرة الحل منذ البداية وتكفينا دعواتك و سعادتك ما تم حله بالبرنامج من مشكلات

هذه مشكلة تقريب ، وبالمناسبة فهي مشكلة غريبة جدا للدالة Round المفترض أن : Round(82.5, 0) تساوي 83 لكن الدالة تعطي 82 في مشكلة غير مفهومة للأرقام الزوجية التي يصاحبها رقم خمسة بعد العلامة العشرية على العموم تم الحل باضافة 0.1+ Dynamic Array and form controls up 2.accdb

جزاك الله خيراً استاذ خالد 🌹😍 @kha9009lid كل عام وانت بخير

استاذى ومعلمى الفاضل / @kha9009lid اشكرك اشكرك ياغالى جزاك الله كل خير على هذا التوضيح استاذ بمعنى الكلمة وغاية فى قمة الاحترام وتواضع من استاذ كبير والله يعجز لسانى على شكرك ولا املك ان اقول زادك الله علما وفى هذه الايام العشرة الاخيرة من رمضان ان يتقبل منا ومنكم وكل اساتذة المنتدى سائر الاعمال الصالحة كل الاحترام والتقدير لشخصكم المحترم

هلا اخي جرب المرفق New Microsoft Access Database.zip

اعمل استعلام توحيد DB_1.accdb

تحديث بتاريخ: 20-5-20 في الصفحة الرسمية لمايكروسوفت بتاريخ 8/3/2019 ، فإن مايكروسوفت الآن توصي بتنصيب الاوفيس نواة 64 بت ، وهي النواة التي يتم تنصيبها تلقائيا في الاوفيس 2019 والاوفيس 365. طبعا لا يمكن تنصيب الاوفيس نواة 64 بت ، إلا على الوندوز نواة 64 بت. شو فائدة هذه الرسالة لنا؟ اعتقد من الافضل ان نبدأ بتحويل برامجنا الى النواة 64 بت ، فقد يأتي اليوم الذي تُلغى في نواة 32 بت جعفر

العفو اخى @ازهر عبد العزيز هذه محاوله على قدر فهمى تقبل تحياتى وبالتوفيق New Microsoft Access Database (3).accdb

انظر الاستعلام في المرفق .. لا أدري إن كان هو ما تقصد ووافنا بالنتيجة . Vibrators.accdb

أخي الكريم حسين جرب الكود التالي عله يكون المطلوب إن شاء الله Sub Test() Dim Cel As Range If Not Intersect(ActiveCell, Range("A2:A100")) Is Nothing Then For Each Cel In Selection If IsEmpty(Cel) Then Cel.Value = Cel.Offset(, 1).Value Cel.Offset(, 1).ClearContents Cel.Offset(, 2).Value = Date End If Next Cel End If End Sub تقبل تحياتي