زياد علي

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

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

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

بسم الله السلام عليكم اخي Abo3asem متأسف بشدة أنك انتظرت حل المشكلة كل هذا الوقت ،،، ولكن أعذرني يا أخي فقد اعتقدت أنك قد هُديت إلى الحل،،، عموماً هذا هو الحل مع تغيير طفيف على كود أستاذي الفاضل طارق وقد تم تطبيقه على ملفكم المرفق ،،، تقبل إعتذاري مرة أخرى ،،، مع مودتي وتقديري Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$10" Then Range("$A$11:$p$10621").AutoFilter Field:=2, Criteria1:=Target.Value End If End Sub Journal Entery vba ZZ.rar

السلام عليكم الاخ Abo3asem تفضل المرفق CODE.rar

،،، صدقت ،،،

بسم الله السلام عليكم الأخوة الأفاضل عماد الحسامي ،،، هشام شلبي الله يديم المحبة بينكم يارب ،،، والله يجمنعا بكم في رياض الجنة ،،، ومتشكرين من الأخ skyblue صاحب السؤال الذي جاء متناغماً مع سلسلة الأستاذ الفاضل عماد الحسامي ،،، وانا نفسي حقيقة لم انتبه للجزء الثاني من السؤال ،، ولكن الأخ الفاضل هشام ما شاء الله مصحصح ،،، ================================================================ بعد إذن استاذي الفاضل عماد ،،، الأخ الفاضل دكتور زهير إضافة لما تفضل به أستاذي الفاضل عماد فإنني أوضح لكم أن عملية البرمجة تعمل وفق منهج منطقي ،،، ففي كودكم المرفق تم تخصيص المتغيرات A B C لتأخذ القيم المشار اليها ،،، ثم في خطوة لاحقة جُعلت هذه المتغيرات قيماً ثابتة . وبالتالي فإن الكود لن يستجيب بسبب هذا التعارض ،،، ولكن ممكن يكون الكود على الشكل التالي : Sub IFIF() Dim X As Integer Dim Y As Integer Dim Z As Integer Dim A As Range Dim B As Range Dim C As Range X = Sheets(1).Range("D2").Value Y = Sheets(2).Range("F3").Value Z = Sheets(3).Range("E2").Value Set A = Sheets(1).Range("C7") Set B = Sheets(1).Range("D7") Set C = Sheets(1).Range("E7") If X + Y > Z Then A = 1 B = 2 C = 3 Else A = 44 B = 99 C = 55 End If End Sub فهنا قمنا بتعريف المتغيرات A B C على أنها متغيرات من نوع كائن المدى أو كائن المجال ثم قمنا بتخصيص المجالات المشار إليها فيما بعد لهذه المتغيرات بإستخدام الجملة SET. وعذراً على الإطالة ،،، ولكن الضرورة تقتضي التوضيح ،،، مودتي وتقديري للجميع

السلام عليكم أيها الأحبة ممتاز ،،، ممتاز استاذي الفاضل طارق وبعد إذنك استاذي رداً على الجزء الأخير من الأخ AOOS ،،، سأرفق هذا الحل ،،، تحياتي ومودتي للجميع Journal Entery.rar

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

السلام عليكم ما شاء الله لا قوة إلا بالله الله أكبر الله أكبر ،،، أستاذنا عماد ،،، حفظك الله مجهود غير عادي والله ،،، وتلخيص لدوال اتخاذ القرار ولا أروع الله يحفظك ويرعاك ،،، لقد لفت انتباهي أسلوبك السهل الممتنع في الشرح ،،، لذا أسمح لي أخي الحبيب بأن أضيف هذه الأمثلة إضافة لما تفضلتم به ،،، وذلك من باب التنوع وبهدف المشاركة : IF شرط واحد وأمر واحد : Sub ZEZO_IF() If Application.ActiveCell Then MsgBox "الخلية تحتوي على قيمة" End If End Sub IF أكثر من شرط وأمر واحد : الدالة AND Sub ZEZO_And() x = Range("a1").Value y = Range("b1").Value If x = 1 And y > 5 Then MsgBox "x=1 and y>5" End If الدالة OR Sub ZEZO_Or() x = Range("a1").Value y = Range("b1").Value If x = 1 Or y > 5 Then MsgBox "x=1 or y>5" End If End Sub IF شرط واحد وخيارات متعددة لتنفيذ الأمر : Sub ZEZO_Else() If Application.ActiveCell = 5 Then MsgBox "قيمة الخلية تساوي5" Else MsgBox "قيمة الخلية لا تساوي 5" End If End Sub اخي عماد زادك الله علم ونور مودتي وتقديري

اخي هشام مبارك عليك يا أخي الحبيب فأنت أهل لها والله وتستحق ما وصلت إليه عن جدارة،،، ألف مليون وردة تحية لك أيها الغالي مودتي وتقديري

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

كلام مضبوط وفي محله

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

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