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

اخى واستاذى / زيزو العجوز ما شاء الله عليك شعله نشاط بالمنتدى فى الفتره الاخيره اسال الله تعالى ان يزيدك من علمه وفضله عن علي بن أبي طالب رضي الله عنه قال: قال رسول الله صلى الله عليه وسلم :" من مشى في عون أخيه ومنفعته فله ثواب المجاهدين في سبيل الله" عن أنس رضي الله عنه قال : قال رسول الله صلى الله عليه وسلم "من مشى في حاجة أخيه المسلم كتب الله له بكل خطوة سبعين حسنة، وكفر عنه سبعين خطيئة ; فإن قضيت حاجته على يديه خرج من ذنوبه كيوم ولدته أمه، وإن مات في خلال ذلك دخل الجنة بغير حساب. قال رسول الله صلى الله عليه وسلم: "من قاد أعمى أربعين خطوة وجبت له الجنة" عن النبي صلى الله عليه وسلم: قال: من مشى إلى غريمه بحقه صلت عليه دواب الأرض ونون الماء ونبتت له بكل خطوة شجرة تغرس له في الجنة وذنبه يغفر" هذا الحديثُ رواه أبو محمد فيروز العَسقَلانِيُّ، ورَوينا في المعجم الكبير والأوسط والصغير يعني للطَّبراني عن ابن عمر رضي الله عنهما أن رجلاً جاء إلى النبيِّ صلى اللهُ عليهِ وسلَّمَ فقال: يا رَسولَ اللهِ" أيُّ النَّاسِ أحبُّ إليكَ ؟ فقال رسولُ اللهِ صَلَّى اللهُ عليهِ وسلَّمَ، أحبُّ النَّاسِ إلى اللهِ أنفعُهُم للنَّاسِ، وأحبُّ الأعمالِ إلى اللهِ سرورٌ تُدخِلُهُ على مسلمٍ أو تكشِف عنه كُربةً، أو تقضي عنهُ أو تطرُدَ عنهُ جُوعاً، ولَأَن أَمْشِيَ مع أخٍ لي في حاجةٍ أحبُّ إليَّ مِن أن اعتكِف في هذا المسجدِ شهرًا في مسجِد المَدينة، ومن كفَّ غَضبه سَتَرَ اللهُ عورتَهُ، ومن كظم غَيظه ولو شاء أن يُمضِيَهُ أن يُمضِيَهُ أمضاهُ مَلَأَ اللهُ قَلْبَهُ رَجاءً يوْم القِيامة، ومن مشى مع أخيه في حاجَةٍ حتى يُثَبِّتَها ثَبَّتَ اللهُ قَدَمَيْهِ يَوْمَ تَزِلُّ الأقدامُ". اسال الله تعالى ان يقضى حاجتك وحاجة جميع المسلمين فى الدنيا والاخره تقبل تحياتى العطره

السلام عليكم و رحمة الله و بركاته اليوم أقدم الى حضراتكم كودى الجديد الذى تستطيع من خلاله تطبيق التنسيق الشرطى داخل اليوزر فورم أو بعبارة أخرى نقل البيانات بالتنسيقات الشرطية من خلايا محددة الى كنترولات داخل اليوزر فورم مثل التكست بوكس وهذا تحقيقا لطلب أحد الزملاء و هو الأخ ابو راكان العودة على هذا الرابط : http://www.officena.net/ib/topic/65950-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82-%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%8A-%D9%81%D9%8A-%D8%A7%D9%84%D9%8A%D9%88%D8%B2%D8%B1-%D9%81%D9%88%D8%B1%D9%85/ الكود و عليه الشرح : Option Base 1 ' التصريح بأن القيمة الافتراضية الصغرى فى المصفوفة = 1 Private Sub UserForm_Activate() ' by Mokhtar 29/12/2015 ' وظيفة الكود ' تطبيق التنسيق الشرطى على كنترول داخل اليوزرفورم ' -------------------------------------------- ' التصريحات والمتغيرات Dim X As Integer Dim myArray As Variant myArray = Array("B2", "C2", "D2", "E2", "F2", "G2", "H2", "I2") ' مصادر التكست بوكس ' فى حالة حدوث خطأ ما تجاهله وانتقل الى الاجراء التالى On Error Resume Next ' حلقة تكرارية على التكست بوكس لتعبئته بالقيم والتنسيق الشرطى من المصادر ' ---------------------------------------------------------------------- For X = 1 To 8 ' عدد التكست بوكس With Me.Controls("Textbox" & X) ' لكل تكست بوكس فى الثمانية ' مصدر نص التكست بوكس .Text = Sheets("ورقة1").Range(myArray(X)).Value ' ' مصدر لون التكست بوكس .BackColor = Sheets("ورقة1").Range(myArray(X)).DisplayFormat.Interior.Color ' ' مصدر لون خط التكست بوكس .ForeColor = Sheets("ورقة1").Range(myArray(X)).DisplayFormat.Font.Color ' End With ' With انهاء جملة Next X ' انتقل الى التكست بوكس التالى ' فى حالة حدوث خطأ ما انتقل الى نقطة البداية On Error GoTo 0 End Sub المرفق : أتمنى أن يكون كودا سهلا و مفيدا لكم فى أعمالكم و برامجكم و أكوادكم بإذن الله تعالى و لا يفوتنى أن أوجه الشكر للأستاذ أبو راكان الذى أوحى لى بفكرة هذا الكود لا تنسونا بدعوة بظهر الغيب تحياتى لكم و كل عام و أنتم أقرب الى الله Conditional Formatting on Userform by Mokhtar.rar

