aliyaldin قام بنشر مارس 11, 2009 قام بنشر مارس 11, 2009 السلام عليكم ورحمة الله وبركاتة الأخوة الأفاضل / أساتذة هذا المنتدى الجميل الذى أمدنا وأفادنا بالكثير من الخبرة فى مجال الإكسل أرجو أن تساعدونى فى حل هذه المشكلة فى الملف المرفق ولكم جزيل الشكر وفقكم الله ورعاكم .
نزار سليمان عيد قام بنشر مارس 11, 2009 قام بنشر مارس 11, 2009 اخي الكريم السلام عليكم انظر للمرفق وهو يقوم باخفاء الصفوف التي تساوي صفر بالعمود F مع مراعاة تكبير المدى بالماكرو بالفقرة ادناه على حسب طلبك فهنا يتم الاخفاء لعشرة سطور واذا اردت ان تزيد غير رقم عشرة ادناه للمدى الذي لديك For A = 1 To 10 مع الشكر ابو خالد ______________________________________F.rar
aliyaldin قام بنشر مارس 12, 2009 الكاتب قام بنشر مارس 12, 2009 أخى لك جزيل الشكر على هذا العمل لكنه أخى لا يفى بالغرض حيث أنه لايقوم بإعادة الترقيم من رقم 1 مرة أخرة وهل يمكن إضافة زر أخر لإرجاع الصفوف مرة أخرى ويرجى أخى أن تشرح لى كيفية عمل زر الإخفاء والإرجاع بالتفصيل حيث أننى حديث العهد فى عمل أزرار بالماكرو وشرح كيف يمكن تشغيل الماكرو عند فتح الملف تلقائياً ولك منى أخى جزيل الشكر والآحترام وفقك الله لما فيه الخير للمنتدى وللأعضاء وجعله الله فى ميزان حساناتك أرجو الرد سريع للأهمية وشكراً لا إله إلا الله محمد رسول الله
ابو اسامة العينبوسي قام بنشر مارس 12, 2009 قام بنشر مارس 12, 2009 (معدل) السلام عليكم عساه المطلوب Sub hidde() x = 1 For i = 1 To 10 If Cells(i, 2) = 0 Then Cells(i, 2).EntireRow.Hidden = True Else Cells(i, 1) = x x = x + 1 End If Next i End Sub hide.rar تم تعديل مارس 12, 2009 بواسطه ابو اسامة العينبوسي
aliyaldin قام بنشر مارس 12, 2009 الكاتب قام بنشر مارس 12, 2009 السلام عليكم أخى فى الله شكراً لتعاونك ولكنه ليس المطلوب أرجو منك قراءة الرد السابق وسوف تفهم منه ما أعنيه ولك جزيل الشكر النصر لفلسطين والقدس للعرب أجمعين بتعاونهم ينصرنا الله على المغتصبين لا إله إلا الله محمد رسول الله
ابو اسامة العينبوسي قام بنشر مارس 12, 2009 قام بنشر مارس 12, 2009 (معدل) السلام عليكم بالنسبه لتشغيل الكود عند فتح الملف كود الاخفاء Private Sub Workbook_Open() cell hidde End Sub كود الاظهار Private Sub Workbook_Open() cell unhidde End Sub وهنا الكود كامل Sub hidde() x = 1 For i = 1 To Cells(65000, 2).End(xlUp).Row If Cells(i, 2) = 0 Then Cells(i, 2).EntireRow.Hidden = True Else Cells(i, 1) = x x = x + 1 End If Next i End Sub Sub unhidde() For i = 1 To Cells(65000, 2).End(xlUp).Row If Cells(i, 2).EntireRow.Hidden = True Then Cells(i, 2).EntireRow.Hidden = False End If Next i For i = 1 To Cells(65000, 2).End(xlUp).Row Cells(i, 1) = i Next i End Sub hide2.rar تم تعديل مارس 12, 2009 بواسطه ابو اسامة العينبوسي
aliyaldin قام بنشر مارس 12, 2009 الكاتب قام بنشر مارس 12, 2009 السلام عليكم ورحمة الله وبركاته أخى الفاضل ابو اسامة هذا الكود يفى بالغرض المطلوب ولكنى لى تحفظ هو كى أقوم بإنشاء الزر ذاته فى الملف المرفوع على المنتدى الذى قمت بإرسالة فى أو ل موضوع ولك جزيل الشكر عذراً حيث اننى حديث العهد بعمل مثل هذا الزر وشكراً
ابو اسامة العينبوسي قام بنشر مارس 12, 2009 قام بنشر مارس 12, 2009 السلام عليكم ممكن ان ترسم شكل من شريط ادوات الرسم و من ثم كبسه باليمين على الشكل اختر > تعيين ماكرو
aliyaldin قام بنشر مارس 12, 2009 الكاتب قام بنشر مارس 12, 2009 السلام عليكم أخى الفاضل لقد قمت بتنفيذ الكود على الملف المرفق والذى عمل هو كود الإظهار أما كود الإخفاء فلا يعمل الرجاء مساعدتى فى ضبط الكودى حيث اننى عديم الخبرة بهذه الأكواد تماماً وأرجو من الله أن أستفيد من هذا المنتدى الرائع أخى لى طلب إضافة صغير وهو أنى أريد عند ظهور ر عدد فة ورقة رقم (1 ) أكبر من الصفر يظهر الصف تلقائياً دون الضغط على زر الإظهار والملف مرفق برجاء إدخال هذه الأكواد عليه ولك منى جزيل الشكر والإحترام أرجو الرد سريع للأهمية حيث أن مرتبط بعملى وشكراً أدعو من الله عز وجل أن يثبت خطاكم ويوفققكم أخوانى لما فيه الخير لهذا المنتدى لا إله إلا ألله محمد رسول الله
aliyaldin قام بنشر مارس 12, 2009 الكاتب قام بنشر مارس 12, 2009 السلام عليكم أخى الفاضل لقد قمت بتنفيذ الكود على الملف المرفق والذى عمل هو كود الإظهار أما كود الإخفاء فلا يعمل الرجاء مساعدتى فى ضبط الكودى حيث اننى عديم الخبرة بهذه الأكواد تماماً وأرجو من الله أن أستفيد من هذا المنتدى الرائع أخى لى طلب إضافة صغير وهو أنى أريد عند ظهور ر عدد فة ورقة رقم (1 ) أكبر من الصفر يظهر الصف تلقائياً دون الضغط على زر الإظهار والملف مرفق برجاء إدخال هذه الأكواد عليه ولك منى جزيل الشكر والإحترام أرجو الرد سريع للأهمية حيث أن مرتبط بعملى وشكراً أدعو من الله عز وجل أن يثبت خطاكم ويوفققكم أخوانى لما فيه الخير لهذا المنتدى لا إله إلا ألله محمد رسول الله
aliyaldin قام بنشر مارس 15, 2009 الكاتب قام بنشر مارس 15, 2009 السلام عليكم ورحمة الله وبركاته أخوانى الأفاضل لماذا لا أجد رداً هل لا يوجد حل لهذه المشكلة أرجو الرد للأهمية حيث أن هذا الموضوع متعلق بعملى وأنا متوقف عند هذه المشكلة إخوانى لكم جزيل الشكر والاحترام ووفقكم الله ورعاكم وجعلكم عوناً للجميع لا إله إلا الله محمد رسول الله
ابو اسامة العينبوسي قام بنشر مارس 15, 2009 قام بنشر مارس 15, 2009 السلام عليكم ظهور ر عدد فة ورقة رقم (1 ) أكبر اخى انت كتب هذا هل تستطيع ان تشرح لي فة ما ذا تقصد بها
aliyaldin قام بنشر مارس 15, 2009 الكاتب قام بنشر مارس 15, 2009 أخى أقصد فى أنا أسف على هذا الخطاء ولك جزيل الشكر لإهتمامك بالموضوع وأسف لإنى لم أرى هذا الخطاء وشكراً لا إله إلا الله محمد رسول الله
aliyaldin قام بنشر مارس 15, 2009 الكاتب قام بنشر مارس 15, 2009 السلام عليكم أخى أقصد ظهور ر عدد فى ورقة عمل رقم (1 ) أكبر من الصفر يظهر الصف تلقائياً دون الضغط على زر الإظهار أنا أسف على هذا الخطاء ولك جزيل الشكر لإهتمامك بالموضوع وأسف لإنى لم أرى هذا الخطاء اخى الملف بالمرفقات أرجو التنفيذ على نفس الملف ولك منى جزيل الشكر لا إله إلا الله محمد رسول الله
aliyaldin قام بنشر مارس 15, 2009 الكاتب قام بنشر مارس 15, 2009 السلام عليكم أخى الفاضل لقد قمت بتنفيذ الكود على الملف المرفق والذى عمل هو كود الإظهار أما كود الإخفاء فلا يعمل الرجاء مساعدتى فى ضبط الكود حيث اننى عديم الخبرة بهذه الأكواد تماماً وأرجو من الله أن أستفيد من هذا المنتدى الرائع أخى لى طلب إضافة صغير وهو أنى أريد عند ظهور ر عدد فى ورقة عمل رقم (1) أكبر من الصفر يظهر الصف تلقائياً دون الضغط على زر الإظهار والملف مرفق برجاء إدخال هذه الأكواد عليه ولك منى جزيل الشكر والإحترام وأسف لإنى لم أرى هذا الخطاء الملف بالمرفقات أرجو تنفيذ الكود على نفس الملف ولك جزيل الشكر لإهتمامك بالموضوع أدعو من الله عز وجل أن يثبت خطاكم ويوفققكم أخوانى لما فيه الخير لهذا المنتدى لا إله إلا ألله محمد رسول الله
ابو اسامة العينبوسي قام بنشر مارس 15, 2009 قام بنشر مارس 15, 2009 السلام عليكم كيف ستقوم بالادخال في صف مخفى(حسب فهمى لطرحك)؟؟
ابو اسامة العينبوسي قام بنشر مارس 15, 2009 قام بنشر مارس 15, 2009 (معدل) السلام عليكم الان الزرين يعملان (في ورقة4) مع تبديل لا خفاء الزرين Sub hidde() Worksheets(4).Shapes("Rectangle 1").Visible = False Worksheets(4).Shapes("omr").Visible = True x = 1 For i = 2 To Cells(65000, 2).End(xlUp).Row If Cells(i, 2) = 0 Then Cells(i, 2).EntireRow.Hidden = True Else Cells(i, 1) = x x = x + 1 End If Next i End Sub ------------------------------------------------------------------------------- Sub unhidde() Worksheets(4).Shapes("Rectangle 1").Visible = True Worksheets(4).Shapes("omr").Visible = False For i = 2 To Cells(65000, 2).End(xlUp).Row If Cells(i, 2).EntireRow.Hidden = True Then Cells(i, 2).EntireRow.Hidden = False Cells(i, 1) = i End If Next i For i = 2 To Cells(65000, 2).End(xlUp).Row Cells(i, 1) = i - 1 Next i End Sub ______________________________________F2.rar تم تعديل مارس 15, 2009 بواسطه ابو اسامة العينبوسي
aliyaldin قام بنشر مارس 15, 2009 الكاتب قام بنشر مارس 15, 2009 السلام عليكم ياأخى القيمة تضاف فى ورقة العمل رقم 2 فتظهر فى ورقة العمل رقم واحد أما بالنسبة لورقة العمل رقم 4 فهى التى يخفى بها الصف الذى تكون قيمته صفر وشكراً للإهتمام أرجو أن أكون قد وفق فى توصيل ما أريده لسيادتكم لا إله إلا الله محمد رسول الله
aliyaldin قام بنشر مارس 16, 2009 الكاتب قام بنشر مارس 16, 2009 السلام عليكم أخى الفاضل الكود السابق اوفى بالغرض ولكن ينقصه ما شرحته لسيادتكم فى الرد السابق حيث أريد أنه عند ضهور رقم أكبر من الصفر فى ورقة عمل 1 يظهر الصف تلقائياً فى ورقة عمل 4 دون الضغط على الزر مرفق الملف لعمل التعديل عليه وشكراً ولك أخى منى خالص الشكر والتقدير مع تمنياتى لك بدوام التوفيق وفقك الله ورعاك ومنحك الكثير من العلم والمعرفة لا إله إلا الله محمد رسول الله
احمدزمان قام بنشر مارس 16, 2009 قام بنشر مارس 16, 2009 السلام عليكم يتم استخدام نفس الكود الذي الوضعه الأستاذ ابو اسامة ولكن يتم وضعه في الحدث التلقائي للصفحة كما في المرفق 11________________________________________F2.rar
نزار سليمان عيد قام بنشر مارس 16, 2009 قام بنشر مارس 16, 2009 (معدل) السلام عليكم رائع اخي احمد جزاك الله خيرا اخي aliyaldin نفس الكود الذي وضعه اخي احمد تنسخه وتضعه بصفحة رقم 1 ليتم الاخفاء ايضا للسطور التي تساوي صفر في صفحة1 الشكر مجددا لاخي احمد والشكر موصول لاخي ابو اسامة ابو خالد تم تعديل مارس 16, 2009 بواسطه نزار سليمان عيد
aliyaldin قام بنشر مارس 16, 2009 الكاتب قام بنشر مارس 16, 2009 السلام عليكم أخى أين يكون مكان الحدث التلقائى للصفحة لاإله إلا الله محمد رسول الله
يحيى حسين قام بنشر مارس 16, 2009 قام بنشر مارس 16, 2009 كود رائع من استاذنا ابو اسامة جزاك الله كل خير و مداخلة جميلة من الاخ احمد يعقوب في اضافة لمسة جميلة على حدث الكود
احمدزمان قام بنشر مارس 16, 2009 قام بنشر مارس 16, 2009 السلام عليكم شكرا جزيلا استاذي الفاضل نزار لمروركم الكريم وتشجيعكم لنا اخي علي الدين الشرح على الرابط التالي فيديو و صور http://www.officena.net/ib/index.php?s=&am...st&p=125563 اخي juistice شكرا جزيلا لك على مرورك الكريم اخي الفاضل
aliyaldin قام بنشر مارس 17, 2009 الكاتب قام بنشر مارس 17, 2009 السلام عليكم أخى الفاضل أشكركم كثيراً على مساعدتكم لى ولى طلب أخير هو شرح كيف أقوم بنسخ الكود من صفحة العمل الموجود ة بالملف إلى ورقة عمل بملف أخر ورقم ورقة العمل 5 بدلاً من أربعة وفقكم الله ورعاكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.