زياد علي

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

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

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

بسم الله السلام عليكم اخي 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 اخي عماد زادك الله علم ونور مودتي وتقديري

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

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

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

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

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

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

السلام عليكم اخي DR.ZUHAIR اخي خالد القدس جزاكم الله عني كل خير ،،، وأطال الله أعماركم في طاعته ،،، على وعد بإذن الله باستئناف السلسلة - معالم على طريق البرمجة- ريثما تواتي الظروف لذلك ،،، تحياتي

بسم الله والصلاة والسلام على رسول الله الأخوة الأفاضل ، الأخوات الفاضلات ، أبو عبد الله هادى محمد المامون سالم يحيى حسين DBA.Oracle هشام شلبى دغيدى الجزيرة سالم شباني الخالدي TareQ M نور الرحمة ابن بنها محمد طاهر onlymanly kemas mselmy سعد عابد anur.mertah85 galal_mk حييتم أيها الأعزاء شكر الله سعيكم ومروركم المبارك هذا وأجزل ثوابكم ، ولا أراكم مكروها في عزيز لديكم ، وأبعد عنكم وعن ذويكم كل سوء . أشكركم فردا ً فرداً على مشاعركم الطيبة ووقوفكم إلى جانبي في هذا الظرف الصعب ، راجيا من المولى العلي القدير أن يتقبل دعواتكم وأن يجمعنا وإياكم وجميع أمة محمد في جنة الخلد . اللهم آمين . وأصدقكم القول أيها الأفاضل ،،، فإنه بفضل الله ثم ببركة قلوبكم الطاهرة ودعواتكم الصادقة قد كُشف الكرب وإن شاء الله الوالد تجاوز مرحلة الخطر وهو ولله الحمد بصحة جيدة الأن . فعلاً انتم أناس طيبون وأفاضل وأطهار ،،، بارك الله الجميع واعتذر عن التأخر في الرد وذلك بحكم الظرف القاهر ،،، جزاكم الله عني كل خيرا وبارك الله فيكم . والحمد لله رب العالمين

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

بسم الله والصلاة والسلام على رسول الله السلام عليكم بما أن الكائن المسمى range قد استغرق وقتنا وجهدنا كله في هذه السلسلة فإن الأوان قد آن لكي نطرحه جانباً ونلتفت قليلاً لبقية الكائنات والمكونات في برنامجنا المحبب الإكسيل ،،،، على أمل اللقاء به في لقاء آخر،،، أما الأن فلنا لقاء مع كائن آخر يسمى Windows Object وهذا الكائن يمثل جميع النوافذ في تطبيق إكسل. فتعالوا لنتعلم بعض الأكواد المتعلقة به لنتعرف عليه أكثر . ومن أراد نبذة عامة عن أسرة الكائنات الرقمية فعليه بهذا الرابط : http://www.officena.net/ib/index.php?showtopic=27109&st=20 إذن على بركةالله نبدأ : لتغيير التسمية التوضيحية لأسم النافذة للمصنف النشط في الشريط العلوي من البرنامج ،،، Sub zezo68() ActiveWindow.Caption = "zezo" End Sub وممكن تكون هكذا – بدون أي تسمية توضيحية – شي ء عجيب Sub zezo69() ActiveWindow.Caption = "" End Sub ولتنشيط نافذة بعينها مفتوحة في الخلفية ،،، Sub zezo70() Windows("Book1").Activate End Sub كما يمكن ان يكون خيار التنشيط بأختيار التالي والسابق Sub zezo71() ActiveWindow.ActivateNext End Sub Sub zezo72() ActiveWindow.ActivatePrevious End Sub لعمل إطار جديد لنافذة المصنف الحالي النشط ،،، Sub zezo73() ActiveWindow.NewWindow End Sub لإخفاء إطار نافذة المصنف الحالي النشط ،،، طبعاً يمكن إظهاره القائمة إظهار أو اختيار TRUE إذا كنت داخل محرر الأكواد . Sub zezo74() ActiveWindow.Visible = False End Sub و لتحديد حالة النافذة الحالية للمصنف النشط من حيث التكبير والتصغير والوضع الطبيعي Sub zezo75() ActiveWindow.WindowState = xlMaximized End Sub Sub zezo76() ActiveWindow.WindowState = xlMinimized End Sub Sub zezo77() ActiveWindow.WindowState = xlNormal End Sub لإغلاق نافذة المصنف الحالي النشط : Sub zezo78() ActiveWindow.Close End Sub لإعطاء زووم بقيمة معينة لنافذة ورقة العمل الحالية : Sub zezo79() ActiveWindow.Zoom = 80 End Sub لإخفاء علامات التبويب لأوراق العمل بنافذة المصنف النشط Sub zezo80() ActiveWindow.DisplayWorkbookTabs = False End Sub لإخفاء رؤوس الأعمدة والصفوف بنافذة ورقة العمل الحالية Sub zezo81() ActiveWindow.DisplayHeadings = False End Sub لإخفاء شريط التمرير الأفقي بنافذة المصنف النشط الحالي Sub zezo82() ActiveWindow.DisplayHorizontalScrollBar = False End Sub وللتحكم بشريط التمرير الأفقي من حيث الزيادة والنقصان يمكن التدرج بالشكل التالي : Sub zezo83() ActiveWindow.TabRatio = 1 End Sub Sub zezo84() ActiveWindow.TabRatio = 0 End Sub Sub zezo85() ActiveWindow.TabRatio = 0.5 End Sub لإخفاء شريط التمرير العمودي بنافذة المصنف النشط الحالي Sub zezo86() ActiveWindow.DisplayVerticalScrollBar = False End Sub لعرض جميع الصيغ بنافذة ورقة العمل النشطة Sub zezo87() ActiveWindow.DisplayFormulas = True End Sub لإخفاء خطوط الشبكة بنافذة ورقة العمل النشطة Sub zezo88() ActiveWindow.DisplayGridlines = False End Sub لإعطاء لون محدد لخطوط الشبكة بنافذة ورقة العمل النشطة Sub zezo89() ActiveWindow.GridlineColor = QBColor(14) End Sub لعمل معاينة لفواصل الصفحات بالورقة النشطة حالياً Sub zezo90() ActiveWindow.View = xlPageBreakPreview End Sub وللعودة لوضع العرض العادي للورقة النشطة حاليا ً Sub zezo91() ActiveWindow.View = xlNormalView End Sub لإخفاء القيم الصفرية بنافذة ورقة العمل النشطة Sub zezo92() ActiveWindow.DisplayZeros = False End Sub لقراءة اسم الورقة الحالية في شكل مسج Sub zezo93() MsgBox Windows(1).ActiveSheet.Name End Sub لقراءة عنوان مدى محدد تم اختياره ليظهر العنوان في شكل مسج Sub zezo94() MsgBox ActiveWindow.RangeSelection.Address End Sub لقراءة عنوان الخلية النشطة بنافذة المصنف تم اختياره ليظهر العنوان في شكل مسج Sub zezo95() MsgBox Windows("zezo").ActiveCell.Address End Sub لعمل انقسام داخل نافذة ورقة العمل النشطة Sub zezo96() ActiveWindow.Split = True End Sub لمعرفة عدد الأجزاء المنقسمة داخل نافذة ورقة العمل النشطة واسترجاع الناتج في شكل مسج Sub zezo97() MsgBox ActiveWindow.Panes.Count End Sub لعمل تجميد الألواح داخل نافذة ورقة العمل النشطة Sub zezo98() ActiveWindow.FreezePanes = True End Sub ،،،، والله من وراء القصد ،،،، ============================================يتبع بإذن الله=================================================

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

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