رائع رائع رائع يا فخر المنتدى و أستاذنا الغالى وممكن يكون الكود بالشكل ده : Sub ReverseRows2() Dim i As Long, j As Long j = Range("D4").CurrentRegion.Columns.Count + 1 ' عدد الأعمدة المتاحة For i = 4 To j ' من العمود الرابع الى عدد الأعمدة Cells(5, i).Value = Cells(4, j).Value j = j - 1 Next i End Sub

أخي الكريم قلم الإكسيل (لم نتشرف باسمك الحقيقي بعد) إليك الكود التالي عله يؤدي الغرض Sub ReverseRows() Dim I As Long, LastCol As Long, Counter As Long LastCol = Cells(4, Columns.Count).End(xlToLeft).Column Counter = 4 For I = LastCol To 4 Step -1 Cells(5, Counter).Value = Cells(4, I).Value Counter = Counter + 1 Next I End Sub Reverse Values In Row & Results In Another Row YasserKhalil.rar

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

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

اخى الكريم جرب المرفق انت طلبت اظهار 3 اعمده الاسم وهو معروف بالعمود C والكمية والعدد وانا مش عارف هما هيكون بأى اعمده لكن بفرض انهم فى العمود D & E جرب المرفق تم عمل كود من عندى انا بطريقتى دون النظر بالكود اللى موجود بالملف المرفق اعلاه تقبل تحياتى Book1.zip

مشكور ما قصرت في شئ جزاك الله عنا كل خير قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ: "مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ: جَزَاكَ اللَّهُ خَيْرًا فَقَدْ أَبْلَغَ فِي الثَّنَاءِ". صححه الألباني (المشكاة، 3024). وعن طلحة بن عبيدالله بن كريز قال: قال عمر: لَوْ يَعْلَم أَحَدُكُمْ مَا لَهُ فِي قَوْلِهِ لأَخِيهِ: جَزَاكَ الله خَيْرًا، لأَكْثَرَ مِنْهَا بَعْضُكُمْ لِبَعْضٍ. قال العلامة المباركفوري في "تحفة الأحوذي بشرح جامع الترمذي": (جَزَاك اللَّهُ خَيْرًا) أَيْ خَيْرَ الْجَزَاءِ أَوْ أَعْطَاك خَيْرًا مِنْ خَيْرَيْ الدُّنْيَا وَالْآخِرَةِ. (فَقَدْ أَبْلَغَ فِي الثَّنَاءِ) أَيْ بَالَغَ فِي أَدَاءِ شُكْرِهِ وَذَلِكَ أَنَّهُ اِعْتَرَفَ بِالتَّقْصِيرِ وَأَنَّهُ مِمَّنْ عَجَزَ عَنْ جَزَائِهِ وَثَنَائِهِ فَفَوَّضَ جَزَاءَهُ إِلَى اللَّهِ لِيَجْزِيَهُ الْجَزَاءَ الْأَوْفَى. قَالَ بَعْضُهُمْ: إِذَا قَصُرَتْ يَدَاك بِالْمُكَافَأَةِ, فَلْيَطُلْ لِسَانُك بِالشُّكْرِ وَالدُّعَاءِ . لو كنت أعرف فوق الشكر منزلة أعلى من الشكر عند الله في الثمنإذا منحتكها مني مهذبة حذوا على حذو ما أوليت من حسن

