omar elhosseini

بسم الله الرحمن الرحيم الاخوة الاعزاء بعد التحية كثرت التسائلات مؤخرا عندما يقوم احد الاعضاء بتحميل ملف من المنتدى وبة بعض الاكواد او الدوال . ويجد به دالة تعمل بصوره جيدة وعندما يريد استخدامها فى ملف اخر لايجدها او لاتعمل معه وهذا حقيقى . احبائى الاكسل علم من اعلام البرامج الجيدة وشامل شمول لايمكن وصفة ولا يجوز القفز داخل الاكسل وبصفة عامة فى مجال الكمبيوتر لايجوز القفز بتاتا . للتعامل مع مستوى معين من الاكسل يلزمك لكل مستوى حد ادنى من المعرفة . فلا يمكن التعامل مع الاكواد الا بحد ادنى من الالمام بالجزء العام من التعامل مع الاكواد سوء استيرادها او تصديرها او اضافتها الى الاكسل كادالة معرفة . هذة امور عامة يجب الالمام بها . وقد كتبت هذا الموضوع بخصوص النقاش الجارى فى مشكلة دالة التفقيط فأردت انتهاز الفرصة لحل مشكلة التفقيط عندما وجدت فى خزانتى دالة للتفقيط من تصميم العلامة ابو هانى . وفى نفس الوقت اقوم بشرح كيفية ادراج دالة التفقيط او اى دالة اخرى لتكون متاحه لك فى اى وقت ولا تحتاج الى نسخ الاكواد الى الملف كلما اردت استعملها . ارفق لكم ملفين عبارة عن : 1 - الملف الاول مثال به دالة التفقيط من تصميم ابو هانى وقد اعجبتنى دون جميع دوال التفقيط فهى مميزة عن باقى الدوال لانها تتعامل مع جميع انواع العملات . 2 - الملف الثانى عبارة عن عرض فيديو لكيفية ادراج اى دالة لتكون متاحة لك للاستخدام العام وهو نموذج عام لذلك . المرفق الاول دالة التفقيط وهى من تصميم ابو هانى : t.rar المفرفق الثانى : عرض فيديو لكيفية ادراج اى دالة لتكون متاحة لك للاستخدام العام فيديو ادراج دالة

بسم الله الرحمن الرحيم الاخ halwim بعد التحية اسف على التأخبر بالنبسة للقيم الغير مباشرة لايحضرنى حل لها الان ولكنى سأحاول . اما تغير المدى هذا كود العداد منفصلا بدون اضافة لللاستفادة منة Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 10 Then Me.Cells(Target.Row, 2).Value = Me.Cells(Target.Row, 2).Value + 1 If Me.Cells(Target.Row, 1).Value = 0 Then Me.Cells(Target.Row, 2).Value = 0 End If End If End Sub وستجدة بالملف المرفق الورقة الثانية اما لتغير المدى تم تعديل الكود حتى تستطيع تغير المدى كما تريد فى سهولة انظر الكود Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next ' AqsatT_Column = 6 '** رقم عمود الاقساط** Counter_Column = 7 '**رقم عمود العداد** ' Row1 = 1 '**رقم صف بداية المدى** Row2 = 10 '**رقم صف نهاية المدى** ' If Target.Column = AqsatT_Column And Target.Row >= Row1 And Target.Row <= Row2 Then Me.Cells(Target.Row, Counter_Column).Value = Me.Cells(Target.Row, Counter_Column).Value + 1 If Me.Cells(Target.Row, AqsatT_Column).Value = 0 Then Me.Cells(Target.Row, Counter_Column).Value = 0 End If End If End Sub وسوف تجد الكود بالورقة الثالثة من المرفق كما تلاحظ ان : 1 - عمود الاقساط هنا رقم 6 أى عمود "F" 2 - عمود العداد هنا رقم 7 أى عمود "G" 3 - رقم صف بداية المدى هنا رقم 1 أى من الصف الاول 4 - رقم صف نهاية المدى هنا رقم 10 أى الى الصف العاشر واعتقد التوضيح داخل الكود سهل ستجد ان عملية تغير المدى سهلة وطبعا كل هذة الاكواد يقوم العداد بالعد فى الحالات الاتية : 1 - القيم العددية 2 -القيم النصية 3 - التواريخ ولا يعمل فى حالة القيم الغير مباشرة تحياتى Counter.rar

