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

كان موجود ضمن المواضيع المثبته 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. -----------------------------------------------------------------------------------------------

حياك الله اخي الكريم ... نعم يمكن ذلك بإرسال التقرير فقط ... وبصيغ مثل الوورد وPDF هو ليس بحاجة لإرسال كامل البرنامج .. بالتوفيق ان شاء الله.

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

مبدع دائما

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

لم يبق في رصيدي إضافة الاعجاب لهذا اليوم .. فتفضّل خلاصة كلامي أستاذي الغالي ياسر خليل أبو البراء

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

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي الفاضل محمد حسن المحمد على المبادرة الطيّبة .. ألف شكر أستاذي الغالي " الصّقر " على الاستجابة السريعة ..بارك الله فيكما تلبية لاشكالية أستاذنا " الصّقر " قمت بوضعته على رابط آخر استجابة له ربما يتمكن من ذلك لأنّني تمكنت من تنزيله بطريقة جد عاديّة : http://up.top4top.net/downloadf-top4top_43ee5f69371-rar.html

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

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

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

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

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

بارك الله فيك اخي أبو الحسن والحسين الم الحيض دلك جزاك الله ونفع بك الاسلام والمسلمين

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

السلام عليكم ورحمة الله وبركاته اليوم الأول اختصار مهم لسرعة الادخال

زملائى بالمنتدى العزيز على قلبى مما لا شك فيه ان موضوع إيجاد الفرق بين تاريخين او طرح تاريخين يهم الكثير من مستخدمى الاكسيل لذالك اقدم لكم شرح مبسط لداله DateDif تستخدم هذه الدالة فى إيجاد الفرق بين تاريخين او طرح تاريخين شكل الدالة يكون كالتالى DATEDIF(Date1, Date2, Interval) شرح الداله الداله هى DateDif وتتكون من 3 أجزاء Date1 هو تاريخ الاقدم Date2 هو تاريخ الاحدث Interval وهو نوع النتيجة المطلوبه انواع Interval كما بالصورة واليكم تطبيقات عمليه بالصور للداله مثال 1 لدينا تاريخ بالخلية A1 وهو 2010/08/05 تاريخ الميلاد (مثلا) وتاريخ بالخلية B1 وهو 2014/12/08 تاريخ اليوم (مثلا) ونريد كم فرق السنوات بين تاريخين ( اى كم عمر الطفل بالسنوات عند هذا التاريخ) نكتب بالخلية C1 الداله التالية =DATEDIF(A1;B1;"y") نلاحظ هنا اننا استخدمنا حرف Y وهو اختصار لـ Year ونلاحظ ايضا انها مكتوبة بين علامتين تنصيص " " ويكون ناتج المعادله وهو 4 سنوات كما بالصورة مثال 2 اذا اردنا حساب الفرق بالشهور نغيير Y الى M وهو اختصار month وتكون المعادله كالتالى =DATEDIF(A2;B2;"m") ويكون النتيجة هى 52 شهر كما هو موضح بالصورة . مثال 3 اذا اردنا حساب الفرق بالشهور نغيير m الى D وهو اختصار Day وتكون المعادله كالتالى =DATEDIF(A2;B2;"d") ويكون النتيجة هى 1586 يوم كما هو موضح بالصورة مثال 4 اذا اردنا حساب الفرق بين التاريخين كم سنة وكم شهر وكم يوم بفرض ان التاريخين بالمثال الاول بالخلية A2 والخلية B2 وتكون المعادله كالتالى نضع بالخلية C2 المعادله التالية =DATEDIF(A2;B2;"y") ونضع بالخلية D2 المعادله التالية =DATEDIF(A2;B2;"ym") ونضع بالخلية E2 المعادله التالية =DATEDIF(A2;B2;"md") ونلاحظ النتيجة كما هو موضوح بالصورة اتمنى ان اكون وفقت بالشرح وان شاء الله سوف اجهز المزيد من الامثله العملية والمصحوبه بالصور تقبلوا منى وافر الاحترام والتقدير

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

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

بوركت أخى أبى الحسن والحسين

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

أخي الفاضل أهلا ومرحباً بك في المنتدى من المفترض أن يتم شرح المطلوب بشكل أكثر تفصيلاً ولكن لأني عملت على مثل هذا الكود من قبل فقد أدركت المطلوب .... يرجى الإطلاع على موضوع التوجيهات للأعضاء الجدد في الموضوعات المثبتة في المنتدى ويرجى تغيير اسم الظهور للغة العربية إليك الكود التالي عله يفي بالغرض Sub TransferDataToClosedWB() On Error Resume Next Dim WB As Workbook Dim LR_A As Long, LR_B As Long Dim Answer As Long LR_A = IIf(Cells(Rows.Count, 1).End(xlUp).Row <= 8, 9, Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False ThisWorkbook.Sheets("Sheet1").Range("B9:K" & LR_A).Copy Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & "اكسل2.xlsm") With WB.Sheets("Sheet1") LR_B = IIf(Cells(Rows.Count, 1).End(xlUp).Row <= 2, 3, Cells(Rows.Count, 1).End(xlUp).Row + 1) .Range("A" & LR_B).PasteSpecial xlPasteValues .Range("L" & LR_B).Value = ThisWorkbook.Sheets("Sheet1").Range("F6").Value .Range("M" & LR_B).Value = ThisWorkbook.Sheets("Sheet1").Range("B4").Value End With On Error GoTo 0 WB.Close SaveChanges:=True Application.CutCopyMode = False Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "سجل إعجاب بهذا" .. Desktop V2.rar

تابع الدرس التاسع كائن المدى / النطاق 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

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

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

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

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