بسم الله والصلاة والسلام على رسول الله السلام عليكم نلتقي مجدداً بحول الله وقوته مع دفقة جديدة من الأكواد الصغيرة التي تشير لكائن النطاق فعلى بركة الله نبدأ : Sub zezo48() Worksheets("sheet2").Range("a1").AddComment ("ziad ali") End Sub لإضافة تعليق بالخلية المذكورة Sub zezo49() Worksheets("sheet2").Range("a1.d12").ClearComments End Sub لمسح التعليق بالمجال المحدد Sub zezo50() MsgBox Worksheets("sheet2").Range("a3").Address End Sub لمعرفة عنوان الخلية المذكورة Sub zezo51() Worksheets("sheet2").Range("c3.b10").BorderAround (1) End Sub لعمل حدود للمجال المحدد وممكن زيادة بمقدار الرقم واحد لتشاهد التغير Sub zezo52() Worksheets("sheet2").Range("f8.h14").Calculate End Sub لاحتساب المجال المحدد فقط – طبعاً يستخدم في حالة عدم تفعيل الاحتساب التلقائي Sub zezo53() Worksheets("sheet2").Range("a3.d12").CheckSpelling End Sub لعمل تدقيق إملائي للمجال المحدد Sub zezo54() Worksheets("sheet2").Range("a3.d12").Clear End Sub لمسح الكل بالمجال المحدد Sub zezo55() Worksheets("sheet2").Range("a3.d12").ClearContents End Sub لمسح المحتويات بالمجال المحدد وممكن يشار إليها هكذا ،،، Sub zezo56 () Worksheets("Sheet2").[ a3:d12].ClearContents End Sub تغيير بسيط يعني في شكل الأقواس Sub zezo57() Worksheets("sheet2").Range("a3.d12").ClearFormats End Sub لمسح التنسيقات فقط بالمجال المحدد Sub zezo58() MsgBox Worksheets("sheet2").Range("f3").Column End Sub لمعرفة رقم العمود الذي تقع فيه الخلية المحددة Sub zezo59() MsgBox Worksheets("sheet2").Range("b5").Row End Sub لمعرفة رقم الصف الذي تقع فيه الخلية المحددة Sub zezo60() MsgBox Worksheets("sheet2").Range("b3.d12").Columns.Count End Sub لعد الأعمدة الواقعة بالمجال المحدد Sub zezo61() MsgBox Worksheets("sheet2").Range("b3.d12").Rows.Count End Sub لعد الصفوف الواقعة بالمجال المحدد Sub zezo62() MsgBox Worksheets("sheet2").Range("a3.d12").Cells.Count End Sub لعد الخلايا الواقعة في محيط المجال المحدد Sub zezo63() MsgBox Worksheets("sheet2").Range("a6").Text End Sub لقراءة محتوى الخلية المحددة Sub zezo64() Worksheets("sheet2").Range("b3.d12").ColumnWidth = 4 End Sub لإعطاء عرض معين للأعمدة الواقعة في المجال المحدد Sub zezo65() Worksheets("sheet2").Range("b3.d12").RowHeight = 10 End Sub لإعطاء ارتفاع معين للصفوف الواقعة في المجال المحدد Sub zezo66() Worksheets("sheet2").Range("f19.g20").PrintPreview End Sub لمعاينة البيانات بالمجال المحدد فقط Sub zezo67() Worksheets("sheet2").Range("f19.g20").PrintOut End Sub لطباعة البيانات بالمجال المحدد فقط والله من وراء القصد ============================================يتبع بإذن الله=================================================