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

كان موجود ضمن المواضيع المثبته 1 -حلقات افتح الباب واهرب من الشباك للاخ الحبيب ياسر خليل على الرابط التالى http://www.officena.net/ib/topic/56941-افتح-الباب-وادخل-لعالم-البرمجة-متخافوش-يا-أحباب-من-اللي-ورا-الباب/#comment-378087 2- موضوع دروس فى VBA Excel _ نتعلم معا برمجه اكسل للاخ الحبيب / محمود الشريف على الرابط التالى http://www.officena.net/ib/topic/56000-دروس-فى-vba-excel-_-نتعلم-معا-برمجه-اكسل/?page=1 يرجى أعادتها مره اخرى الى المواضيع المثبته مواضيع نشر العلم افضل من مواضيع البرامج والافضل ان يكونو معاً من يريد ان يتعلم ومن يريد ان يستخدم كلاً منهما يجد طلبه دون صعوبه وعناء البحث يرجى الاهتمام للاهميه

السلام عليكم ورحمة الله إخواني الافاضل تفضلوا ملف إكسل جعل الخلية تقبل 14 رقم فقط لاتقل عددا ولاتزيد ولاتقبل الحروف فقط الأرقام تستطيع التحكم في العدد من التنسيق الشرطي إن شاء الله يستفيد منة الكثير الداعي لكم بالخير / أبو الحسن والحسين الخلية تقبل 14 رقم فقط.rar

إذا كان الأمر كذلك فلما لا تستخدم معادلة بسيطة جداً بالشكل التالي =COUNTIF(H:H,">=0") لعد الأرقام الموجبة والمعادلة التالية =COUNTIF(H:H,"<0") لعد الأرقام السالبة اما إذا كنت تقصد المجموع فيمكن استخدام المعادلة التالية لجمع الأرقام الموجبة فقط =SUMIF(H:H,">=0",H:H) ولجمع الأرقام السالبة فقط استخدم المعادلة التالية =SUMIF(H:H,"<0",H:H) باستخدام الكود .. بفرض أن لديك الأرقام في العمود H .. جرب الكود التالي (النتائج تظهر بعد آخر خلية فارغة بمجموع الأرقام الموجبة والسالبة) Sub SUMPositiveNegativeA() Dim C As Range, LR As Long, PositiveSum As Double, NegativeSum As Double LR = Cells(Rows.Count, "H").End(xlUp).Row Set C = Range("H1:H" & LR) PositiveSum = Application.WorksheetFunction.SumIf(C, ">=0") NegativeSum = Application.WorksheetFunction.SumIf(C, "<0") Range("H" & LR + 2) = "Positive: " & PositiveSum Range("H" & LR + 3) = "Negative: " & NegativeSum End Sub وهذا كود آخر يؤدي الغرض بدون استخدام دوال الإكسيل داخل محرر الأكواد Sub SUMPositiveNegativeB() Dim C As Range, LR As Long, PositiveSum As Double, NegativeSum As Double LR = Range("H" & Rows.Count).End(xlUp).Row For Each C In Range("H1:H" & LR) If IsNumeric(C) Then If Sgn(C) = 1 Then PositiveSum = PositiveSum + C If Sgn(C) = -1 Then NegativeSum = NegativeSum + C End If Next Range("H" & LR + 2) = "Positive: " & PositiveSum Range("H" & LR + 3) = "Negative: " & NegativeSum End Sub تقبل تحياتي

اضم صوتى لصوتك تماما ولا اعتقد ان ان هناك امورا فنية او تقنية تمنع اضافة تلك المواضيع الى المثبتات والله ولى التوفيق

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

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