السلام عليكم ورحمة الله تعالى وبركاته اولا بعد الحمد لله الذى تتم بنعمته الصالحات فسبحان الله الحنان المنان الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل له الحمد حمدا كثيرا طيبا طاهرا مباركا فيه له وحده الحمد كما ينبغى لجلال وجهه ولعظيم سلطانه ثانيا ادين بالفضل بعد رب العزة سبحانه وتعالى وللكثير من اساتذتى رواد هذا الصرح الشامخ فلولا الله ثم اساتذتى الكرام لما وصلت الى هذا الحد بعد كل الشكر والتقدير اهنئ نفسى واياكم بما وصلت اليه الموضوع بإختصار هو برنامج الصلاحيات والتحكم بالمستخدمين بالفعل أرهقنى موضوع الصلاحيات هذا لو كان اختياراً لتركته وما ترددت فى ذلك لكن تبقى الضرورة وحتمية العمل به هى المحرك الأول والأخير فكانت محاولات الإستماتة حتى إنى فى إحدى اللحظات توقعت أننى لن ولم أحاول البحث أو محاولة إنشاء الصلاحيات بعد هذه اللحظة إستعصى الأمر لدرجة أنني جربت نسبة 90 فى المئة من كل ما هو مقترح على النت لحل تلك المشكلة العويصة مشكلة الصلاحيات وكما لاحظت يعانى منها الكثير غيرى لكن من الله على سبحانه وتعالى بعلمه وفضله فتوصلت لبرنامج Users maker الإصدار الثانى الذى قيل عنه انه يعمل مع منتجات الاوفيس ابتداء من 2007 وحتى 2013 ولكن من وجهة نظرى البرنامج فقير وكنت دائما أقع فى المشاكل بسببه حتى قررت أن أفتح النسخة وأحاول التعديل عليها بما يتماشى ويتناسب مع متطلباتى وأظنها متطلبات اغلب المشاركين كما لاحظت من تساؤلاتهم وإليكم أقدم لكم البرنامج بإصداره الثالث من تعديلى الشخصى وإضافتى التى لم يسبقنى إليها أحد فحاولت تلافى الكثير والكثير من التعقيدات أترك لكم التجربة والتحليل وفى إنتظار الرد للعلم حافظت على حقوق المبرمج الأصلى للبرنامج بارك الله فى علمه الأستاذ القدير محمد مهند العبادى أتحدى وجود إصدار مشابه على الانترنت لما اطرحه عليكم الأن طبعا البرنامج حجمه كبير لن أستطيع إرفاقه عن طريق المرفقات ولذلك أطلب على استحياء من أساتذتنا الكرام المسئولين عن امور المنتديات بكل الحب والود والتقدير بعد تحليل البرنامج والتأكد من فعاليته بشكل جيد وخلوه من الأخطاء إن خلا فالكمال لله وحده إعادة رفع البرنامج على سيرفر المنتدى حتى يكون مرجع فمواقع الرفع المجانية غير مستقرة معلومات هامه جدا جدا جدا عن البرنامج بعد عمل اى برنامج خاص بكم من خلال هذه الاداة Users maker -Third Edition أولا -- من نموذج الدخول أضفت عدد اثنين مستخدمين لكل منهم صلاحيات خاصة وهم مخفيين لا يظهروا بالبرنامج إطلاقاً فى الوصع الطبيعى لعمل البرنامج المستخدم الاول مميزاته الدخول على لوحة تحكم صلاحيات المستخدمين البيانات للدخول اسم المستخدم / admin كلمة المرور / 2015 ثانياً -- المستخدم الثانى مميزاته الدخول على نموذج خاص لإلغاء تفعيل زر Shift أو تمكينه وكذلك إخفاء الجداول والإستعلامات وإظهارها البيانات للدخول اسم المستخدم / superadmin كلمة المرور / 2015 وفى النهاية إن كفيت ووفيت فمن فضل الله وأن ذللت وأخطأت فمن هوان نفسى وقلة حيلتى اسالكم بكل الحب والتقدير إن رأيتم منى خطأ فتجاوزوا عنه بحلم أو صححوه لى بعلم وفى النهاية أعتذر للإطالة جزاكم الله عنى كل الخير روابط تحميل اولا: موقع ...... ميديا فاير ........ إضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... ميديا فاير ........ إضغط هنا للتحميل mdb for Access 2000 - 2002 - 2003 ثانيا : موقع ...... بن الخليج ........ أضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... بن الخليج ........ إضغط هنا للتحميل mdb for Access 2000- 2002 - 2003 اسألكم الدعاء للأستاذ محمد مهند العبادى المبرمج ولوالديه بظهر الغيب كما أطلب منكم على استحياء أن تتذكرونى بدعواتكم الصالحات لوالدى واللهم كما جمعتنى بصحبتكم الطيبة فى الدنيا دون أن أساله اللهم لا تحرمنى منهخا فى الجنة أنا أسألك آمين ..آمين ..آمين أخوكم العبد الفقير إلى الله محمد عصام

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

السلام عليكم ورحمة الله وهذا حل بالمعادلات في الملف المرفق... أخوكم بن علية المعكوس.rar

السلام عليكم ورحمة الله أخي الكريم، لقد قدّم لك أخونا أبو البراء الكثير والكثير في الموضوع وطلب منك طلبا بسيطا وهو التعرف عليك بالاسم ولم توفّ طلبه... المهم أقدّم لك العمل التالي في الملف المرفق والذي تم بالمعادلات (معادلات صفيف لاستخراج الثنائيات التي تتحقق فيها الشروط) وقد تم الاستغناء عن المجاميع غير الضرورية والتعديل على معادلات المجاميع في الجدول (والتي جعلت الجدول على شكل مثلث لتجنب التكرارت في الثنائيات -مثلا الثنائية (b,c) هي نفسها الثنائية (c,b) نحتسبها مرة واحدة-) وهذا حسب فهمي للمطلوب والشروح التي قُدّمت... أرجو أن يكون كذلك وأن يفي بالغرض... أخوك بن علية مطلوب تعديل.rar

أخي الحبيب مختار المغوار إليك حل آخر باستخدام المصفوفات عشان لو وصل عدد الأعمدة لألف يبقى الأكواد المقدمة مسبقاً هتكون بطيئة في التعامل (وأهو تدريب لينا على استخدام المصفوفات arrays) Sub ReverseUsingArrays() Dim myArray As Variant, Temp As Variant, LastCol As Long, I As Long, J As Long LastCol = Cells(4, Columns.Count).End(xlToLeft).Column myArray = Range(Cells(4, 4), Cells(4, LastCol)).Value ReDim Temp(1 To 1, 1 To UBound(myArray, 2)) For I = UBound(myArray, 2) To 1 Step -1 Temp(1, J + 1) = myArray(1, I) J = J + 1 Next I Range("D5").Resize(, UBound(Temp, 2)).Value = Temp End Sub تقبل تحياتي

