وعليكم السلام أخي العزيز علي
كما أخبرتك بدلاً من إظهار مربع حواري للمستخدم لمعرفة الصفوف المراد التعامل معها ومربع آخر لمعرفة ارتفاع الصفوف المطلوبة (هذا في وجهة نظري غير مرغوب فيه ومزعج بعض الشيء) ..
يمكن استخدام خلية كمرجع للمعطيات المطلوبة ..
مثال لكي يتضح المقال ::
نفترض أن الخلية K1 ستضع فيها المعطيات ، قبل وضع المعطيات حول الخلية لتنسيق نص ، ثم ضع فيها المعطيات بهذا الشكل
CODE
1:50:19<br />
حيث 1 هو رقم أول صف ، و 50 هو رقم آخر صف ، و 19 هو ارتفاع الصف ثم استخدم الكود التالي (حيث يمكنك بسهولة تغيير محتوى الخلية وتنفيذ الكود مرة أخرى وهكذا )
CODE
Sub Test()
Dim x
x = Split(Range("K1").Value, ":")
Rows(x(0) & ":" & x(1)).RowHeight = x(2)
End Sub