ثالثاُ:- وقت تنفيذ الكود الخاص بالـ TextBox قبل أن نتحدث عن وقت تنفيذ الكود لازم نعرف أولا أزاى بيكون كتابة ألاعلان عن الكود للـ TextBox Private Sub TextBox1_Change() هنا يتم كتابة الكود المراد تنفيذه End Sub السطر الاول هو بداية الاعلان عن الكود فنقوم بكتابة Private Sub ستجد لونها بالكود أزرق ( وهو بداية لاى كود خاص لأى عنصر تحكم داخل الفورم ) ثم نقوم بكتابة اسم العنصر المراد عمل الكود له وهو بمثالنا TextBox1 ثم نقوم بكتابة _ ( تكتب من خلال الضغط على Shift+زر الطرح الموجود بالاعلى بجوار زر + ) ثم نقوم بكتابة وقت تنفيذ الكود (اللى هو موضوعنا اليوم) ثم كتابة () قوسين بهذا الشكل وبمجرد الضغط انتر ستجد الكود عمل سطر تانى فيه End sub يوجد طريقه اخرى وهى اتبع الصوره التالية توضح لك قم بالضغط على اى مكان فاضى بالفورم وادخل لمحرر الاكواد الخاص بالفورم دلوقتى هنتكلم عن أهم طرق وقت تنفيذ الكود واكثرها شيوعا فى الاستخدام 1- Afterupdate :- هنا يتم تنفيذ الكود بمجرد الانتهاء من الادخال فى TextBox1 والانتقال الى اى عنصر اخر ( وهو يشبه كثير طريقة Exit) 2-EXit :- هنا يتم تنفيذ الكود بمجرد الخروج من TextBox1 والانتقال الى اى عنصر اخر ( يشبه كثير طريقه Afterupdate ) 3-Change :- هنا يتم تنفيذ الكود عند حدوث اى تغيير فى TextBox1 4-DblClick :- هنا يتم تنفيذ الكود عند الضغط دبل كليك بالماوس داخل TextBox1 5-Enter :- هنا يتم تنفيذ الكود بمجرد وضع مؤشر الماوس داخل صندوق TextBox1 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------- كدا الحمد لله انتهينا من المحور الثالث وقت تنفيذ الكود الخاص بالـ TextBox ان شاء الله المره القادمه نتكلم عن المحور الرابع وهو التعامل مع TextBox فى لغة البرمجه ارجوا من الله ان اكون وفقت بالشرح واى استفسار انا تحت امر الجميع تقبلوا تحياتى

السلام عليكم ورحمة الله بعد إذن اخي الفاضل عبدالعزيز هذا حل آخر اول ماتضغط علي مربع النص (التكست) بالفارة (الماوس) تلقائيا يظهر التاريخ وإذا تحب ان يكون اول ماتضغط انتر ENTER أي عند الخروج بالضغط علي مفتاح الإدخال انتر (اطلب) KHMB.rar

السلام عليكم و رحمة الله و بركاته بارك الله فيك أخي العزيز مختار البركاني .. جزاك الله خيرًا على الملف الرائع .. كما أرجو من الأخ الغالي ولد الحجاز ألاّ يبخل علينا و لو بإضافة الإعجاب .. خالص احتراماتي

أخي الكريم ولد الحجاز لاحظت أن موضوعاتك موجزة .. يرجى دائماً إلقاء مزيد من التوضيح والشرح للموضوع .. تقبل تحياتي

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

السلام عليكم ورحمة الله الله يذكرك بالخير ابا البراء هذا شرح طريقة عمل الصيغـــــــــــــــــــــــــــــــــــــة : ( الشرح للمبتدئين فقط ) 1- نحدد الخلايا التي نريد عمل المعادلة عليها ثم من بياناتData نختار التحقق من الصحة Data Validation حسب الموضح بالصورة 2- تفتح نافذة التحقق من صحة البيانات كما الموضح ادناه : 3- من المعيار السماح : نختار مخصص آخر شيء بالقائمة فتظهر النافذة كما بالشكل ادناه : 4- نقوم بوضع الصيغة حسب الموضح ادناه: الصيغــــــــــــــــــــــــــة : [[[[[ LEN(C5)=14= ]]]]] بهذه الصيغة فالخلية تقبل 14 رقم فقط لاتقل عددا ولاتزيد بحيث إذا قلت او زادت تظهر رسالة توضيح بذلك وتستطيع تغيير الخانات فقط غيًر الرقم 14 إلي أي رقم تريده. وهنا الـ 14 خانة تقبل ارقام وحروف.كما تلاحظ ادناه : ولكي نجعل الخلية لاتقبل إلًا ارقام فقط ولاتقبل الحروف نقوم بالتغيير في كتابة الصيغـــــة كاتالي : الصيغــــــــــــــــــــــــــة : [[[[[ AND(LEN(C3)=14;ISNUMBER(C3))= ]]]]] كذلك هنا تستطيع تغيير عدد الخانات الـ 14 إلي ماتريد. إنتهـــــــــــــــــــــــــــــــــــــــــى. الداعي لكم بالخير / أبو الحسن والحسين