بسم الله الرحمن الرحيم الاخ halwim لقد تم حل مشكلة احصاء التاريخ الان يقوم العداد بأحصاء التواريخ وايضا النصوص اما بالنسبة لتقيد العداد التقيد ب 4 مرات تم عملة ليتناسب مع الاربع اقساط التى قمت بتحديدهما لان العداد لو كان مفتوح لاكثر من 4 مرات سقوم بالترحيل خارج نطاق الاقساط . فاذا اردت : 1 - ان يكون العداد مقتوح وتقيد ترحيل الاقساط فقط . 2 ان يكون العداد مفتوح وايضا ترحيل الاقساط مفتوح . يمكن تعديل ذلك اما بخصوص تغير المدى سأقوم بالتوضيح لك بعد ان تستقر على باقى التعديلات إن شاء الله

بسم الله الرحمن الرحيم الاخ halwim بعد التحية اليك اخى ما طلبت فى رسالتك الخاصة بالمرفقات 1 - عمل مدى للعداد "B1:B10" . 2 - عمل ترحيل للاقساط عند الكتابة فى الخلية "A1" . 3 - حل مشكلة العداد مع التواريخ . 4 - تم الاجابة على السؤال القادم وهو عمل مدى لترحيل الاقساط مناظر لمدى الادخال فى "A1:A10 " اخى العزيز عندما تطلب المساعدة من الاعضاء قم بعرض كامل طلبك فأسلوب التنقيط خطوة خطوة يجعل الاعضاء يهجرو مشاركتك مع تحياتى AQSAT2.rar

بسم الله الرحمن الرحيم الاخ halwim بعد التحية اليك ما طلبت فى المرفقات تخيل كأنى فى امتحان تحياتى subtraction_Comment.rar

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

تم تحديث الملف المرفق فى المشاركة الاولى

اخى اذهب الى صفحة رقم 3 مشاركة 40 وحمل المرفق

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

بسم الله الرحمن الرحيم الاخ hofn بعد التحية اخى لايوجد خطأ انت نسيت ادراج الدلة "IFYes " بالملف فقط لقد ادرجتها لك بالمرفق سوف تجد الدلة فى : الدوال المعرفة بواسطة المستخدم ابلغنى بالنتائج تحياتى if_yes.rar

بسم الله الرحمن الرحيم ملف اخر به مثال اوضح من المثال الاول لاستخدام الدالة http://www.9q9q.net/index.php?f=hFeUvszY تحياتى

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

تم تحديث الملف المرفق السابق

بسم الله الرحمن الرحيم تحياتى الى الجميع احتفالا منى بالثوب الجديد للمنتدى . قررت المساهمة بمشاركة ذهبية حصلت عليها فى احدى ابحاراتى الاولية وكانت على سفينة الصحراء وليست جوية او بحرية بل كانت على الجمال . مش راح تصدق ...............................................! دالة "IFYES" مع 112 احتمال ...................................! فى معادالة واحدة معقول !!! ده يبقى جنان فى جنان ونبقى محتاجين علام من جديد . حقيقى لم نقدم للاكسل اى شئ حتى الان غير الكـــــــــــــلام . دالة "IF" فى الوضع العادى تعطى شرط واحد و احتمالين اثنين فقط وفى الوضع المركب منها بأمكانها ان تصل بنا الى سبعة "IF" مع ثمانية احتمالات . ويمكن الوصول بها الى مئات الاحتمالات فى حالة تمرير النتيجة الى خلايا اخرى ثم حصد النتيجة النهائية . دالة اليوم اسمها " إف_صح " فى الوضع العادى منها تعطى 18 ثمانية عشر احتمال . وفى الوضع المركب منها فقط تعطى 112 مئه واثنى عشر احتمال . اما فى حالة التمرير تعطى الآف الاحتمالات . سوف تجد الدالة مع الدوال فى ( معرفة بواسطة المستخدم ) . وطريقة عملها اسهل من "IF" بدون تكرار اسم الدالة زى "IF" العقيمة . ومرفق لكم ملف به مثال للتدريب عليها احتفالا بالثوب الجديد للمنتدى . واذا عجبكم الموضع نبدأ فى تجهيز دالة " إف_خطأ " وهى معكوس دالة " إف_صح " مع تحيات تامر عمر المرفقات دالة ( IFYES ) احتمالات اكثر من دالة ( IF ) العادية مع سهولة اكثر فى التعامل IFYes.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،،، والسلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم الاخ ابو احمد 3 بعد التحية نرجو ذكر الخطوات التى قمت بها بعد التحميل قد يكون وين رار غير فعال بالجهاز ؟؟؟ تحياتى

