هادى محمد المامون سالم قام بنشر ديسمبر 25, 2008 الكاتب قام بنشر ديسمبر 25, 2008 الاخ الكريم الاستاذ / هادى سالمبارك الله فيك ونفع بك اود ان اضم صوتى الى كل الزملاء الذين طلبو حفظ هذه المادة العلمية على شكل ملف ورد او pdf حتى يتثنى لنا الرجوع لها فى اى وقت وكذلك القراءة من ورق مطبوع عند البعض اسهل من القراءة من صفحة النت و قد كنت طلبت هذا الطلب سابقا فى بداية هذه السلسة لكن لم يوجد رد . فلعل المانع خير وجزاك الله خير الجزاء ,,,, والله ولى التوفيق بسم الله الرحمن الرحيم ليس لدى مانع اذا كنت تعرف ان تقوم بهذا العمل فأفعل ليستفيد الجميع السلام عليكم
boss قام بنشر ديسمبر 25, 2008 قام بنشر ديسمبر 25, 2008 السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء اساتذتنا الكرام يعلم الله اني احبكم في الله بعد طلبات الاخوة من الاستاذ هادي ان يجمع شرحه في ملف تجرات وقمت بهذا العمل وانا على خوف من اي تقصير او خطا فهذا مجهود متواضع مني الى مجهوداتكم انتم اخوتي الكبيرة ومجهودات اساتذتنا تقبلوا مني فائق الاحترام والتقدير... hadi_exel_vba.rar
هادى محمد المامون سالم قام بنشر ديسمبر 26, 2008 الكاتب قام بنشر ديسمبر 26, 2008 بسم الله الرحمن الرحيم اخى boss : مجهود كبير جعله الله فى ميزان حسناتك لقد قمت بمراجعه جزء من الملف و لكن هناك بعض الكلمات ناقصه و قد يجد من يقرأ الملف الصعوبه فى فهم الموضوع , و لا اريد ان اضع امثله حتى لا اضيع حقك فى المجهود المبذول , و قد تكتشف بنفسك الفرق عند مقارنتك لأول سطر فى الموضوع 0 السلام عليكم
ابو جراح قام بنشر ديسمبر 28, 2008 قام بنشر ديسمبر 28, 2008 الله يعطيك الف الف عافيه على هالمعلومات التي افادتني كثيرا حيث اني مبتدأ واقل من مبتدأ في علم الفجول بيسك ولقد استفدت كثيرا من طرحك الجميل 0 وفقك الله لما يحبه ويرضاه اللهم امين 0
ممدوح فؤاد قام بنشر مارس 26, 2009 قام بنشر مارس 26, 2009 جزاك الله كل خير اخى الكريم هادى على هذا الشرح الرائع وجعله فى ميزان حسناتك
roushdy قام بنشر مارس 27, 2009 قام بنشر مارس 27, 2009 بصدق شرح ممتاز ولى سؤال استاذنا الغالى كيفية الأشارة الى اخر صف بجدول ولكم منا جزيل الشكر
هادى محمد المامون سالم قام بنشر مارس 28, 2009 الكاتب قام بنشر مارس 28, 2009 بصدق شرح ممتاز ولى سؤال استاذنا الغالى كيفية الأشارة الى اخر صف بجدول ولكم منا جزيل الشكر بسم الله الرحمن الرحيم استخد الكود Sub DOIT() Dim ER As Integer ER = Sheets("Sheet1").Range("A1").CurrentRegion.Rows.Count ActiveSheet.Rows(ER).Select End Sub مرفق ملف السلام عليكم Row.rar
ابو اسامة العينبوسي قام بنشر مارس 28, 2009 قام بنشر مارس 28, 2009 السلام عليكم احسنت استاذ هادى لكن في حال كانت البيانات غير متجاورة(منقطعة التواصل) ممكن تستخدم الاتى Sub DOIT2() ActiveSheet.Rows(Sheets("Sheet1").UsedRange.Rows.Count).Select End Sub Row2.rar
نزار سليمان عيد قام بنشر مارس 28, 2009 قام بنشر مارس 28, 2009 السلام عليكم جزاك الله خيرا وجعله بموازين حسناتك استاذي الفاضل هادي سالم
ميمووو قام بنشر مارس 28, 2009 قام بنشر مارس 28, 2009 (معدل) بارك الله فيك اخي والله احنا في اشد الحاجه الى مثل هذه الدوره تابع الى الامام فنحن متابعين اول باول والسبب الذي يجعلنا لا نسأل لأننا نحتاج الى ان نتعلم الكثير حتى نستوعب الدروس جيدا وعندها نطرح الاسئله تم تعديل مارس 28, 2009 بواسطه ميمووو
roushdy قام بنشر مارس 30, 2009 قام بنشر مارس 30, 2009 استاذى العزيز 0000 شكرا لأستعدادكم للمساعدة ,ولسرعة الرد والأهتمام بالرد وهذا كرم كبير من حضرتك والموضوع : انى اقوم بعمل برنامج مخازن وليكن عن مخزن ملابس وقمت بالورقة الأولى عمل ازرار باسماء الأصناف والرقم الكودى لها وذلك بالضغط على الزر مقابل اسم الصنف يقوم بفتح الورقة الثانية على جدول باسم الصنف وهذا يعنى انه يوجد اكثر من خمسون جدول للأصناف بالورقة الثانية واهم عمود بها هو رصيد الصنف والمطلوب المساعدة فى ايجاد حل لأعداد تقرير يوضح به ما تم اضافته وصرفه ( اى اخر سطر ) فى كل الجداول لتاريخ معين والطلب الثانى ترحيل اخر رصيد بكل جدول الى صفحة الجرد امام اسم الصنف واعتذر عن ارفاق مشروعى فأن كان هناك سبيل للمساعدة اكون فى غاية الأمتنان والعرفان ولكم جزيل الشكر
roushdy قام بنشر مارس 30, 2009 قام بنشر مارس 30, 2009 ارجو من الأساتذة المشرفين تثبيت الموضوع للمنفعة الموضوع يستحق الثناء وطريقة الشرح تستحق التقدير
سمير نجار قام بنشر أبريل 2, 2009 قام بنشر أبريل 2, 2009 السلام عليكم استاذي الكريم هادي جزاك الله كل خير على هذا المجهود مازلت من المبتدئين في عالم الفيجوال بيزك وبفضلكم وفضل الاساتذة الكرام أمثالم وهذا الموقع العظيم أتطلع لكي ارتقي بهذا العلم الجميل ننظر أن ننهل مما أعطاكم الله من العلم ولا تحرمنا الفائدة السلام عليكم
roushdy قام بنشر أبريل 4, 2009 قام بنشر أبريل 4, 2009 ارجو التكرم بالإيضاح هل انتهت الدورة ام ماذا فنحن فى حاجة ملحة لأستكمال هذه الدورة رجاء محبة استكمال الشرح 0
ياسر خليل أبو البراء قام بنشر مايو 23, 2009 قام بنشر مايو 23, 2009 السلام عليكم أستاذ هادي عوداً حميداً وإنطلاقة جديدة بإشراقة أمل ، تتمنى أن تعاود الدورة وتستكمل ما بدأته فنحن في أمس الحاجة إليها علمني كيف اصطاد ، ولك بكل سمكة حسنات ......... عاشق الإكسيل
احمدزمان قام بنشر مايو 23, 2009 قام بنشر مايو 23, 2009 السلام عليكم و رحمة الله وبركاته استاذي الحبيب الغالي هادي سالم نحن ننتظر بشغف المزيد من ابداعاتك و شرحك جزاك الله خيرا
هادى محمد المامون سالم قام بنشر مايو 23, 2009 الكاتب قام بنشر مايو 23, 2009 بسم الله الرحمن الرحيم مشكور اخى احمد يعقوب و لقد طالت غيبتك عن القاهره مشكور اخى YasserKhalil و قد يكون انقطاعى لظروف خاصه عن استكمال الدوره هو نهايه الدوره نفسها لاعتقادى ان المرحله المقبله قد تخرج خارج نطاق المتوسطين مما جعلنى استعد للمشروع جديد قد يكون مفاجاه( و لاهميته بالنسبه لى لانى سوف اقدمه ان شاء الله كصدقه جاريه(لوالدى رحمهما الله) من العلم النافع الذى قاما بتعليمه لى ليعمل به من أراد ) احاول ان اقم بالانتهاء منه اولا ثم تقديمه كدروس مسلسله 0 و لكنى سوف أحاول تقديم معلومات سريعه و مفيده فى هذا الموضوع على قدر المستطاع اليكم معلومه سريعه لاختصار العمل مع vba بالمشاركه رقم 63 ارفقت الكود التالى Sub Hady() Dim i As Integer For i = 1 To 3 If Sheets("Sheet1").Cells(i, "A").Value = "Hady1" Then MsgBox (Sheets("Sheet1").Cells(i, "A")) End If Next i End Sub هذا الكود لا يتم تطبيقه الا على "Sheet1" و اذا اردت التعديل الى ورقه عمل أسمها "Main" مثلا يجب البحث عن كلمه Sheet1 فى كامل ورقه العمل سنقوم بتعريف اجراء رئيسى نقوم بتعريف اسم و رقه العمل كذلك العداد "i" كمتغيرين سوم نقوم بارسالهما الى الداله الاخرى لتقوم باداء المهمه المطلوبه و بذلك عند تغيير اسم ورقه العمل او العداد ماعليك الا التغيير فى الاجراء الرئيسى فقط و سوف يتم التفعيل فى باقى الكود بالاسماء الجديده 0 Sub Hady() Dim i As Integer Dim My_Sheet As String My_Sheet = "Main" For i = 1 To 3 If Sheets(My_Sheet).Cells(i, "A").Value = "Hady1" Then Call MY_Function(My_Sheet, i) End If Next i End Sub Private Function MY_Function(My_Sheet, i) MsgBox (Sheets(My_Sheet).Cells(i, "A")) End Function و بذلك يصبح الكود نموذج جاهز يمكن الاحتفاظ به فى ورقه العمل Personal تستخدمه متى تريد مع التعديل السريع السابق شرحه مرفق ملف السلام عليكم MY_Function.rar
ياسر خليل أبو البراء قام بنشر مايو 23, 2009 قام بنشر مايو 23, 2009 إلى الأمام أخ هادي بارك الله فيك وجعل هذا العلم في ميزان حسناتك يوم القيامة ---------------- لي طلب ياريت مع كل كود شرح بسيط ولو ف الكود نفسه كتعليق عشان اللي زي حالتنا على قدهم ، ولما يكون الكود صعب عليهم بينحرق دمهم --------------- تحياتي عاشق الإكسيل
احمدزمان قام بنشر مايو 24, 2009 قام بنشر مايو 24, 2009 استاذي الحبيب الغالي هادي سالم السلام عليكم و رحمة الله وبركاته مشكور اخى احمد يعقوب و لقد طالت غيبتك عن القاهره فعلا وحشتني استاذي الفاضل و كذلك اخي عادل ان شاء الله لنا لقاء في القاهرة خلال الشهر القادم و لا انسى كرم ضيافتكما = = = = = = = = بخصوص الدرس اذا اردنا ان نضيف اسم الورقة في خلية في ورقة اخرى محددة مثلا (خلية AA11 في الورقة Sheet3 ماهو التعديل المطلوب على الكود و جزاك الله كل خير مقدما
هادى محمد المامون سالم قام بنشر مايو 24, 2009 الكاتب قام بنشر مايو 24, 2009 بسم الله الرحمن الرحيم لي طلب ياريت مع كل كود شرح بسيط ولو ف الكود نفسه كتعليقعشان اللي زي حالتنا على قدهم ، ولما يكون الكود صعب عليهم بينحرق دمهم قد اجد صعوبه لانى عند الكتابه باللغه العربيه داخل الكود و انسخه بالمنتدى لا تظهر الكتابه باللغه العربيه اذا اردنا ان نضيف اسم الورقة في خلية في ورقة اخرى محددة مثلا (خلية AA11 في الورقة Sheet3 ماهو التعديل المطلوب على الكود اخى احمد استخدم الكود التالى Sub Hady_AA11() Dim My_Sheet As String My_Sheet = "Sheet3" Call MY_Function(My_Sheet) End Sub Private Function MY_Function(My_Sheet) Sheets(My_Sheet).[AA11] = Sheets(My_Sheet).Name End Function السلام عليكم
احمدزمان قام بنشر مايو 24, 2009 قام بنشر مايو 24, 2009 السلام عليكم جزاك الله خيرا استاذي القدير و متشكر جدا على سرعة الرد
ياسر خليل أبو البراء قام بنشر مايو 28, 2009 قام بنشر مايو 28, 2009 أخي الكريم هادي لماذا انتقل هذا الموضوع من المواضيع المهمة إلى مواضيع المنتدى؟؟؟؟؟؟ هل انتهت الدورة ؟ أم ماذا ؟ إذا كانت انتهت فإني أطالبكم ( بلاش لا تفكروا الكلمة دي إجباري ) فإني أناشدكم الله أن تبدأ دورة تكميلية لهذه الدورة ، علماً بأن هناك أعضاء جدد كثيرون ومتحمسون في نفس الوقت وعلى استعداد لتقبل أمر الدورة والمشاركة فيها أرجو الاهتمام بالأمر، فأنا مولع بأمر VBA بشدة وأريد أن أنجز فيه ياريت ردود من كافة الأعضاء لتفعيل هذه الدورة من جديد! :fff: عاشق الإكسيل
GHMN7174 قام بنشر مايو 29, 2009 قام بنشر مايو 29, 2009 اخى هادى جزاك الله كل خير وكيف احوالك واحوال الاسرة الكريمة جعل الله عملك فى ميزان حسناتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.