الاستاذ الحبيب المرفق لا يستجيب للتنزيل

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

السلام عليكم ورحمة الله اخي عبدالعزيز شكرا جزيلا إطرائك لي بالنسبة لما ذكرت عن ردودك الثلاثة فهنا كلما وضعت رد سيضاف لردك الأول حتى : 1- يتم إضافة رد من عضو آخر 2- او تنقضي فتره إنتظار التعديل علي ردك الأول اظن انها 15 دقيقة

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

السلام عليكم و رحمة الله و بركاته الحمد لله رب العالمين ...اللهم لا حسد بل غبطة أصبح - ولله الفضل والمنة - المنتدى كخلية نحل دؤوبة تعمل ليل نهار...نعلي بها مرتبة العلم فيعلي الله بها مراتب من سلك طريقاً يلتمس به علماً سهّل الله له به طريقاً إلى الجنة.. اللهم اجعلنا ممن سخر علمه لخدمة البشر ولا تجعلنا ممن يكتم علمه فيصاب بالخذلان...آمين. تقبلوا تحياتي العطرة وكما قال الأستاذ الحبيب ياسر متابعينكم يا أخي الصقر. والسلام عليكم.

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

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

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

السلام عليكم ورحمة الله وبركاته بعد اذن الأستاذ أسامه وباقى الأساتذة الأخ KHMB هذا كود لتلوين مدى معين بعد تمام اكتمال بياناته اعتمادا على عدد الخلايا الفارغة فيه Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, Rownum As Integer, CountBlank As String LR = Cells(Rows.Count, 1).End(xlUp).Row For Rownum = 2 To LR CountBlank = Application.WorksheetFunction.CountBlank(Range(Cells(Rownum, "A"), Cells(Rownum, "H"))) If CountBlank = 0 Then Range(Cells(Rownum, "A"), Cells(Rownum, "H")).Interior.ColorIndex = 38 Next Rownum End Sub الكود يوضع فى حدث الورقة التلوين يعمل من الصف الثانى على الأعمدة من A الى H جرب المرفق التالى Color a row after entering the required information .rar

الحمد لله الذي لولاه ما جرى قلم, و لا تكلم لسان, و الصلاة و السلام على سيدنا محمد (صلى الله عليه و سلم) كان أفصح الناس لساناً و أوضحهم بياناً. من دواعي سروري أن أشرح هذا الموضوع الهام في علم التكنولوجيا, و أرجو من الله تعالى أن يحوز على اعجابكم, و هو شرح لأهم برنامج من برامج الاوفيس برنامج (مايكروسوفت أكسيس 2013). و اهدي هذا العمل الى والداي رحمهم الله و تغمدهم برحمته أرجو منكم الدعاء لهما. منهاج مايكروسوفت أكسيس 2013 و هو منهاج خاص من شركة مايكروسوفت و يغطي خاصة منهاج الفحص الخاص بشهادة MOS (Microsoft Office Specialist) مع ملاحظة أن المنهاج ليس ترجمة بل شرح خاص حسب خبرتي الخاصة بهذا البرنامج. سأقوم بنشر هذا الكتاب على مراحل ستكون عبارة عن مجموعة دروس مصممة بنوعين من الملفات: الملف الأول ملف عرض تقديمي بوربوينت. الملف الثاني ملف من نوع PDF. مدعومين بالصور كأمثلة شرح عن كل فكرة. و سيتم نشر كل خمس أيام درس. و بعد اكتمال جميع الدروس سيتم نشر ملف خاص يحتوي على مثال متكامل يشرح كيفية بناء و إنشاء قاعدة بيانات متكاملة أبدأ فيها من مرحلة التحليل الى مرحلة التصميم النهائية بالتفصيل. أي ملاحظة أو استفسار لديكم الرجاء مراسلتي على بريدي الخاص abdotarakji@gmail.com. -----------------------------------------------------------------------------------------------