السلام عليكم أخي طارق الشئ الوحيد الذي لم اعمله هو ان اضع كلمة السر على النموذج ، حيث انك لم تذكر اسم النموذج الذي تريد ان تضع عليه كلمة السر!! وسؤال آخر ، ما دمت تستخدم ملف الحماية mdw ، فما الداعي لعمل نموذج خاص للإسم المستخدم وكلمة السر؟ فإذا كنت تريد ان تستخدم اسم المستخدم لأغراض التحكم في الصلاحيات ، فتستطيع عن طريق User and Group Permissions ان تفعل ذلك ، واذا اردت اسم المستخدم لأي سبب كان ، فهو موجود في CurrentUser اليك طريقة عمل كلمة السر لجزء الجداول: افتح برنامج الاكسس (ليس برنامجك ، ولكن الاكسس شخصيا ) ، ثم . . وكلمة السر التي استعملتها هي jj . وعندما تغلق البرنامج وتفتحه مرة اخرى: . اما كيفية وما هي الكائنات المطلوب استيرادها من FE اللي انا عملته ، فاليك الخطوات: افتح برنامجك FE ، ثم: . النموذج هذا ، حتى نستخرج منه طريقة عمل كلمة سر فتح النموذج ، ثم نستطيع حذفه من البرنامج . الماكرو AutoExec معناه انه اول شئ يشتغل لما تفتح برنامجك ، ولا داعي للذهاب الى اعدادات البرنامج واختيار النموذج الاساسي ليفحه البرنامج عند تشغيله ، وسنتكلم لاحقا عن هذا الماكرو . الوحدة النمطية basJStreetAccessRelinker تقوم بربط FE مع BE كلما لم يجد الـ FE جداول BE في مكانها ، وستلاحظ عند فتحك FE لأول مرة ، انه يفتح لك نافذة ويطلب مكان BE ، اما الوحدة النمطية m_Turn_Off فقد عملتها لجعل البرنامج يشغل ويملئ الشاشة ، ولا يعطي المستخدمين ادوات التصميم: . وقبل استعمال البرنامج ، يجب تعديل الماكرو AutoExec حتى يقوم بالخطوات التي نريدها . نغلق البرنامج ، ثم نفتحه ، فيطلب منا مكان BE (اول مرة فقط) . ولأن BE محمي ، فعند الربط بين FE و BE لأول مرة ، فيجب ادخال كلمة السر (وكلمة السر jj ، وستدخلها مرة واحدة فقط ، ولن يطلبها منك البرنامج مرة اخرى) . الى هنا وانتهينا من ربط FE و BE ، ولكن هناك بعض الامور الاخرى التي تستطيع عملها لتسهيل عملك ، او لزيادة الامان: يمكنك ان تستخدم الاختصار (عادة تضعه على سطح المكتب) ، وتضع فيه اسم المستخدم وكلمة السر ، وعند النقر عليه مرتين ، لا يسألك عن كلمة السر ، وطبعا هذا ممكن ان تستخدمه انت كمصمم ، ولا تسمح للمستخدمين ان يدخلوا بياناتهم: . وهذه هي المعلومة كاملة (طبعا لازم تغيرها حسب بياناتك وبيانات كمبيوترك) ، وطبعا يستطيع اي شخص يفهم الاكسس ان يدخل الى هنا ومعرفة اسم المستخد وكلمة السر ، لذا انتبه لها ، او لا تستعملها اصلا: . هناك شئ آخر استعمله انا في برامجي ، وهو نوع من الحماية ايضا ، وهو انك لا تسمح للبرنامج ان يفتح اذ لم يُفتح عن طريق اختصار المكتب ، فالبرنامج يعطي رسالة بانك غير مخول ، ثم يغلق البرنامج ، هذا مفيد اذا احد المستخدمين اخذ نسخة من البرنامج ، فلن يشتغل له في البيت (طبعا كلامنا كله ليس عن الشخص الخبير بالاكسس) ولعمل هذا ، نضع الكود على اول نموذج يتم فتحه (وهو نفس المكان الذي نضع عليه كلمة سر النموذج): . والكود هو: . جعفر 332.tito.zip

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

السلام عليكم ورحمة الله أخي الكريم، لقد تأخرت كثيرا بالرد عنك ذلك لأني لم أفهم المطلوب جيدا... وحسب ما قدمه أخي الكريم أبو البراء بارك الله فيه وجازاه الله خيرا (لا أستطيع حتى أن أبدأ كودا مثل الذي وضعه في الملف -زاده الله من علمه-) وحسب شرحك الأخير اتضح الأمر أكثر لكني لم أجد الطريقة التي أستخرج بها النتائج المطلوبة... الشيء الآخر الذي لم أفهمه ما هو الهدف من التكرارات وكل المجاميع التي وضعتها بالأسفل؟ هل هي فقط للمساعدة؟ وإن شاء الله، سأحاول أكثر في العمل على الملف وأرد عليك لاحقا إن لم يضع أحد الحل قبلي... واعذرني على التأخير... أخوك بن علية

أخي الكريم أبو حماده ضع الكود التالي في حدث الفورم Private Sub TextBox1_Change() If Len(TextBox1) >= 3 Then Command16.Enabled = True End Sub تقبل تحياتي

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

وعليكم السلام أبومصطفى اللي اوله شرط ، آخره نور: رجاء لما ترد عليّ ، انا سأرد عليك ، فالله يخليك خليك صبور شوي أخي عبدالرحمن ، أضف هذه المعلومة الى قائمة الرابط الذي وضعته نرجع الى موضوعك ، رسالة Write Conflict: برنامجك اخذ مني أكثر من 3 ساعات علشان احلله واعرف تفاصيل النموذج FBillCr !! الرسالة هذه معناها ، انه في النموذج في أكثر من جهة تدخل البيانات منذ فتحه (في حالتك استعلام التحديث Q4 و Q5)، والبرنامج محتار ، هل يأخذ بيانات الادخال من النموذج مباشرة ، او من البيانات اللى جاته من الاستعلام (او قد تأتيه من الجدول ، اذا عملت تحديث للبيانات للجدول ، وتنعكس هذه البيانات على النموذج). والرابط التالي فيه كود ، ولكن تابع الكود وسترى اني كنت محتاج اجدد/احدّث معلومات النموذج ، ولكن صادفتني هذه الرساله ، فاضطررت ان استعمل كود وطريقة ثانية لحل الموضوع: http://www.officena.net/ib/topic/65548-المساعدة-في-جمع-الدقائق-حسب-الشهر-للموظف/#comment-426706 والحل: 1. استعلام التحديث Q4 و Q5 ، يُدخلوا البيانات (يُحدّثوا بيانات) الحقلين dtotal و dtotal2 في النموذج الرئيسي ، بينما انت في الكود قد قمت بعمل كود للحقلين ، لهذا السبب ، احذف الاستعلامات من الكود ، واذا نتائج الكود غير صحيحة ، ضبط الكود بالنتائج الصحيحة. 2. في النموذج الفرعي ، كذلك عندك استعلام تحديث Q2 للحقل mq ، والحقل mq اصلا به كود ، لهذا السبب ، احذف الاستعلام من الكود. وكان الله غفورا رحيما جعفر

