ماجدجلال قام بنشر سبتمبر 12, 2012 قام بنشر سبتمبر 12, 2012 السلام عليكم ورحمة الله في الملف المرفق كود مكون من سطران يقوم بالكتابة في نطاق من الخلايا ابتدا من الخلية النشطة , ارغب في اختصار الكود الي سطر واحد وخصوصا انني اريد ان يتم الكتابة في النطاق دون تحديد هذا النطاق اي الاستغناء عن الكلمة select طبع اقصد بالنطاق هو الخلايا ابتدا من الخلية النشط وحتي 8 خلايا اسفل منها مباشرا ارجو منكم المساعدة وشكرا لكم 400.zip
طارق محمود قام بنشر سبتمبر 12, 2012 قام بنشر سبتمبر 12, 2012 السلام عليكم ActiveCell.Range("A1:A8").Value = "بسم الله"
ماجدجلال قام بنشر سبتمبر 12, 2012 الكاتب قام بنشر سبتمبر 12, 2012 ماشاء الله تبارك الله شكرا جزيلا استاذ طارق
ماجدجلال قام بنشر سبتمبر 12, 2012 الكاتب قام بنشر سبتمبر 12, 2012 السلام عليكم ورحمة الله Cells(4, ActiveCell.Column) = ActiveCell.Row Cells(4, ActiveCell.Column).Range("B1") = ActiveCell.Row هل من الممكن اختصار السطران السابقان في سطر واحد هذا الكود يقوم بكتابة رقم الصف النشط في الخلية الرابعة من نفس العمود النشط وكذلك الخلية التي تجاورها من جهة اليسار
طارق محمود قام بنشر سبتمبر 12, 2012 قام بنشر سبتمبر 12, 2012 Cells(4, ActiveCell.Column).Range("A1:B1") = ActiveCell.Row
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.