logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil شركات تصميم تطبيقات الجوال في مصر – تك سوفت للحلول الذكية اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
14-12-2020 03:56 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 309
رصيد العضو : 31
الجنس :
تاريخ الميلاد : 30-10-1982
الدعوات : 1
قوة السمعة : 991
الاعجاب : 14

السلام عليكم ورحمة الله وبركاته
اريد طريقة لعمل يوزرفورم يعطي رسالة بتحديد المدى بالنسبة للصفوف بمعنى الصف من إلى ثم بعد ذلك رسالة أخرى بتحديد الارتفاع المطلوب
​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
المشاركات : 10535
رصيد العضو : 4
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36776
الاعجاب : 193
وعليكم السلام أخي العزيز علي
كما أخبرتك بدلاً من إظهار مربع حواري للمستخدم لمعرفة الصفوف المراد التعامل معها ومربع آخر لمعرفة ارتفاع الصفوف المطلوبة (هذا في وجهة نظري غير مرغوب فيه ومزعج بعض الشيء) ..
يمكن استخدام خلية كمرجع للمعطيات المطلوبة ..
مثال لكي يتضح المقال ::
نفترض أن الخلية 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

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






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









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

الساعة الآن 11:06 AM