سؤال(( استخدام for next بدلا من for each))

[نور الرحمة]

السلام عليكم ورحمة الله وبركاته

لو سمحتوا كنت عايزة استخدم for next بدلا من for each

فى كود لعرض نصوص كل التعليقات فى الجدول الفعال

الكود هو:-

sub noor()

For Each cm In ActiveSheet.Comments

MsgBox cm.Text

Next cm

end sub

وجزاكم الله كل خير

تم تعديل أبريل 17, 2010 بواسطه نور الرحمة

[أبوعبد الله]

الأخت الفاضلة

إذا كان الهدف من الكود هو رسائل بقراءة كل التعليقات في نطاق محدد ( مختار) سواء كان جدول أو خلافه فبالمرفق فكرة تقوم باللازم فقط حددي النطاق المطلوب قراءة التعليقات الموجودة بخلاياه واضغطي مفتاح تشغيل الكود وسيقوم بعرض رسائل متتالية بكل التعليقات الموجودة بالخلايا ما حددتيه من نطاق .

أرجو أن يفي هذا بالغرض .

تحياتي

أبو عبدالله

إقراء التعليقات بخلايا النطاق المختار.rar

[الجزيرة]

رائع جداً اخي أبو عبدالله

وعندي استفسار :

هل يمكن قراءة رسائل التحقق من الصحة بنفس الطريقة أو بطريقة أخرى علماً أنها في عمود واحد ؟

[نور الرحمة]

جزاك الله كل خير

استاذ أبو عبد الله

[أبوعبد الله]

الأخت الفاضلة / نور الرحمة

أشكرك على ردك ولكي بالمثل من الدعاء ، وهذه إضافة بالكود ربما تكون مفيدة يتم بها تلوين الخلية التي بها تعليق قبل إظهار رسالة بمحتواها ثم إعادة إلغاء اللون بعد إظهار الرسالة .

تحياتي

أبو عبدالله

لون ثم إقراء التعليقات بخلايا النطاق المختار.rar