logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
michel Sadek ali mohamed ali-- لا تميز خلال هذه الفترة Yasser Elaraby لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
14-12-2020 03:56 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 274
الجنس :
تاريخ الميلاد : 30-10-1982
الدعوات : 1
قوة السمعة : 987
الاعجاب : 12
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
السلام عليكم ورحمة الله وبركاته
اريد طريقة لعمل يوزرفورم يعطي رسالة بتحديد المدى بالنسبة للصفوف بمعنى الصف من إلى ثم بعد ذلك رسالة أخرى بتحديد الارتفاع المطلوب
​Sub Ali()
Rows("1:50").Select
Selection.RowHeight = 19
End Sub
 
 
  ALI.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(14.306) KB





look/images/icons/i1.gif كود تحديد ارتفاع الصفوف عن طريق اليوزرفورم
  15-12-2020 01:17 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
وعليكم السلام أخي العزيز علي
كما أخبرتك بدلاً من إظهار مربع حواري للمستخدم لمعرفة الصفوف المراد التعامل معها ومربع آخر لمعرفة ارتفاع الصفوف المطلوبة (هذا في وجهة نظري غير مرغوب فيه ومزعج بعض الشيء) ..
يمكن استخدام خلية كمرجع للمعطيات المطلوبة ..
مثال لكي يتضح المقال ::
نفترض أن الخلية K1 ستضع فيها المعطيات ، قبل وضع المعطيات حول الخلية لتنسيق نص ، ثم ضع فيها المعطيات بهذا الشكل
CODE
1:50:19

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

أثارت هذه المشاركة إعجاب: ali mohamed ali، علي بطيخ سالم، hassona229، abouelhassan، ashraf_hertlion،






الكلمات الدلالية
ارتفاع ، الصفوف ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 12:25 PM