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

منقول 5 مواقع عليك أن تدمنها أكثر من فيسبوك وتويتر ! = = = = = = = = = = = = = = = = = = = 1- موقع تيد TED : تقريبا مش بيعدي يوم إلا ولازم أدخل علي تيد ، TED هي اخت...صار لـ : Technology تكنولوجيا - Entertainment ترفيه - Design تصميم. تيد عبارة عن مؤتمر أو قاعة محاضرات بيجيلها الناس من مختلف انحاء العالم ، والقي فيها محاضرات ناس مبدعين زي بيل جيتس (مؤسس شركة Microsoft)، بيل كلينتون، لاري بايج (مؤسس Google) وغيرهم كتير ،، الفكرة ان ted بـ يمنحهم 18 دقيقة كحد أقصى لإلقاء أفضل محاضرة في حياتهم .. وبتكون فعلا رائعة. اللينك ده فيه كل محاضرات الموقع مترجمة للغة العربية https://www.ted.com/talks/browse?language=ar محاضرة يوميا هتفرق كتير :)) 2- موقع Udacity او coursera الموقع ده من ضمن المواقع اللي بدفع اشتراك النت عشانها ، واحد من اشهر مواقع الكورسات الاونلاين علي النت ، هتلاقي عليه كورسات مجانية في كل المجالات واحيانا بتاخد شهادة بعد ما تخلص الكورس ، الموقع كنز لاي حد عايز يتعلم ، الكورسات بتكون باللغة الانجليزية ، فحاول تحسن من لغتك عشان تقدر تتفاعل مع كل محتويات الكورس وحلقات النقاش https://www.udacity.com/ . https://www.coursera.org/ 3- موقع رواق : اغلب المحتوي العلمي علي النت بيكون باللغة الانجليزية ، وده بيكون عائق امام بعض الناس اللي مستوي اللغة عندهم ضعيف . المحتوي العربي الفترة الاخيرة بدات تظهر فيه بعض المواقع المحترمة واللي مبذول فيها جهد رائع ، زي مثلا رواق رواق هي منصة بتقدم كورسات باللغة العربية في مختلف المجالات ، انا تابعت منهم 3 كورسات واستفدت جدا منهم ، الكورسات كلها مجانية والتسجيل فيها سهل جدا http://www.rwaq.org/ 4- موقع ويكي هاو " اسأل مجرب ولا تسأل حكيم " ،،، نفسك تعمل حاجة معينة ومش عارف الطريقة ، طريقة عمل المكرونة مثلا ؟ ، التزلج علي الجليد ؟ رسم ؟ ........... الخ " الموقع ده موسوعة عن كيفية عمل أي شيء، و لذلك جميع مقالات ويكي هاو تبدأ بـ “كيف” أو “How to" ما يقرب من 100 الف مقال في شتي مجالات الحياة ، والفيديو لا يتعدي الـ 10 دقائق ، يعني ممكن تسمعه وانت واقف في المترو الموقع متوفر ب 60 لغة .. كان منهم العربية لكن إنقطع المتطوعين العرب عن المشاركة! http://www.wikihow.com/Main-Page 5- موقع العلوم الحقيقية ، او الباحثون السوريون الموقعين رائعين ، بينشروا احدث ما وصل اليه العلم من ابحاث واكتشافات ومقالات مترجمة ، بالاضافة لمقالات في اغلب مجالات الحياة ( طب - رياضيات - اقتصاد - نفس - ........ ) تابعهم وهتستفاد جدا ان شاء الله http://real-sciences.com/ http://www.syr-res.com/ المواقع دي لو حضرتك تابعتها بشكل يومي ، مقدار العلم اللي ممكن تحصله منها يعادل العلم اللي اخدته في التعليم الحكومي ويزيد ، وكل اللي انت محتاجة ( كمبيوتر - نت - قلم وورقة - وحبة ارادة ) cpd

السلام عليكم ورحمة الله وبركاته موضوع اليوم بسيط جدا هو كيفية ادراج معادله داخل شكل ارجو ان يستفاد منه الجميع مرفق ملف فيديو واعذرونى لاننى لا اجيد تسجيل الفيديوهات لاتنسونا بصالح دعاؤكم تقبلوا خالص تحياتى https://www.youtube.com/watch?v=4wdA5LUHF4U&feature=youtu.be ادراج معادله داخل شكل .rar

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