السلام عليكم إخوتي الكرام طلب مني الأخ يوسف وائل تعديل على فورم الاستاذ عبدالله باقشير ليقبل الارقام فقط بتنسيق العدد والمبلغ راجياً ممن لديه إمكانية الحل أطلب من الأستاذ يوسف المتابعة ليقدم المرفق المناسب وليتابع آراء وأسئلة السادة الخبراء حول هذا الموضوع وشكرا تقبلوا تحياتي العطرة compt.RAR.rar

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

بسم الله ما شاء الله أيوا كدا طلع المستخبي يا أبا الحسن والحسين مخبي عننا شرحك الرائع دا ليه ؟؟ تسلم وتعيش وربنا يجعله في ميزان حسناتك إن شاء الله

السلام عليكم ارجو ان يكون المطلوب في المرفق x22.rar

السلام عليكم اليك اخي بعض معاني الكلمات إسمح Allow تطبيق Apply تصاعدى Ascending مساعد Assistant تصحيح تلقائى Auto Correct ترشيح تلقائى للبيانات Auto Filter ضبط تلقائى Auto Fit تنسيق تلقائى Auto Format أشكال جاهزة Auto Shapes جمع تلقائى Auto Sum متوسط حسابى Average فارغ Blank حدود Border ظل الخلية cell shading وسط center رسم بيانى chart مسح clear لون color أعمدة column تلخيص البيانات لعرضها فى consolidate جدول عد count إنشاء create عملة currency تخصيص customize حدد define درجات degrees تنازلى descending إهلاك depreciation أشكال diagrams تقييم الصيغ evaluate formula فيما عدا except ملء fill مرشح بيانات filter خط font نموذج form تنسيق format صيغ formula كسر عشرى fraction دوال functions عام general الوصول للهدف goal seek مجموعة group رأس وذيل header and footer الصفحة رأس الجدول header row ارتفاع height إخفاء hide أفقى harizontal حدود داخلية inside فائدة interest غير مسموح invalid مائل italic عنوان label يسار left روابط links إغلاق locked دمج الخلايا merge cells تعديل modify أرقام number عناصر objects خيارات options إتجاه orientation حدود خارجية outline تهيئة الورقة page setup إزالة remove استبدال replace إعادة تهيئة reset تغيير الحجم resize أيمن right صفوف rows نموذج sample تسلسل series إعدادات settings فرز sort خفض النص عن مستوى السطر subscript رفع النص عن مستوى السطر superscript نص text التحكم فى النص text control إتجاه النص text direction تتبع trace إظهار المعادلات المرتبطة بالخلايا trace dependents إظهار الخلايا المرتبطة بالمعادلات trace precedent تتبع التغيرات trace changes تحته خط underline فك المجموعات ungroup إظهار unhide رأسى vertical

