نزار سليمان عيد قام بنشر نوفمبر 6, 2006 قام بنشر نوفمبر 6, 2006 الاخ ابو حسين السلام عليكمورحمة الله بخصوص نفس الموضوع لو اردت ان ابداء من صف محدد وليكن الصف الثاني كيف اعدل الكود ولك جزيل الشكر
علي السحيب قام بنشر نوفمبر 6, 2006 قام بنشر نوفمبر 6, 2006 عمل الكود هل هو يقوم بنفس الفكرة من خلال ضغط زر الماوس الأيمن ثم اختيار "تنسيق خلايا" ، ثم اختيار التبويب " نقش " بحيث يتم ذلك نيابة عن المستخدم بالكود ؟ نعم نفس الفكرة تقريباً .. يقوم الكود أولاً بتحديد ما إذا كان رقم الصف فردياً أم زوجياً .. ثم يختار له اللون الذي تم تحديده داخل الكود .. وهذا يشبه إلى حد كبير التنسيق الشرطي ولكن الطريقة هنا تختلف .. مع ملاحظة أنه لا يتم تحديد أي شروط داخل التنسيق الشرطي الموجود في القائمة تنسيق. ثم مالفرق بين تلوين الكود وبين التلوين اليدوي من " تنسيق خلايا " ؟ ليس هناك فرق .. هذا يدوي وهذا عن طريق الكود .. ولكن الكود يعمل فقط عن تحقق الشرط الذي تم تحديده بداخله. وجدت طريقة تقوم بالتلوين وبوظائف ربما تكون أكثر شمولية من الكود ومن "تنسيق خلايا " هذه الطريقة يمكن تطبيقها من خلال تحديد الصفوف المراد تلوينها ، ثم من قائمة " تحرير " اختر "بحث" أوضغط ctrl+f ثم اختر تبويب " استبدال " ثم اختر الزر " تنسيق " أو إضغط على السهم الصغير الموجود في حافة هذا الزر وسترى خيارين " تنسيق " و " اختيار التنسيق من الخلية " وهناك خيارات يمكن تطبيقها على أي جزء من المستند في لحظات دون تعب وعناء . بقي أن اسأل هل الكود مصمم على الإستفادة من هذه الطريقة ؟ بحيث يبحث عن أي تنسيق تلقائي ويستبدله بتنسيق ملون ؟ لا الكود ليس له علاقة بهذه الطريقة. والطريقة التي ذكرت هي نفس فكرة إستخدام خاصية إستبدال الكلمات بكلمات أخرى .. ولكن هنا يتم إستبدال التنسيق وليس الكلمات .. مثلاً .. لو كان لديك عدة خلايا لون نقشها أحمر .. وتود إستبدال هذا اللون باللون الأصفر يمكنك اللجوء إلى هذه الطريقة .. فهي طريقة سريعة لإستبدال التنسيق الغير مرغوب فيه بتنسيق آخر. مع ملاحظة أنه يمكنك تحديد التنسيق القديم والجديد من نفس ورقة العمل أو من خلال إظهار مربع حوار التنسيق من نفس الخيار الذي أشرت إليه.
علي السحيب قام بنشر نوفمبر 6, 2006 قام بنشر نوفمبر 6, 2006 بخصوص نفس الموضوع لو اردت ان ابداء من صف محدد وليكن الصف الثاني كيف اعدل الكود في الكود الخاص بتلوين مجال معين من السطر عن طريق الكود .. قم بإستبدال السطر الرابع من الكود بالسطر التالي: If Target <> "" And TC <= 7 And TR > 1 And Cells(TR, 1).Row Mod 2 = 0 Then
halwim قام بنشر نوفمبر 6, 2006 الكاتب قام بنشر نوفمبر 6, 2006 ألف شكر ياأستاذ على التعليقات الواضحة .
نزار سليمان عيد قام بنشر نوفمبر 13, 2006 قام بنشر نوفمبر 13, 2006 الاخ ابو حسين عند حذف السطورمرة واحدة يتم اظهار رسالة في الماكرو كيف يمكن تعديل الكود كذلك يتم التلوين لاول سطر ولكن لايتم عمل تسطير له ممكن التعديل ولك جزيل الشكر
علي السحيب قام بنشر نوفمبر 14, 2006 قام بنشر نوفمبر 14, 2006 تم عمل التعديل المطلوب .. شاهد المرفق، ___________________________________________.rar
خالد فتحي عبد الفتاح قام بنشر نوفمبر 14, 2006 قام بنشر نوفمبر 14, 2006 اخي الغالي علي حسين السحيب لقد جعلت من الأكسل شجرة وارفة الظلال وثمارها دانية لكل من أراد أن ينهل منها انت رائع بارك الله فيك خالد فتحي عبد الفتاح
abuoumar قام بنشر نوفمبر 17, 2006 قام بنشر نوفمبر 17, 2006 اخي الغالي علي حسين السحيب جزاءك الله خير الجزاء سؤال أين أضع الكود ؟؟؟
abuoumar قام بنشر نوفمبر 17, 2006 قام بنشر نوفمبر 17, 2006 اخي الغالي علي حسين السحيب جزاءك الله خير الجزاء سؤال أين أضع الكود ؟؟؟
علي السحيب قام بنشر نوفمبر 19, 2006 قام بنشر نوفمبر 19, 2006 تقوم بوضع الكود داخل الموديول الخاص بالصفحة المعينة. بعبارة أخرى .. أنسخ الكود ثم قف على الصفحة المعنية ثم إضغط Alt + F11 .. ثم ألصق الكود.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.