1 _ كود ادخال ترحيل بيانات بطريقة رأسية ()Sub AddText Dim Lrow As Single With sheet1 Lrow = .Range("B" & Rows.Count).End(xlUp).Row + 1 .Range("B" & Lrow & ":K" & Lrow) = .Range("B3:K3").Value .Range("B3:K3").Value = "" End With End Sub ورقة تنفيذ الكود sheet1 نطاق سطر الادخال للبيانات (B3:K3) يمكن تعديله بناء على البيانات المطلوب ادخالها بعد الضغط على زرار الترحيل سيتم ترحيل سطر الادخال بطريقة رأسية مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء كود ادخال و ترحيل بيانات_بطريقة رأسية_كود مينىadham.rar

الشكر لله اخي احمد تفضل جرب المرفق معادلة الايام بعد التعديل: TRUNC((((($W8/360)-$P8)*12)-$O8)*30) حساب مدد.zip

إخوتى فى الله بالمرفقات ساعه هديه للمنتدى إظهار إمكانيات الاكسل الرائعه بالرسم البيانى + المعادلات + الأكواد اتمنى أن تنال إعجابكم وأن يستفاد منها وتقبلوا منى وافر الإحترام والتقدير ساعه رائعة.rar

اخى حسام شاهد الفيديو تقبل تحياتى ادارج صوره.rar

السلام عليكم ورحمة الله وبركاته اخى اسلام هل تقصد هكذا تقبل تحياتى دالة v lookup بناءا على شرط.rar

ممكن ترسل جزء من البيانات التى اضهرت الخطا خصوصا السطر رقم 25

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

هذا منتدي رائع بمعني الكلمة تسلموااااااااااا

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

السلام عليكم اخي عطاء الله مش قولتلك

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

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

‏22‏/1‏/1435هـ الموافق ‏25‏/11‏/2013م السلام عليكم و رحمة الله وبركاته في المرفق ملف نظم اصدار وطبع الشيكات لعدة بنوك وعدة حسابات في اولو رقة بالملف نموذج تحرير الشيكات في نموذج تحرير الشيكات عملية الإدخال كالتالي: 1 التاريخ: ادخل التاريخ للشيك وهومثبت على تاريخ اليوم حاليا ويمكنك تغييره 2- حرر في: ادخل مكان تحريري الشيك او اختاره من القائمة – اذا ادخلت اسم مكان جديد سوف يتم اضافته للقائمة عند طباعة الشيك 3- رقم الحساب: يمكنك استخدام هذه الخانة او تجاهلها - - تستخدم هذه الخانة في حالة يكون لديك اكثر من حساب في نفس البنك – يقوم البرنامج باضافة رقم الحساب الى اسم البنك للتأكد من حصولك على معلومات دقيقة 4- رقم الشيك: تقوم بادخال رقم الشيك وبعد كل عملية طباعة يقوم البرنامج بزيادة الرقم 1 ليصبح متسلسل - - اذا اخلت رقم شيك متطابق مع اسم بنك سبق اصدارة يعطيك رسالة تحذيرية بذلك 5- اسم المستفيد: أي اسم الشخص الذي يظهر على الشيك – يمكنك اختياره من القائمة اذا سبق اصدار شيك له - - و يمكنك البحث عن أي جزء من اسم الشخص وتظهر نتائج البحث في القائمة المنسدلة - - مثال: اذا كتبت في خانة اسم المستفيد: عبد سوف يظهر لك في القائمة كل من يوجد في اسمهم عبد مثل عبدالله وعبدالرحمن وغيرها وتختار منها الإسم الذي تريد 6- المبلغ و التفقيط: بمجرد ادخال المبلغ في خانته يتم التفقيط بجوار المبلغ 7- الإيضاح: يوجد نوعين من الإيضاح ايضاحات تظهر على الشيك وايضاحات تحفظ لديك مع بيانات الشيك ولا تطبع على الشيك - - وايضا الإيضاحات يوجد لدينا ايضاحات تتكرر دائما لذلك يقوم الملف بحفظ الإيضاحات الغير مكررة و يمكنك البحث عنها بواسطة بأي جزء بنفس طريقة البحث عن الإسم. يتم عمل ورقة جديدة لكل اسم بنك جديد وتنسق الورقة بما يتناسب وطباعة الشيك ورقة الحفظ و البحث: بعد كل عملية طباعة يتم حفظ بيانات الشيكات هنا ويمكنك البحث عن أي معلومة من هنا من تاريخ و الى تاريخ – او – تختار اسم البنك المطلوب – او – أي معلومة اخرى من رقم الشيك او مبلغ او ايضاحات او اسم مستفيد آمل ان يكون به ما طلبت Shiqشيكات01.rar

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