السلام عليكم ورحمة الله وبركاته الدرس الرابع 4-Properties الخصائص وسوف نتناول فى هذه الدرس الاتى اعطاء الخليه قيمه عدديه فى الشيت النشط اعطاء الخليه قيمه نصيه فى الشيت النشط اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الشيتات اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الملفات مسح محتوى الخليه من البيانات--cell contents Text Formatting التحكم فى حدود الخلايا-- borders ........................................... اعطاء الخليه قيمه عدديه فى الشيت النشط نفترض انك عايز تدخل القيمه 10 فى الخليه A3 يمكننا عمل ذلك باستخدام RANGE او بالاشاره الى الخليه مباشرة سيكون شكل الكود كالاتى Sub properties_NUM() 'اعطاء الخليه A3 قيمه عدديه Range("A3").Value = 10 [A3].Value = 10 End Sub اعطاء الخليه قيمه نصيه فى الشيت النشط نفترض انك عايز تدخل الاسم HIMA فى الخليه A6 يمكننا عمل ذلك باستخدام RANGE او بالاشاره الى الخليه مباشرة سيكون شكل الكود كالاتى Sub properties_tex() 'اعطاء الخليه A5 قيمه نصيه Range("A6").Value = "hima" [A6].Value = "hima" End Sub اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الشيتات يمكن عمل ذلك بالاشاره الى اسم الشيت Sheets("4-Properties") او بالاشاره الى رقم الشيت Sheets(4) نفترض انك عايز تدخل فى الخليه A8 قيمه عدديه قدرها 20 او قيمه نصيه hima وبالتالى سيكون شكل الكود هكذا Sub properties_num_wor() 'اعطاء الخليه A10 قيمه عدديه باستخدام اسماء الملفات Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = 22 ' او 'Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = "Sample text" End Sub Sub properties_num_sh() 'اعطاء الخليه A8 قيمه عدديه باستخدام اسماء الشيتات Sheets("4-Properties").Range("A8").Value = 22 ' او 'Sheets(4).Range("A8").Value = "Sample text" End Sub اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الملفات نفترض انك عايز تدخل فى الخليه A10 قيمه عدديه قدرها 20 او قيمه نصيه hima وبالتالى سيكون شكل الكود هكذا Sub properties_num_wor() 'اعطاء الخليه A10 قيمه عدديه باستخدام اسماء الملفات Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = 22 ' او 'Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = "Sample text" End Sub مسح محتوى الخليه من البيانات--cell contents نفترض اننا عايزين نمسح البيانات الموجوده فى الخليه a12 يمكننا استخدام اى من الااومر الظاهره بالصوره ولو انت ركزت شويه على ما اعتقد من الاسماء هتعرف وظيفه كل امر ايه يعنى مثلا clear يقوم بحزف البيانات مع ارجاع الخليه الى وضعها الافتراضى يعنى لو انت مخصص نوع معين من الخطوط او حجم معين للخط هتلاقى البيانات تم حزفها وتم ارجاع الوضع الافتراضى للاوفيس ClearContents دى بتحزف البيانات بس وملهاش دعوه بخصائص الخليه ClearFormats دى بتقوم بارجاع الوضع الافتراضى للخليه دون حزف البيانات وبالتالى سيكو شكل الكود الخاص بحزف البيانات كالاتى Sub properties_clear() 'مسح محتوى الخليه a12 Range("a12").ClearContents End Sub Text Formatting التحكم فى خصائص الخط طبعا الموضوع ده طويل حبتين وفيه معلومات كتيره احنا هناخد ابسط الحاجات الى تمشينا ومتوقفناش علشان منصعبهاش على نفيسنا بص الاول على الصوره طب من مجرد النظر الى الصوره هتفهم الخصائص الخاصه بالخط على العموم هنستعرض بعض الخصائص حجم الخط-size سمك الخط-bold جعل الخط مائلا-italicize وضع خط تحت الكلمه-underline اسم الخط-NAME ونيجى نطبق الكلام ده يعنى مثلا لو عندنا الخليه a15 عايزين نكتب فيها الرقم 10 ونخلى حجم الخط فيها 20 سمك الخط فيها تخين نخلى الخط فيها ماي على جنبه اليمين ونخلى الخط تحيه خط ونخلى اسم الخط Agency FB وبالتالى هيكون شكل الكود كالاتى Sub properties_TEXT_FORMA() Range("a15").ClearFormats Range("a15").Font.Size = 20 Range("a15").Font.Bold = True Range("a15").Font.Italic = True Range("a15").Font.Underline = True Range("a15").Font.Name = "AGENCY FB" End Sub التحكم فى حدود الخلايا-- borders طبعا الموضوع ده طويل بردو حبتين وفيه معلومات كتيره فهنطر ناخد ابسط الحاجات الى تمشينا ومتوقفناش على العموم شاهد الصوره يمكننا استخدام الارقام من 1 الى 13 فى تحديد الخليه ولمعرفة الوظيفه التى يقوم بها كل رقم فى التحديد شاهده الصوره ثم قم باستعمال هذه الكود وشاهد تأثر الكود على هذه الخلايا Sub properties_BORDER() Range("a23:E28").ClearFormats Range("a23").Borders.Value = 1 Range("a24").Borders.Value = 2 Range("a25").Borders.Value = 3 Range("a26").Borders.Value = 4 Range("a27").Borders.Value = 5 Range("a28").Borders.Value = 6 Range("C23").Borders.Value = 7 Range("C24").Borders.Value = 8 Range("C25").Borders.Value = 9 Range("C26").Borders.Value = 10 Range("C27").Borders.Value = 11 Range("C28").Borders.Value = 12 Range("E25").Borders.Value = 13 End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى

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

