أيهاب ممدوح قام بنشر أغسطس 1, 2011 الكاتب قام بنشر أغسطس 1, 2011 يوجد غموض لدي في رساله الترحيب اريد شرحها والف مليون شكرا وكل عام وانت بخير
عبدالله المجرب قام بنشر أغسطس 1, 2011 قام بنشر أغسطس 1, 2011 يوجد غموض لدي في رساله الترحيب اريد شرحها والف مليون شكرا وكل عام وانت بخير فسر اكثر اين الغموض وفي اي ناحية تريد الشرح
أيهاب ممدوح قام بنشر أغسطس 1, 2011 الكاتب قام بنشر أغسطس 1, 2011 اولا شكرا علي المجهود الرائع الذي قمت به معي حتي الان ثانيا اريد شرح عمل رسال الترحيب
الحسامي قام بنشر أغسطس 1, 2011 قام بنشر أغسطس 1, 2011 السلام عليكم والله يا ابو احمد انك رائع جدا جدا مجهود ونشاط وافكار واعمال تحسد عليها بارك الله فيك واتمنى لك التقدم والنجاح
أيهاب ممدوح قام بنشر أغسطس 1, 2011 الكاتب قام بنشر أغسطس 1, 2011 والله العظيم انا عمري ما شوفت كده ..................... بجد لسه فيه حد بيساعد حد من غير ميكون عايز حاجه .............الله يباركلك الف شكرا ليك يا ابو احمد كنت اريد شرح لكود الاخ الحسامي وانا طلبت منه الشرح لكنه لم يرد حتي الان الكود هو : Sub Button285_Click() Dim x1, i As Integer Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="ehab123" Columns("d:iq").EntireColumn.Hidden = True If ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 33 Then Columns("d:iq").EntireColumn.Hidden = False Range("d6").Select ElseIf ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 32 Then For i = 11 To 251 Step 8 Cells(1, i).EntireColumn.Hidden = False Next Range("k6").Select Else x1 = ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value Range(Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1), _ Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1 + 7)).EntireColumn.Hidden = False Cells(6, ((x1 - 1) * 5) + x1 * 3 + 1).Select End If ActiveSheet.Protect Password:="ehab123" End Sub
الحسامي قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 السلام عليكم اخي الكريم .... لا يوجد شئ اسمه شرح كود و لو تم الطلب بجزئية معينة لم تفهمها لكان الامر ابسط اما شرح كود كامل فمن الصعوبة بمكان لذلك فهو بالاساس يشتمل على اساسيات الاكواد من قاعدة IF وجمل التكرار و استخدام ال Range واخفاء الاعمدة وعلى اية حال ساقوم بشرح ما يتيسر لي ---------------------------------------- الكود يعمل بناءا على ثلاثة احتمال الحالة الاولى اذا كانت قيمة القائمة تساوي 33 فيقوم باضهار كافة الاعمدة الحالة الثانية اذا كانت قيمة القائمة تساوي 32 فيقوم باضهار اعمدة معينة k .. s .. aa الخ وهذه الاعمدة ترقيمها 11 ... 19 ... 27 ولغاية السطر 251 الذي يمثل السكر IQ اي ان هذه الارقام متوالية هندسية تبدأ من الرقم 11 وتزداد بالرقم 8 في كل مرة حتى الوصول للرقم 251 ... ولذلك تم استخدام For i = 11 To 251 Step 8 اما الحالة الثالثة اذا كانت قيمة القائمة من 1 - 31 اي ايام الشهر بالاضافة الى اجمالي الشهر والمطلوب اضهار الاعمدة التي تخص كل بند ويتم تحديد الاعمدة المراد اظهارها بناءا على قيمة القائمة وبناءاً على معادلات رياضية للتوضيح : قيم القائمة الموجودة ............. 1 2 3 4 .... 31 بداية الاعمدة المطلوب اضهارها 4 12 20 28 .... 244 ورياضيا يتم ربطها بالصيغة ص=((س-1)*5)+(س*3)+1 بحيث لو كانت قيمة س = 1 اذن ص=((1-1)*5)+(1*3)+1 ... ص=4 بحيث لو كانت قيمة س = 2اذن ص=((2-1)*5)+(2*3)+1 ... ص=12 ... وهكذا وتم تحديد باية العمود ونهاية العمود المراد اضهاره Range(Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1), _ Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1 + 7)).EntireColumn.Hidden = False وتم اضافة الرقم 7 لتحديد اخر عمود في الاعمدة المطلوبة لان المطلوب اضهار 8 اعمدة وبزيادة 7 على العمود الاول يصبح لدينا الاعمدة ال8 المطلوبة 1
عبدالله المجرب قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 السلام عليكم والله يا ابو احمد انك رائع جدا جدا مجهود ونشاط وافكار واعمال تحسد عليها بارك الله فيك واتمنى لك التقدم والنجاح الاستاذ الفاضل الحسامي اخجلتمونا يا رجل وهذا بعض ما عندكم واقل ما يمكن تقديمه في خدمة هذا المنتدى وشرحك للكود وافي وسلس وتشكر على الايضاح والله العظيم انا عمري ما شوفت كده ..................... بجد لسه فيه حد بيساعد حد من غير ميكون عايز حاجه .............الله يباركلك الف شكرا ليك يا ابو احمد اخي هذا اقل ما يمكن ان نقدمه لهذه المدرسة التي اعطتنا الكثير دون مقابل
أيهاب ممدوح قام بنشر أغسطس 2, 2011 الكاتب قام بنشر أغسطس 2, 2011 الي كلا من :- الاخ \ الحسامي الاخ \ ابو احمد بعد التحيه ..... اود ان اوجه الشكر لكما علي هذا المجهود الخررافي الذي بذلتموه معي حتي الان واستغل هذة المناسبه وادعو لكما بالتوفيق دائما ويبارك الله فيكما ما كان العبد في عون اخيه .... واني اصبحت متعلق بهذا المنتدي اكثر من بدايه الدخول لاول مرة من باب الفضول اصبح الان رقم واحد في المنتديات لدي وبجد لسه فيه ناس محترمه بعد ما فقدت الامل ان حد هيوصلني معلومه ولو حتي خاطئه ومن قبلكم حاولت اخذ بعض المعلومات من شخص كنت اعرفه واصبح يتهرب مني وعند السؤال يرد علي السؤال باجابه ليس لها علاقه بالموضوع وبهد ذلك يرسل لي برامج من اصلها مدمر للجهاز حتي لا اكمل العمل الذي اقوم به وفي نهايه القول استعين بكلمه الاستاذ الحسامي أن تمنع صديقا من الخطأ خير من أن تساعده بعد الوقوع فيه في النهايه اشكرا الجميع القائمين علي هذا المنتدي العظيم بجد وكل من حاول مساعدتي وبالاخص الاستاذ \ ابو احمد والاستاذ \ الحسامي بارك الله لكما في حياتكم ورزقكم الفردوس وفي رعايه الله اخوكم ايهاب ممدوح مصر
أيهاب ممدوح قام بنشر أغسطس 2, 2011 الكاتب قام بنشر أغسطس 2, 2011 اريد من اساتذه المنتدي عند عمليه التحويل بين الفرعين يظهر يوزر فورم به اسم الفرع المحول منه والمحول اليه والتاريخ والصنف المراد تحويله ويقوم ايضا الفور بانزال البيانات في كلا الفرعين في مكان التحويل في نفس اليوم عند الفرعين ولكن هذا للتحويل منه والثاني للتحويل اليه موجود في المرفق وشكرا جزيلا مبيعات الفرع.rar
الحسامي قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 السلام عليكم اخي ايهاب بصراحة لم افهم المطلوب بتاتاً يرجى التوضيح بصورة افضل ليتمكن احد الاعضاء من مساعدتك
أيهاب ممدوح قام بنشر أغسطس 3, 2011 الكاتب قام بنشر أغسطس 3, 2011 الاخوة الساده الافاضل يوجد شيتين كل شيت يخص فرع من الفروع اريد يوزرفورم يقوم اسمه التحويلات بين الفروع وظيفته تكون علي النحو التالي يقوم باضافه التحويل الي الفرع الاول في خليه االاضافه للصنف المراد التحويل اليه ويقوم ايضا بتحويل الكميه المحوله من الفرع الاخر في خليه التحويل في الفرع الثاني شكل اليوزرفورم يوجد قائمه منسدله اختار منها اسم الفرع المحول منه وقائمه اخري اختار منها اسم الفرع المحول اليه ومكان لوضع الكميه ومكان للتاريخ كود ترحيل شكرا جزيلا مبيعات الفرع.rar
أيهاب ممدوح قام بنشر أغسطس 3, 2011 الكاتب قام بنشر أغسطس 3, 2011 ارجو الرد يا خبراء المنتدي الاخ ابو احمد والاخ الحسامي
أيهاب ممدوح قام بنشر أغسطس 3, 2011 الكاتب قام بنشر أغسطس 3, 2011 يوجد شيتين كل شيت يخص فرع من الفروع اريد يوزرفورم يكون اسمه التحويلات بين الفروع وظيفته تكون علي النحو التالي يقوم باضافه التحويل الي الفرع الاول في خليه االاضافه للصنف المراد التحويل اليه ويقوم ايضا بتحويل الكميه المحوله من الفرع الاخر في خليه التحويل في الفرع الثاني شكل اليوزرفورم يوجد قائمه منسدله اختار منها اسم الفرع المحول منه وقائمه اخري اختار منها اسم الفرع المحول اليه ومكان لوضع الكميه ومكان للتاريخ كود ترحيل شكرا جزيلا
أيهاب ممدوح قام بنشر أغسطس 8, 2011 الكاتب قام بنشر أغسطس 8, 2011 كل عام وانتم بخير حتي الان لا احد من مجيب ارجوا المساعده
أيهاب ممدوح قام بنشر أغسطس 9, 2011 الكاتب قام بنشر أغسطس 9, 2011 الموضوع هو : بوزرفورم للتحويل بين الفروع شرح الموضوع لدينا عده فروع في المؤسسه وهم علي سبيل المثال مصر الكويت ليبيا سوريا المغرب السعوديه عند عمليه التحويل بينهم نقوم بادراج الكميه المضافه الي الفرع المحول اليه في يوم التحويل لكي تضاف الي الكميه اديه ونقوم ايضا بادراج الكميه المحوله الي الفرع المحول منه لكي تخصم من الكميه لديه في نفس اليوم التحويل وفي هذة العمليه عده خطوات وهي اولا تسجيل الكميه المضافه في الفرع المحوله اليه ثانيا التاكد من التاريخ التحويل ثالثا تسجيل الكميه المحوله في الفرع المحوله منه رابعا التاكيد علي التاريخ التحويل ويراعي انه نفس اليوم التحويل في الفرع الاخر وكما في سند التحويل لذلك اخذت افكر في الموضوع اختصار كل هذا الموضوع في شي واحد يقوم بعمل كل هذا مع بعضهما دون الاخلال باي شرط منهم لكن اسفا عجزت عن المتابعه وصممت اليوزرفورم ولكن ينقصها الاكواد اشكرا الجميع من حاول المساعده واتمني من يري الغموض في الطلب يسال في اي جزئيه يوجد الغموض لان الموضوع التحويل بالشكل البسيط نقص في فرع وزياده في فرع اخر في نفس اليوم اوجه الشكر للمنتدي العظيم وكل الخبراء والاساتذه العظماء ويوجد ملف مرفق يوجد بيه ملفات بيع الفروع الذي يوجد بداخل كل شيت بيع عمود للتحويل وعمود للاضافه في كل يوم اخوكم \ ايهاب مبيعات الفرع.rar
صلاح الصغير قام بنشر أبريل 29, 2014 قام بنشر أبريل 29, 2014 السلام عليكم و رحمة الله وبركاته ممكن شرح الكود الخاص باخفاء و اظهار اعمدة محددة حسب القائمة المنسدلة لامكانية تطبيقه على الملف الخاص بى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.