أخي الكريم هذه هي المرفقات لقد إطلعت عليها سابقاً (لا أدري إن كانت موجودة في المنتدى) كتاب دروس وأكواد VBA ( المرفق يحوي مصدر الكتاب ومن قام بالتعديل عليه ) برنامج يحوي بعض أوامر أكسس( للأخ فهد الدوسري جزاه الله خير ) VBA_lessons.rar FAHAD_AccessCode.rar

كثير ما نحتاج لكتابة جمل SQL داخل كود فيجوال بيزيك التطبيقات و ذلك اما لتنفيذ استعلامات مركبة أو لبناء منطق معين داخل جملة الاستعلام نفسه و لكن هل تحتاج لكتابة جملة السي كيو ال مباشرة ؟؟ الاجابة لا كل ما عليك هو تنفيذ استعلام يناظر أو يشابه شكلا ما تريد ، ثم عرض الاستعلام فى واجهة ال سي كيو ال و نسخ الكود ثم التعديل فيه مثال للتوضيح أكثر اذا أردت تنفيذ استعلام إضافة يضيف القيم الموجودة فى حقلين فى جدول رقم 2 الي جدول رقم واحد يمكن اعداد الاستعلام بالطريقة العادية و اذا نظرنا الي عرض ال SQL له يكون كالتالي INSERT INTO Table1 ( Field1, Field2 ) SELECT Table2.Field1, Table2.Field2 FROM Table2; اما اذا أردنا تنفيذه بجملة SQL بال vba فكل ما علينا هو توحيد جملة ال SQL فى سطر واحد ووضعها بين "" علامتي تنصيص و أن نسبقها ب Docmd.RunSQL فتصير كالتالي : DoCmd.RunSQL "INSERT INTO Table1 ( Field1, Field2 )SELECT Table2.Field1, Table2.Field2 FROM Table2;" او لفصلها الي سطرين Private Sub Command0_Click() DoCmd.RunSQL "INSERT INTO Table1 ( Field1, Field2 )SELECT " & _ "Table2.Field1, Table2.Field2 FROM Table2;" End Sub و النتيجة واحدة و ما نستفيده هو امكانية التدخل فى بناء جملة ال SQL عن طريق منطق البرمجة

إضافة بسيطة للتنبيه على خطأ شائع: عند قسمة عبارة SQL على سطرين ينبغي مراعاة هل يوجد مسافة فاصلة بين الكلمتين : الأخيرة من السطر الأول ، والأولى من السطر الثاني . مثال : DoCmd.RunSQL "INSERT INTO Table1 ( Field1, Field2 )SELECT Table2.Field1, Table2.Field2 FROM Table2;" إذا قسمته إلى سطرين السطر الأول ينتهي بكلمة SELECT والسطر الثاني يبدأ بكلمة Table2 عليك أن تلاحظ أن بينهما مسافة ، ولذا يجب أن تضع هذه المسافة بعد الكلمة الأخيرة من السطر الأول أو قبل الكلمة الأولى من السطر الثاني يعني إما : DoCmd.RunSQL "INSERT INTO Table1 ( Field1, Field2 )SELECT " & _ "Table2.Field1, Table2.Field2 FROM Table2;" أو DoCmd.RunSQL "INSERT INTO Table1 ( Field1, Field2 )SELECT" & _ " Table2.Field1, Table2.Field2 FROM Table2;"