جزاك الله خيرا أستاذتنا الكريم جعفر لا أعلم لماذا لم ينظر أخونا كامل في الإجابات قبل أن يدرج نفس السؤال بطريقة مختلفة!! الله المستعان

السلام عليكم أخي عبدالرحمن وأخي كمال انا اخبرت الاخ كمال عن هذه المشكلة في الرابط التالي: http://www.officena.net/ib/topic/66010-برنامج-خاص-بالموظفين-مع-التعديل/?do=findComment&comment=429495 وبالاستعلام التالي: جعفر

اخى الحبيب انا ميردنيش انك تضيع وضيع الناس انتى برضوا حبيبى لاحظ ان التاريخ 2016/1/1 لم يأتى بعد لذالك تاريخ اليوم طبيعى مش هيفتح اما بخصوص ازاى انت تدخل وتعدل قم بايقاف الماكرو ومن ثم تدخل الفيجوال بيسك وتعدل التاريخ وتدخل عادى المهم هذا كود اخر Private Sub Workbook_Open() If Date > DateValue(" 1/1/2017") Or Date < DateValue(" 1/1/2016") Then Application.Visible = False Dim q As String q = InputBox("لفتح الملف يتطلب كلمة مرور ") If IsNull(q) Or q = "" Or q <> "123" Then MsgBox "كلمة المرور غير صحيحه سيتم غلق الملف ", vbCritical, " عفوا" Application.DisplayAlerts = False ThisWorkbook.Close Else Application.Visible = True End If End If End Sub كلمة المرور لفتح الملف فى حال كان خارج الفتره المذكوره هو 123 طبعا يمكن انت تغيره الى اى رقم سرى اخر تقبل تحياتى التحكم فى فترة صلاحية الملف.zip

شكر الله حسن صنيعك أخي الفاضل ياسر المعادلة ممتازة وتفي بالغرض بشكل كامل، سلمت يداك، وفي المرات القادمة سأرفق ملف أكسل ولكن اعذرني فأنا جديد على المشاركة في هذا المنتدى الرائع. يتبادر إلى ذهني سؤال: هل يمكن كتابة نفس المعادلة في حقل مصدر source الموجود في Data Validation من أجل القائمة المنسدلة؟ ولكم الشكر

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

السلام عليكم ورحمة الله وبركاته الحمد لله الذى بنعمته تتم الصالحات مجموعه من اعمال الاكسيل التى وفقنى الله فى تقديمها عام 2015 . نسال الله ان يتقبل منا ومنكم صالح الاعمال . http://www.officena.net/ib/blogs/entry/80-مقتطفات-فى-الاكسيل/

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

وفيك بارك يا ملك الــ VBA هذا ما تعلمنه منكم تقبل تحياتى

يا اخي جابر الامواج ضع اسم للأعمدة انا ككمية وكعدد اخذ أي عمود بارك الله فيك

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

راجع موضوع التوجيهات

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

اخى الحبيب السلام عليكم ورحمة الله اليك ما طلبت 1.rar

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

مع ان قوانين المنتدى لا تسمح بأكثر من سؤال لكل موضوع ، ولكني استسمح أخي عبدالرحمن في الرد على المشاركة هذا جواب الشق الثاني . لا تستطيع ان تُظهر الصورة في حقل نص ، لذا يجب عليك ان تعمل صورة ، وتستخدم بيانات حقل النص لإسم ومسار الصورة ، هكذا: . . . والسبب ان برنامجك كبير ، هو لأنك وضعت فيه صور مضمنه في النماذج ، والطريقة الصحيحة هو انك تغير اعدادات الصورة وتجعلها مرتبطة ، وتضعالصور في مجلد خارجي ، وتربط الصور على "حدث الحالي" للنموذج ، وتستخدم كود كما في التقرير اعلاه. جعفر

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