بسم الله الرحمن الرحيم الاخ smail_d شكرا على مرورك تحياتى

بسم الله الرحمن الرحيم الاخ ادم شكرا لك دائما كلماتك جميله تحياتى

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

بسم الله الرحمن الرحيم بعد اذن الاخ hs889 تيسيرا على الاعضاء السريال نمبر للبرنامج هو : AOXPPR-PRO-LWXFW-46678-FTDBV-66344 يا اخوة تصفحوا كامل الموضوع وتسهيلا على الجميع سأضع رابط به البرنامج مع السريال نمر فى رابط واحد وهذا هو ارابط http://www.9q9q.net/index.php?f=RrpKJFDC

بسم الله الرحمن الرحيم بعد اذن الاخ hs889 تيسيرا على الاعضاء السريال نمبر للبرنامج هو : AOXPPR-PRO-LWXFW-46678-FTDBV-66344 رغم انه موجود فى المشاركة رقم 53 من هذا الموضوع يا اخوة تصفحوا كامل الموضوع وتسهيلا على الجميع سأضع رابط به البرنامج مع السريال نمر فى رابط واحد وهذا هو ارابط http://www.9q9q.net/index.php?f=RrpKJFDC

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،،، الاخ halwim اخى العزيز بعد التحية 1 - يوجد قوس زى ده " { " للآشارة الى مكان الادخال 2 - يوجود اشارة توضيحية وبداخلها الجملة " نفسك فى حاجة تانى ... " وتشير مكان الادخال . 3 - يوجد مستطيل مضغوط الى الداخل ليحدد مكان الادخال . الم يلفت نظرك احد هذه الاشارات 0 ياسيدى بدون هذه الاشارات مدى الادخال هو " E4:E12 " وان لم يكن كل هذا واضح اليك فيديو بالمرفقات للتوضيح اكثر . والسلام عليكم ورحمة الله وبركاته http://www.9q9q.net/index.php?f=LljrNm5y

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته،،، الاخ halwim بعد التحية اليك ياسيدى ماطلبت: الجمع فى خلية واحدة بدون الاعتماد على خلية اخرى الاكسل بحر واسع ليس له قرار الا للقليل . على فكرة الفكرة اول مرة فى المنتديات العربية . المثال فى المرفقات . والسلام عليكم ورحمة الله وبركاتهomar.rar

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

بسم الله الرحمن الرحيم الاخ smail_d بعد التحية ضـربـة معـلم ونصــر ســاحــق ...!!! ضربة معلم حقيقى هو ده البرنامج ...!!!!....؟؟؟ ويستحق التثبيت لانة تحول كبير فى مجريات الامور لقد اعدت الامل لعلها مازلت بخير .................................. " الدينــــــــا " بدون انانية او رياق فعلا مازلت بخير كان يجب وضعه فى مشاركة خاصة منفردة به للحوار فيما يترب عليه جزاك الله كل خير والسلام عليكم ورحمة الله وبركاته مع تحيــــــــــــــــــــــــــــــــــــــــــــــــــاتى