أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
كريم نظيم مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





كود تحديد ارتفاع الصفوف عن طريق اليوزرفورم

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب السلام عليكم ورحمة الله وبركاته اريد طريقة لعمل يوزرفورم يعطي رس ..


موضوع مغلق


14-12-2020 03:56 مساء
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
السلام عليكم ورحمة الله وبركاته
اريد طريقة لعمل يوزرفورم يعطي رسالة بتحديد المدى بالنسبة للصفوف بمعنى الصف من إلى ثم بعد ذلك رسالة أخرى بتحديد الارتفاع المطلوب
​Sub Ali()
    Rows("1:50").Select
    Selection.RowHeight = 19
End Sub
 
 
 
  ALI.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(14.306) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي العزيز علي
كما أخبرتك بدلاً من إظهار مربع حواري للمستخدم لمعرفة الصفوف المراد التعامل معها ومربع آخر لمعرفة ارتفاع الصفوف المطلوبة (هذا في وجهة نظري غير مرغوب فيه ومزعج بعض الشيء) ..
يمكن استخدام خلية كمرجع للمعطيات المطلوبة ..
مثال لكي يتضح المقال ::
نفترض أن الخلية K1 ستضع فيها المعطيات ، قبل وضع المعطيات حول الخلية لتنسيق نص ، ثم ضع فيها المعطيات بهذا الشكل
1:50:19

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




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

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



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


 










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

الساعة الآن 11:37 صباحا