قطان قام بنشر ديسمبر 7, 2008 مشاركة قام بنشر ديسمبر 7, 2008 لو سمحت أخي aah_aah2008 قمت باتباع نصيحتك باكمال برنامجي بنفسي والسؤال عن كل خطوة تصعب علي والفكرة أن الصفحة التي نسختها من ملفك لإخفاء الأسطر أدت لأخطاء وهي : 1 - بمجرد ادراج أسطر جديدة فإن زر الإخفاء يفقد عمله ويصبح يخفي أسطرا غير المطلوبة أرجو التجريب 2- اريد ادراج دالة معينة مع كل سطر جديد 3- اختفت خاصية حذف السطر عند حذف الاسم أرجو الاطلاع على المرفق والسلام ختام _______1.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر ديسمبر 7, 2008 مشاركة قام بنشر ديسمبر 7, 2008 (معدل) السلام عليكم مشكلة الاخفاء يوجد سبب ما و اكيد لتعدبل ما و لكن لضيق الوقت لم اعرفه و لكن تم التعديل علي الوضع الحالي اما ما اخذ مني وقت فعلا هو طلبك الثاني بان الغاء الصف لا يعمل اخذ وقتا و في النهاية تم اكتشاف انك لم ترفق الفورم الذي يقوم بالالغاء المهم ارفقته و ارسلت الملف بعد التعديل تحياتي _______1.rar تم تعديل ديسمبر 7, 2008 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
قطان قام بنشر ديسمبر 7, 2008 الكاتب مشاركة قام بنشر ديسمبر 7, 2008 مشكور وجزاك الله كل خير بالفعل نسيت الفورم وبالنسبة للإخفاء تمام رائع بس لا تنسالي الدالة اللي بتجمع وتقسم على 10 والسلام ختام رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر ديسمبر 8, 2008 مشاركة قام بنشر ديسمبر 8, 2008 السلام عليكم اخي قطان و هذا الملف لما تطلبه لجمع الخلايا ارجو الرد لمعرفة النتيجة تحياتي _______last.rar رابط هذا التعليق شارك More sharing options...
قطان قام بنشر ديسمبر 9, 2008 الكاتب مشاركة قام بنشر ديسمبر 9, 2008 أخي العزيز هذا هو المطلوب بالضبط لكن رغم نسخ الأسطر الأربعة التي أضفتها لم تفلح محاولاتي بتطبيق العمل على الملف الأصلي Cells(Rows.Count, 15).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10" Cells(Rows.Count, 26).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10" Cells(Rows.Count, 37).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10" Cells(Rows.Count, 48).End(xlUp)(-1).Formula = "=SUM(RC[-10]:RC[-1])/10" فهل هناك شيء آخر أرجو التوضيح لأني أقوم بنقل العملية للملف الأصلي وهناك صعوبة وسؤال صغير مالفرق بين السطر الأسود والأخضر بالبرمجة؟ ومالفرق بين السطر العادي والسطر الذي يبتدأ بنقطة ؟ والسلام ختام رابط هذا التعليق شارك More sharing options...
قطان قام بنشر ديسمبر 9, 2008 الكاتب مشاركة قام بنشر ديسمبر 9, 2008 أوكي أخي aah_aah2008 تمام تمت العملية بنجاح مشكور بس لاتنسى السؤالين البسيطين في ميزان حسناتك ان شاء الله والسلام ختام رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر ديسمبر 15, 2008 مشاركة قام بنشر ديسمبر 15, 2008 السلام عليكم اخي السطر الاخضر هذا سطر يبدأ ب " ' " و هذع العلامة تعني وقف هذا السطر عن التنفيذ فعندما يعمل الكود يتم تخطي هذا السطر اما السطر الذي يبدأ بنقطه فقد يكون تكمله مختصره تخص سطر سابق فمثلا عندما يكون الكود كالتالي range("A5").select range("A5").clearcontents يمكننا القول with range("A5") .select .clearcontents رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.