السلام عليكم و رحمة الله و بركاته في الواقع قمت بكتابة كل رد وحده .. الرد 1 للأستاذ الغالي KHMB الرد 2 للأستاذ الغالي أنس دروبي الرد 3 للأستاذ الغالي ..حبيب الكل محمد حسن المحمد لكن لا أعرف لماذا تشابكت ردودي كلها في رد واحد .. أصبح يتعبني المنتدى أكثر مما يريحني .. هذه المشكلة ظهرت عندي اليوم فقط زائد مشكلة باقي الصفحات من 2 فصاعدًا التي لا يمكنني رؤيتها فاضطررت لتسطيب متصفح آخر .. فقط عشان خاطر تصفح المنتدى

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

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

تسلم يا أخي الغالي مختار .. مشكور على الكود المتميز بس تعالى هنا قولي (بتغطس كتير مش عارفلك سكة ؟!) ... ارسى في المينا لأبعتك على مارينا !! طبعاً هتقولي ابعتني هناك !!!

كم انت رائع يا ابو البراء هذا ما كنت انتظره "وعلم ينتفع به" من الصدقات الجاريه نسال الله تعالى ان تكون بميزان حسناته جزاكم الله خيرا

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

رحم الله فقيدنا الغالي وجعل قبره روض من رياض الجنة

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

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

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

هل تعلم أن الأخ محمد الريفي متوقف عن الموضوع من فترة ؟؟ لعل غيابه عن المنتدى خير إن شاء الله في انتظار إحياء الموضوع نظراً لأهميته

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

السلام عليكم بعد التحية الى جميع اعضاء المنتدى الكرام اظن البعض قد يقول ان الموضوع متكرر لانى شفت الدالة موجودة مسبقا فى احد الردود واناجربتها لكن وجدت فيها بعض الملاحظات الصغيرة، منها 1- ان فيها خطأ لو الواحد نسى يدخل العملة الرئيسية او الفكة 2- انك لما تحدد الفكة مثلا بيظهر 25/100 قرش !! 3- ولو كانت الفكة مثلا 0.251 هاتظهر 251 قرش ولانى كنت عامل دالة تعمل نفس الوظيفة مسبقا قمت بتعديل واضافة النسخة الانجليزية منها ومن المميزات فيهما: 1- ادخال العملة اختيارى 2- مراعاة بعض القواعد النحوية حسب علمى 3- الدالة شغالة حتى 999 مليون 4- كتابة الكسور مع مراعاة الفكة لما تكون واحد من الف زي الريال العمانى = 1000 بيسة مثلا وكذلك تجاهل اى كسور زائدة عن الحاجة وهما مرفقتان هنا وارجو من الجميع الاستفادة والتجريب واخطارى لو فيه خطأ حصل تبلغونى WriteDownNumbers.zip

الاخ الكريم اين هى هذه الملفات