أخي الكريم سيف النصر أهلا بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى بالنسبة لطلبك إليك شرح الكود مع تعديل بسيط ليناسب طلبك كما ذكرت في تعليقات الكود 'تعريف متغير من النوع النصي Dim MyWindow As String Private Sub CommandButton1_Click() 'تعريف المتغيرات Dim xlApp As Application, I As Integer, FilePath 'ليعبر عن تطبيق الإكسيل [xlApp] تعيين قيمة للمتغير المسمى Set xlApp = Application 'تعيين قيمة المتغير النصي ليساوي عنوان النافذة الحالية للملف MyWindow = xlApp.ActiveWindow.Caption 'بدء التعامل مع خاصية نافذة فتح الملفات With xlApp.FileDialog(msoFileDialogOpen) 'عنوان نافذة فتح الملفات .Title = "تحميل الملف" 'إمكانية تحديد أكثر من ملف .AllowMultiSelect = True .Show 'عمل حلقة تكرارية لكل الملفات التي تم تحديدها من قبل المستخدم For Each FilePath In .SelectedItems 'زيادة المتغير بمقدار واحد مع كل حلقة تكرارية I = I + 1 'إذا وجد مسار الملف أي أن الملف موجود يتم تنفيذ السطر التالي If Not FilePath = vbNullString Then Rx3 (FilePath) End If 'الانتقال للملف التالي ضمن الملفات التي تم تحديدها Next FilePath End With 'إغلاق المصنف الحالي مع حفظ التغيرات ThisWorkbook.Close True Exit Sub Err: 'إظهار رسالة خطأ في حالة حدوث خطأ ما MsgBox Err.Description, vbCritical, "Error" End Sub Sub Rx3(Filename As String) 'فتح المصنف عن طريق تحديد مساره Workbooks.Open Filename:=Filename '[Sheet1] تحديد ورقة العمل المسماة Sheets("Sheet1").Select 'وضع نص معين في الخلية الأولى مع جعل الخط أسود عريض With Range("A1") .Value = "YasserKhalil" .Font.Bold = True End With 'إغلاق المصنف النشط مع حفظ التغييرات ActiveWorkbook.Close True End Sub أرجو أن يكون المطلوب .. إليك الملف المرفق فيه شرح الكود مع التعديلات التي تمت تقبل تحياتي Open File Name YasserKhalil.rar

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

بارك الله فيك اخي الغالي استاذ مختار فكرة جميلة ويمكن الاستفادة منها بطرق عدة تقبل مروري المتواضع

مجموعه من اعمال الاكسيل التى وفقنى الله فى تقديمها عام 2015 . نسال الله ان يتقبل منا ومنكم صالح الاعمال . تقبلوا تحياتى Mohamed Elrify . ----------------------------------------------------------------------- مكتبة اكسيل باللغه العربيه http://download-pdf-ebooks.net/49-1-library-books برامج مصممة بالاكسيل ------------------------------------------------------------------------ برنامج المصروفات الاصدار الثالث http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… ملف اكسيل حسابات عامه من قيود اليومية وحتى الميزانية http://www.mediafire.com/…/%D9%85%D9%84%D9%81+%D8%A7%D9%84%… اداره حسابات تكاليف مشاريع المقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… اعداد المقايسة التقديرية لعملية مقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… برنامج احتساب اجور العماله في شركات المقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… اعداد قائمة التدفقات النقدية بالطريقة الغير مباشره ل 4 فترات او سنوات بالاكسيل http://www.mediafire.com/…/%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF_%… برنامج توزيع فئات النقديه http://www.mediafire.com/download/r07i8zmae6hu67c/TRUNK.xlsx جدول اعمار الديون http://www.mediafire.com/…/%D8%AC%D8%AF%D9%88%D9%84+%D8%A7%… دفتر الحضور بالاكسيل http://www.mediafire.com/…/%D8%AF%D9%81%D8%AA%D8%B1+%D8%A7%… صيغ متقدمة ------------------------------------------------------------------------ ابجدة الاسماء بالمعادلات http://www.mediafire.com/…/%D8%A7%D8%A8%D8%AC%D8%AF%D8%A9+%… الداله FORCAST والداله TREND http://www.mediafire.com/…/%D8%A7%D9%84%D8%AA%D8%A8%D8%A4%D… دالة عد الاسماء بدون تكرار http://www.mediafire.com/…/%D8%B9%D8%AF+%D8%A7%D9%84%D8%A7%… دالة HYPERLINK http://www.mediafire.com/…/%D8%AA%D8%B9%D9%84%D9%85+%D8%AF%… انشاء مخطط تكرارى بالمعادلات. بدون انشاء رسم بيانى http://www.mediafire.com/…/%D8%A7%D9%86%D8%B4%D8%A7%D8%A1+%… دالة VLOOKUP بشرطين http://www.mediafire.com/…/%D8%AF%D8%A7%D9%84%D8%A9+VLOOKUP… الترقيم التلقائى بالاكسيل http://www.mediafire.com/…/%D8%AA%D8%B1%D9%82%D9%8A%D9%85+%… القيمة المستقبلية fv http://www.mediafire.com/download/14it43a76cnc7qj/fv.rar الداله LARGE و SMALL http://www.mediafire.com/…/%D8%A7%D9%84%D8%AF%D8%A7%D9%84%D… صيغه تقريب الربع الى اقرب واحد صحيح http://www.mediafire.com/…/%D8%AA%D9%82%D8%B1%D9%8A%D8%A8+%… دالة TRUNK http://www.mediafire.com/download/r07i8zmae6hu67c/TRUNK.xlsx الرصيد التراكمى بشرط http://www.mediafire.com/…/%D8%A7%D9%84%D8%B1%D8%B5%D9%8A%D… استخراج البيانات او القيم بدون تكرار بخمس طرق مختلفه http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D… توليد سلسلة تواريخ http://www.mediafire.com/…/%D8%AA%D9%88%D9%84%D9%8A%D8%AF+%… استخدام دالة VLOOKUP , INDIRECT فى البحث فى العديد من الصفحات http://www.mediafire.com/downl…/oq5dho0m1ykq85o/vlookp_2.rar استخراج بيانات بشروط http://www.mediafire.com/…/%D9%85%D8%B9%D8%A7%D8%AF%D9%84%D… دالة الجمع الشرطى من صفحات متعدده http://www.mediafire.com/…/%D8%A7%D9%84%D8%AC%D9%85%D8%B9+%… المجموع الفرعى بشرط http://www.mediafire.com/…/%D8%A7%D9%84%D9%85%D8%AC%D9%85%D… استخراج اى رقم سواء فى بداية او وسط او نهاية سلسله نصيه http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D… التقريب لاقرب 10 جنيها http://www.mediafire.com/…/%D8%A7%D9%84%D8%AA%D9%82%D8%B1%D… حالة عملية لدالة VLOOKUP فى تحديد سعر صنف ضمن مجموعة اسعار لهذا الصنف http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D… البحث عن اخر قيمة او نص فى عمود او فى صف حتى مع وجود فراغات http://www.mediafire.com/…/%D8%A7%D8%AE%D8%B1+%D9%82%D9%8A%… استخدام الداله max , min بشرط http://www.mediafire.com/…/%D8%AF%D9%88%D8%A7%D9%84+MAX+%2C… البحث عن اخر سعر بناء على شروط كاسم الصنف او المنتج والعميل http://www.mediafire.com/…/%D8%A7%D8%AE%D8%B1+%D8%B3%D8%B9%… تنسيق الارقام السالبة باللون الاحمر ووضعها بين قوسين http://www.mediafire.com/…/%D8%AA%D9%86%D8%B3%D9%8A%D9%82+%… حالة عملية متقدمه باستخدام الدالة VLOOKUP , MATCH , IFERROR https://www.youtube.com/watch?v=G5QV4V3OOt0 معامل الارتباط http://www.mediafire.com/…/%D9%85%D8%B9%D8%A7%D9%85%D9%84+%… دالة عد الالوان https://www.facebook.com/…/61…/%D8%A7%D9%8A%D9%85%D9%86.xlsm معادلة للتعامل مع التواريخ الهجريه http://www.mediafire.com/…/7e…/%D9%87%D8%AC%D8%B1%D9%89.xlsx المعادلة frequency https://www.facebook.com/download/441176896082998/aaa.xlsx مخططات استخدام الصور فى الرسم البيانى http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D… مخطط بيانى لعرض البيانات الربع سنوية http://www.mediafire.com/download/39owukjsxx4nz41/CHART.xlsx موضوعات ------------------------------------------------------------------------ طريقة عمل نسخه احتياطية من ملف اكسيل https://www.youtube.com/watch?v=1xHS1snXRKs تحليل التعادل بالاكسيل 4 http://www.mediafire.com/…/%D8%AA%D8%AD%D9%84%D9%8A%D9%84+%… تحديد نقطة التعادل في حالة تعدد المنتجات http://www.mediafire.com/…/%D8%AA%D8%AD%D8%AF%D9%8A%D8%AF-%… أدوات التحليل ماذا لو ؟ pdf http://www.mediafire.com/…/%D8%A7%D8%AF%D9%88%D8%A7%D8%AA+%… أدوات التحليل ماذا لو ؟ excel file http://www.mediafire.com/…/%D9%85%D9%84%D9%81%D8%A7%D8%AA+%… فنون وأساليب التنبؤ بالاكسيل فيديو + pdf +excel files https://www.youtube.com/watch… ميزه وخاصية ممتازه وهى Flash Fill (تعبئة سريعة) https://www.youtube.com/watch?v=OZyrmcInZLU الجديد فى اكسيل 2016 http://www.mediafire.com/…/6vda4ed2a27qf…/New+EXCEL+2016.rar وفى النهاية نسال الله ان يعيننا على الاستمرار وان يوفقنا للخير صفحة خبير اكسيل صفحتى على الفيس بوك

