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

الاخوة الكرام السلام عليكم ورحمة الله وبركاته دمتم في صحة وخير ------ هل من كود لمنع اعادة تسمية ملف اكسل ولكم مني جزيل الشكر

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

المطلوب بالمرفقات ترحيل.rar

السلام عليكم اخي الفاضل / أحمد فؤاد ............حفظكم الله الف مليوووون مبروك .... والى الامام دوما....

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

السلام عليكم تم العمل بالكود التالي: Const Adr As String = "I13" Sub Macro1() Dim Rng1 As Range, Rng2 As Range, Cel As Range Dim R As Integer Set Rng1 = Range("A1:A11") Set Rng2 = Range("D1:D11") For Each Cel In Rng1 R = R + 1 If WorksheetFunction.CountIf(Rng2, CStr(Cel)) Then Range(Adr).Cells(R, 1).Value = Cel.Value End If Next For Each Cel In Rng2 If WorksheetFunction.CountIf(Rng1, CStr(Cel)) = 0 Then R = R + 1 Range(Adr).Cells(R, 1).Value = Cel.Value End If Next End Sub شاهد المرفق 2003 ترتيب بشكل معين.rar

السلام عليكم ورحمة الله اخي الكريم جرب الكود التالي Sub AL_KHALEDIفرزمخصص() Set Rn1 = [A1] Set Rn2 = [D1] Set Rn1 = Range(Rn1, Rn1(Cells(1000, Rn1.Column).End(xlUp).Row, 1)) CLC1 = Application.CustomListCount Application.AddCustomList ListArray:=Rn1 On Error GoTo Error: CLC2 = Application.CustomListCount L1 = Cells(Rows.Count, Rn2.Column).End(xlUp).Row Set Rn3 = Range(Rn2, Rn2(L1, 1)) Dim Arr() For Each Rc1 In Rn1.Cells If Application.CountIf(Rn3, Rc1) = 0 Then ReDim Preserve Arr(L2) Arr(L2) = Rc1.Value L2 = L2 + 1 Rn2(L1 + L2, 1).Value = Rc1.Value End If Set Rn3 = Range(Rn2, Rn2(L1 + L2, 1)) Next Rc1 Rn3.Sort Rn3(1, 1), xlAscending, Header:=xlNo, OrderCustom:=CLC2 + 1 For Each Rc3 In Rn3.Cells If Not IsError(Application.Match(Rc3, Arr, 0)) Then Rc3.Value = "" Next Rc3 Error: If CLC2 > CLC1 Then Application.DeleteCustomList ListNum:=CLC2 End If Set Rn1 = Nothing: Set Rn2 = Nothing: Set Rn3 = Nothing Erase Arr End Sub في امان الله

يا اخي اقسم لكم بالله لا استطيع التعبير عن شكري امام افضالكم التي لا تنتهي ------- اللهم يا واسع الفضل ارزقه من حيث لا يحتسب وزده علما وخلقا

الحمد لله ،،، ثم الشكر موصول لمبدع العمل استاذنا القدير عبدالله باقشير

السلام عليكم شاهد المرفق 2003 جدول++.rar

السلام عليكم اضف هذا السطر في this workbook Private Sub Workbook_Open() Application.OnKey "{f5}", "Button2_Click" End Sub تحياتي ترحيل مع vlookup+.rar

السلام عليكم عمل جميل جازاك الله خيرا وأن لم يكن فيها مانع وللافادة لا غير هذا اختصار للكود دون الحاجة للمعادلات التي على الملف ضعه في حدث Initialize Private Sub UserForm_Initialize() Dim lr As Long Dim Te lr = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row Te = "يوم " & Feuil1.Range("a" & lr) & " الكمية : " & Feuil1.Range("c" & lr) & " الصنف : " & Feuil1.Range("b" & lr) Me.WebBrowser1.Navigate _ "about:<html><body scroll='no'><font color= " & LaCouleur & " size='4' face='NEW'>" & _ "<marquee direction=right>" & Te & "</marquee></font></body></html>" End Sub تقبل تحياتي

تفضل توقيت كل ثلاث ثواني لترى النتيجة ويمكنك تحديد الفترة حسب الرغبة حيث كل 1000 = ثانية واحدة timre.rar

السلام عليكم كيف يتم تكرار الصفوف بنفس التنسيق والصورة ربما توضح اكثر وشكرا ....

اولا تغير تنسيق الخلايا الى عام ثم المعادلة التاليه =HOUR(C2/5)*60+MINUTE(C2/5)

السلام عليكم Classeur1_A.rar

شكرا لك يالبروفسير

السلام عليكم أخي العزيز كما أخبرتك سابقا تم ربط الإدارة بالإسم والآن تم ضبط موضوع الـ X أعتقد أن المرفق به ماتريد إن شاء الله تفضل TIME SHEET 120_2.rar

اسعد الله اوقاتكم بكل خير لدي سيرفر 2008 وعليه SQL 2008 واعمل باكب يومي على السيرفر نفسه. توصلت الى طريقه انسخ من السيرفر الى الجهاز الشخصي عن طريق التعليمة Robocopy في ملف باتش وهي تعمل بشكل ممتاز. المشكلة اذا اسم الفولدر عربي ﻻ ينفذ هذه التعليمة، يقول غير موجود !!! فهل يوجد حل لمشكلة العربي ؟؟؟ مع تحياتي

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