تابع الدرس التاسع كائن المدى / النطاق Range نستعرض كائن من نوع النطاق أو ما يسمى بالمدى أو المجال وهو الأكثر شيوعاً أي أن أغلب الأكواد تشير بكثرة لهذا النوع من الكائنات Sub MZM14 () Range("d2:i10").Select End Sub يقوم الكود بتحديد المجال المشار إليه بين القوسين Sub MZM15 () Range("d2:i10").Columns(2).Select End Sub يقوم الكود بتحديد العمود الثاني بالمجال المشار إليه بين قوسين Sub MZM16 () Range("b10:f15").Columns(2).Value = 0 End Sub يقوم الكود بكتابة قيمة صفر في العمود الثاني من المجال المحدد بين القوسين Sub MZM17 () Range("c5:c10").Rows(1).Value = 100 End Sub يقوم الكود بكتابة قيمة 100 في الصف الأول من المجال المحدد بين القوسين وهو هنا الخلية C5 Sub MZM18 () Range("d2:i10").Cells(2, 3).Select End Sub يقوم الكود بتحديد الخلية الواقعة في الصف الثاني من العمود الثالث داخل المجال المحدد بين القوسين وهي الخلية F3 Sub MZM19 () Range("f10:i15").Cells(3, 2).Value = 200 End Sub يقوم الكود بكتابة قيمة 200 بالخلية الواقعة في الصف الثالث من العمود الثاني داخل المجال المحدد بين القوسين وهي هنا الخلية G12 Sub MZM20 () Worksheets(3).Range("f1:h5").Value = 100 End Sub يقوم الكود بكتابة قيمة 100 في المجال المحدد من الورقة الثالثة من أوراق المصنف Sub MZM21 () Range("d2:i10").Clear End Sub يقوم الكود بمسح محتويات المجال المشار إليه بين قوسين Sub MZM22 () Worksheets(3).Range("a1:c10").Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Bold سماكه الخط Sub MZM23 () Worksheets(3).Range("a1:c10").Font.Italic = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Italic إمالة الخط Sub MZM24 () Worksheets(3).Range("a1:c10").Font.Underline = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Underline وضع خط تحت البيانات Sub MZM25 () Worksheets(3).Range("a1:c10").Font.Name = " Arabic Typesetting" End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار نوع الخط Arabic Typesetting Sub MZM26 () Worksheets(3).Range("a1:c10").Font.Size = 18 End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار حجم الخط 18 Sub MZM27 () Worksheets(3).Range("a1:c10").Columns(1).Font.Size = 18 End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بالعمود الأول فقط قم باختيار حجم الخط 18 Sub MZM28 () Worksheets(3).Range("a1:c10").Rows.Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف لجميع صفوف المجال قم باختيار خاصية Bold Sub MZM29 () Worksheets(3).Range("a1:c10").Rows(3).Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بالصف الثالث فقط قم باختيار خاصية Bold Sub MZM30 () Range("f20:i25").Cells.Font.Italic = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بجميع الخلايا قم باختيار خاصية Italic Sub MZM31 () ActiveCell.Formula = "=C1+D2" End Sub عند الخلية الحالية النشطة اكتب المعادلة المذكورة Sub MZM32 () Range("h10").FormulaR1C1 = "=r[-1]c[-1]+r[1]c[1]" End Sub لإدراج المعادلة بمقدار إزاحة اقل من صف وعمود لليمين + إزاحة اكبر من صف وعمود لليسار للخلية المختارة وبالتالي سيكون الناتج معادلة G9+I11 Sub MZM33 () Range("h10").FormulaR1C1 = "=rc[1]+rc[2]" End Sub لإدراج المعادلة بمقدار إزاحة أكبر من صف وعمود لليسار + إزاحة اكبر من صفين عمودين لليسار للخلية المختارة وبالتالي سيكون الناتج معادلة I10+J10 Sub MZM34 () Worksheets(3).Range("H10").Offset(1, 2).Value = 100 End Sub لإدراج القيمة 100 بمقدار إزاحة زائد عمودين لليسار وصف من الخلية المختارة وهي ستكون الخلية J11