السلام عليكم ورحمة الله والآن دور النماذج والاستعلامات الخاصة به.. دور النماذج هذه يعتمد على تطبيق حركة (الوارد والمنصرف)، فالوارد هو الأصناف التي يتم شراءها وأيضا هو مرتجع العملاء لأن كلاهما يعتبر داخل إلى المخزن، أما المنصرف فهو البيع وأيضا المردود إلى المورد لأن كلاهما خارج من المخزن. وستكون النماذج على قسمين: (رأسية - فرعية) رأسية: تجمع رأس الفاتورة مع جدول العملاء/الموردين فرعية: تجمع تفاصيل الفاتورة مع الأصناف ◘ فالنماذج الرئيسية ستحتوي على نموذجان 1- نموذج حركة الوارد - أي الشراء والمرتجع من العميل – وسيكون مصدر بياناته هو استعلام يجمع بين جدولي رأس الفاتورة والعملاء/الموردين. 2- نموذج حركة المنصرف – أي البيع والمردود إلى المورد – وسيكون مصدر بياناته نفس الاستعلام. أما التفريق بينهما فسيكون هو الحقل (نوع الفاتورة).. والذي يأتي دوره على شكل مربع تحرير وسرد ويحتوي في كل نموذج على قائمة حسب نوع النموذج.. - في نموذج الوارد.. سيكون نوع مصدر الصف (قائمة القيم) – مصدر الصف ("مشتريات";"1";"مرتجعات العملاء";"2") - وفي نموذج المنصرف.. نفس السابق – مصدر الصف ("مبيعات";"1";"مردود لمورد";"2") وبالنسبة لحقل كود العميل/المورد فسيكون أيضا مربع تحرير وسرد، ونوع مصدره استعلام ومصدره هو جدول العملاء/الموردين.. ويمكن التفرقة بين العملاء والموردين من خلال حقل (معرف العميل) بحيث أنه يظهر العملاء فقط في نموذج المنصرف، ويظهر الموردين فقط في نموذج الوارد.. وسيكون ذلك عبر استعلام مربع التحرير والسرد الخاص بكل نموذج إلى هنا انتهينا من القسم الأول وهو رؤوس النماذج (الوارد لحركة الشراء والمرتجع) و(المنصرف لحركة البيع والمردود).. ونأتي الآن لتفاصيل الفاتورة أي النماذج الفرعية: ◘ النماذج الفرعية ستحتوي أيضا على نموذجان وليكون لكل نموذج رأسي نموذجه الفرعي، وسيكون النموذج الفرعي من نوع نماذج مستمرة: 1- فرعي حركة الوارد وسيحتوي على استعلام يجمع بين الجدولين تفاصيل الفاتورة وجدول الأصناف ولكن بدون حقل (كمية البيع أو المردود) 2- فرعي حركة المنصرف نفس السابق باستعلام جديد ولكن بدون حقل (كمية الشراء أو المرتجع) بالنسبة لحقل كود الصنف فسيكون مربع تحرير وسرد ومصدره هو جدول الأصناف ومهمته ستكون بجلب اسم الصنف وسعره من جدول الأصناف بواسطة كود وبعد ذلك ستضع كل نموذج فرعي في نموذجه الرئيسي.. بمعنى تفتح النموذج الرئيسي في وضع التصميم وتختار من عناصر التحكم (عنصر النماذج الفرعية) وتختار النموذج الفرعي الخاص به وسيكون تعريف الرابط بينهما هو رقم الفاتورة لكي يكون رقم الفاتورة الموجود في تفاصيل الفاتورة هو التابع للذي موجود برأس الفاتورة ◘ الاستعلامات (استعلام النموذج الرئيسي) و(استعلام النموذج الفرعي) : بالنسبة للاستعلامات التي ذكرت في تعريف النماذج سالفا فأبين هنا شكلها لكي لا يختلط عليك الأمر.. فنحن اتفقنا على أن استعلام النموذج الرئيسي للوارد أو المنصرف سيجمع بين جدولين (رأس الفاتورة والعملاء/الموردين).. لذلك سننشأ الاستعلام ونضع كل الحقول من الجدول رأس الفاتورة وأي حقول أخرى تختارها أنت وتريدها أن تظهر في النموذج من جدول العميل/المورد ما عدا حقل (كود العميل/المورد) لأننا قمنا بالفعل باختياره منذ قليل من جدول رأس الفاتورة وكذلك مع استعلام النموذج الفرعي والذي يربط بين تفاصيل الفاتورة والأصناف؛ فستختار كل الحقول من جدول تفاصيل الفاتورة فقط وإذا أردت أي حقول أخرى تظهر من جدول الأصناف فأدرجها ما عدا كود الصنف لأننا اخترناه سالفا ملحوظة هامة.. أكرر ما قلته بالمشاركة سابقا بأن هذا النظام ليس حكرا وأن المسميات الواردة ليست بالأساسية ولكنها توضيحية فقط، وقد ينقص شيء ولكن يمكن إضافته مستقبلا.. والله المستعان

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

