الكتابة في نطاق من الخلايا دفعة واحدة بواسطة كود

**ماجدجلال** · سبتمبر 12, 2012

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

في الملف المرفق كود مكون من سطران يقوم بالكتابة في نطاق من الخلايا ابتدا من الخلية النشطة ,

ارغب في اختصار الكود الي سطر واحد وخصوصا انني اريد ان يتم الكتابة في النطاق دون تحديد هذا النطاق اي الاستغناء عن الكلمة select

طبع اقصد بالنطاق هو الخلايا ابتدا من الخلية النشط وحتي 8 خلايا اسفل منها مباشرا

ارجو منكم المساعدة وشكرا لكم

**طارق محمود** · سبتمبر 12, 2012

السلام عليكم

ActiveCell.Range("A1:A8").Value = "بسم الله"

**ماجدجلال** · سبتمبر 12, 2012

ماشاء الله تبارك الله

شكرا جزيلا استاذ طارق

**ماجدجلال** · سبتمبر 12, 2012

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

Cells(4, ActiveCell.Column) = ActiveCell.Row

Cells(4, ActiveCell.Column).Range("B1") = ActiveCell.Row

هل من الممكن اختصار السطران السابقان في سطر واحد

هذا الكود يقوم بكتابة رقم الصف النشط في الخلية الرابعة من نفس العمود النشط وكذلك الخلية التي تجاورها من جهة اليسار

**طارق محمود** · سبتمبر 12, 2012

Cells(4, ActiveCell.Column).Range("A1:B1") = ActiveCell.Row

**ماجدجلال** · سبتمبر 12, 2012

شكرا ياساتاذ طارق

الف شكر

الردود الموصى بها