الدرس التاسع التعامل مع الكائنات الكائنات Objects الكائنات هي المكونات الأساسية لاى برنامج وهى الأدوات التي تحتوى على البيانات او تستخدم للتعامل مع البيانات مثال ذلك الجداول والنماذج والاستعلامات والتقارير فى Access ويتضمن Excel الكائنات التالية : 1 – التطبيق Application ويتمثل فى برنامج الإكسيل نفسه . 2 – المصنف Work Book ويتمثل فى كتاب العمل الذى يتم التعامل مع البيانات من خلاله. 3 - ورقة العمل Work Sheet وهى التى تحتوى على مجموعة البيانات 4 – النطاق Range ويتضمن مجموعة من الخلايا Cells وهى التى تحتوى على بيان واحد من البيانات سواء كان بيان نصى أو رقمى أو معادلة أو دالة ويكتب النطاق على النحو التالى Range(a1:c5) أى نطاق الخلايا من a1 الى c5 ولكل كائن من هذه الكائنات خصائص معينة Properties مثل الاسم Name والعنوان Caption ومجموعة من الأساليب Methods التي تستخدم في تنفيذ أمر معين على الكائن كما أن الكائن قد يقع عليه حدث يؤثر فى سلوكه ورد فعله كائن التطبیق Application Sub JASMEN1() Application.Caption = "JASMEN MAHMOUD ELSHRIEF" End Sub يقوم الكود بتوظيف الخاصية Caption على كائن التطبيق أي أن هذه الخاصية تقوم بتغيير الاسم العام للبرنامج فبدلا من كلمة مايكرسوفت سيظهر "JASMEN MAHMOUD ELSHRIEF" Sub JANA2 () Application.DisplayFormulaBar = False End Sub تقوم هذه الخاصية DisplayFormulaBar بإخفاء شريط الصيغ عند استخدام False وبالمقابل إظهاره عند استخدام TRUE Sub JOUMANA3 () Application.DisplayFullScreen = True End Sub تقوم هذه الخاصية DisplayFullScreen بجعل التطبيق في وضع ملء الشاشة وللرجوع طبعاً يجب ان نجعل القيمة False Sub MZM4 () Application.DisplayRecentFiles = False End Sub تقوم هذه الخاصية DisplayRecentFiles بعدم عرض المستندات الأخيرة في كائن تطبيق اكسيل وإذا أردنا إستعراضها طبعاً نجعلها تاخد القيمة TRUE Sub MZM5 () Application.WindowState = xlMaximized End Sub تقوم هذه الخاصية WindowState بعرض البرنامج فى حالة التكبير Sub MZM6 () Application.WindowState = xlMinimized End Sub تقوم هذه الخاصية WindowState بعرض البرنامج فى حالة التصغير Sub MZM7 () Application.WindowState = xlNormal End Sub تقوم هذه الخاصية WindowState بعرض البرنامج فى حالة العرض العادى كائن ورقة العمل Worksheet Sub MZM8 () Worksheets("sheet1").Visible = False End Sub يقوم الكود السابق بإخفاء ورقة العمل المسماه sheet1 وإذا أردنا إظهار الشيت نجعل القيمة TRUE Sub MZM9 () Worksheets(1).Name = "sheet1" End Sub يقوم الكود بإعادة تسمية الورقة 1 في ترتيب اكسيل بـ sheet1 Sub MZM10 () Worksheets("sheet1").Delete End Sub يقوم الكود بحذف الورقة المسماه sheet1 Sub MZM11 () Worksheets(1).Activate End Sub يقوم الكود بتنشيط الورقة المسماه sheet1 Sub MZM12 () Worksheets.Add End Sub يقوم الكود بإضافة ورقة جديدة Sub MZM13 () Worksheets(3).Copy End Sub يقوم الكود بنسخ الورقة الثالثة ضمن ترتيب ورقات المصنف

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

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

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

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

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