السّلام عليكم و رحمة الله و بركاته أخي الكريم HOUSSAM FAWZI .. تفضّل هذا الملف .. شاهد الأكواد بداخله .. قد يفي بالغرض إن شاء الله ملاحظة هامّة : يجب وضع زر أمر للخروج فائق إحتراماتي حذف الاكس من الفورم.zip

تفضل 297.FE_BE_mdb.zip

فكره اخري password.zip

السلام عليكم أخي طارق انا عملت لك المرفق على عجالة ، واستوردت شوية وحدات نمطية من برامجي البرنامج عبارة عن قسمين: - BE وفي الجداول (جدول واحد حاليا) ، وكلمة السر هي jj - FE وبه نموذج ، وكلمة السر لفتح النموذج هي 1234 الخطوة الاولى هي ربط FE بالـ BE : افتح النموذج بالطريقة العادية ، وسوف يطلب منك معرفة اين الـ BE ، وعندما تختاره وتدخل كلمة السر jj ويفتح النموذج ، اغلق النموذج. الآن شغل البرنامج بالطريقة العادية ، وستلاحظ اللي طلبته موجود جعفر 297.FE_BE_Password_Both.zip

شكرا جزيلا أخي محمد على هذا الإطراء الجميل :-) وعندي ملاحظة على لوحتك لي ، أنه لا دخل لمسقط بالبحرين :-) جعفر

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

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

أخي العزيز / هاني أعتذر لك عن الخطأ وهو مجرد سهو في هذا الجزء من الكود فوضعته If Sheets("Payroll").Cells(I, "O")<> 0 Then والصواب هو If Sheets("Payroll").Cells(I, "O").Value <> 0 Then يعني نسيت إن المفروض قيمة ( VALUE ) الخلية اللي فيها إجمالي الراتب من العمود O اللي فيه إجمالي الراتب لكل موظف . تم التعديل بالمرفق . تقبل تحياتي أبو عبدالله HANY14+Abo3abdallah.rar

السلام عليكم ورحمة الله الطباعة لا تتوقف عند تنفيذ كود الطباعة لأنها من المفروض تتوقف عند قيمة (مضمون) الخلية F2 الذي به صيغة =(D2+1)/3 وهذه القيمة ليست عددا صحيحا طبيعيا (هو عدد عشري) والكود يتغير بأعداد صحيحة طبيعية... يمكن تصحيحه بوضع الصيغة التالية =Int(D2/3)+1 بدلا من الصيغة السابقة في الخلية F2 وسيعمل بعدها الكود جيدا إن شاء الله أخوك بن علية