ياسر خليل أبو البراء

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

أخي الكريم أكرم بالنسبة لإخفاء عناوين الصفوف والأعمدة جرب السطر التالي ActiveWindow.DisplayHeadings = False إذا غيرت القيمة False إلى True يتم الإظهار **************** وهذا السطر لشريط الصيغ Application.DisplayFormulaBar = False وينطبق نفس الكلام مع القيم True و False .. *************** وذلك عند تصغير الشاشة :: كيف ستعرف أن الأمر تم إذا قمت بتصغير الشاشة يطبق على كافة الأوراق : الفكرة في إظهار وإخفاء عناوين الصفوف والأعمدة وشريط المعادلات غير متعلق بأوراق محددة بل بالمصنف بأكمله تقبل تحياتي

بل أنت لها أخي الحبيب عبد العزيز حاول وافشل يكفيك شرف المحاولة ، لا تيأس أبداً قم بعمل بحث ولو مبسط عن الأمر حتى تتكون لديك فكرة عن الموضوع ، اكتب باللغة العربية حفظ في الريجستري باستخدام excel vba لعل وعسى تجد مبتغاك الموضوع محتاج لبحث طويل والوقت لا يسعني في حقيقة الأمر وبعدين مفيش إحراج في التعلم ، فأنا ما زلت أتعلم وكل يوم اتعلم شيء جديد العلم ليس له حدوووووووووووووووووووووووووووووووووووووووووووووود

ولكن هذا الطلب صعب جداً تحقيقه .. لأنك ستدخل في دائرة احتمالات لا حصر لها ..!! هناك موضوعات مشابهة لطلبك وتم تقديم الحل فيها بشكل جزئي وليس كلي ، ولكنها لم تؤدي الغرض بشكل كامل ..إلا إذا كان النطاق صغير حتى تقل الاحتمالات ابحث بالمنتدى وستجد موضوعات متعلقة أو اطلع على الملف التالي عله يفي بالغرض اكتب في الخلية الصفراء الرقم المطلوب حساب احتمالات الجمع له وليكن 10 ..أو 20 وشوف الاحتمالات اللي هتشوفها في شوية أرقام بسيطة (ما بالك لو أرقام كتير !!) Combinations Scenario For Values Summation.rar سؤال هل الأرقام المراد تجميعها متتالية ؟ لو كانت الأرقام متتالية لربما كان هناك طريقة لتحقيق المطلوب أما إذا كانت متفرقة .. فأرى أنه سيكون صعب جداً تحقيق المطلوب

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

وجزيت خيراً أخي الحبيب أحمد .. مشكور على دعائك الطيب ومتابعتك المستمرة للموضوعات المختلفة

إخواني الكرام .. كان هذا موضوع البحث الأسبوع الفائت لمن أراد الإطلاع عليه .. تقبلوا تحياتي

لا استجابة لموضوعات البحث !

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

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

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

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

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

بعد هذا السطر ورقة2.Range("B2").Value = Target.Value أضف السطر التالي ورقة2.Activate

أخي الكريم ابو عبد الرحمن كليك يمين على اسم ورقة العمل المسماة "السجل الرئيسي" ثم View Code والصق الكود التالي في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 2 And Target.Column = 1 Then Application.EnableEvents = False ورقة2.Range("B2").Value = Target.Value Application.EnableEvents = True End If End Sub أرجو أن يؤدي الغرض إن شاء الله تقبل تحياتي

غير السطر في الكود إلى GetData "D:\Update\Reference.xlsx", "Material", "F9:F12", Sheets("Weight").Range("A1"), True, True أخي الكريم أبو عيد بارك الله فيك وجزيت خيراً على الكود الجميل .. اطلعت على المصنف المسمى Reference ووجدت أن النطاق F10:F12 وليس F9:F12 .. والغريب أن F9 خلية مدمجة وعند تنفيذ الكود تأتي النتيجة بالنص F1 في أول خلية A1 ..من أين أتت هذه القيمة النصية F1؟؟ ولما غيرت النطاق إلى F10:F12 لم تأتي النتائج منضبطة !؟؟

في الخلية C45 ضع المعادلة التالية =COUNTIFS($H$11:$H$36,">=0",$H$11:$H$36,"<5") ونفس الكلام مع بقية المعادلة مع تغيير الشروط فقط * إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

أخي الكريم إبراهيم ضع المعادلة التالية في الخلية I2 واسحبها لأسفل =IF(E2=1,100-(G2*1.25),IF(E2=2,100-(G2*1),IF(E2=3,100-(G2*0.99)))) إذا لم تكن النتائج صحيحة فيرجى إرفاق شكل النتائج المتوقعة تقبل تحياتي

أخي الكريم الموضوع غير واضح يرجى إرفاق ملف وتوضيح المطلوب بشيء من التفصيل تقبل تحياتي

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

التعامل مع الأكواد لا يدعم التراجع ..والكود يقوم بعمل الدالة التي تقوم بإدراجها فما الداعي لإدراج المعادلة في هذين العمودين (الثاني والثالث) ..؟

أخي الكريم تفضل شرح مبسط للكود Private Sub Worksheet_Change(ByVal Target As Range) 'إذا كان عدد الخلايا التي سيتم فيها التغيير أكثر من خلية يتم الخروج من الإجراء الفرعي If Target.Cells.CountLarge > 1 Then Exit Sub 'في حالة التعامل مع العمود الثاني والصف أكبر من 1 أي التعامل مع الصفوف بدايةً من الصف الثاني If Target.Row > 1 And Target.Column = 2 Then 'إلغاء خاصية تمكين الحدث Application.EnableEvents = False 'الخلية في العمود الثالث التالي للخلية الهدف يساوي 'قيمة الخلية الهدف التي يتم الكتابة فيها × الخلية في العمود الاول Target.Offset(0, 1).Value = Target.Value * Target.Offset(0, -1).Value 'استرجاع الخاصية مرة أخرى وتفعيلها Application.EnableEvents = True End If 'في حالة التعامل مع العمود الثالث والصف أكبر من 1 أي التعامل مع الصفوف بدايةً من الصف الثاني If Target.Row > 1 And Target.Column = 3 Then Application.EnableEvents = False 'الخلية في العمود الثاني السابقة للخلية الهدف تساوي 'قيمة الخلية الهدف التي في العمود الثالث / الخلية في العمود الأول Target.Offset(0, -1).Value = Target.Value / Target.Offset(0, -2).Value Application.EnableEvents = True End If End Sub

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

أخي الكريم أبو يحيى كليك يمين على اسم ورقة العمل ثم View Code ثم ضع الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 2 Then Application.EnableEvents = False Target.Offset(0, 1).Value = Target.Value * Target.Offset(0, -1).Value Application.EnableEvents = True End If If Target.Row > 1 And Target.Column = 3 Then Application.EnableEvents = False Target.Offset(0, -1).Value = Target.Value / Target.Offset(0, -2).Value Application.EnableEvents = True End If End Sub

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