دالة أو كود لتكييف عدد الاسطر مع الخلية

[حراثي تواتي]

السلام عليكم ورحمة الله وبركاته

احتاج دالة او كود يقوم بتقسيم السطر ويكيفه حسب حجم الخلية في الشيت كما هو موضح في الصورة

تواتي 20.xlsx

[الرائد77]

تفضل

تواتي 20.xlsm

[سليم حاصبيا]

هذا الكود البسيط (استبدل الرقم 3 بالرقم الي تريده)

Sub Wrap_col()
Columns(3).AutoFit
End Sub

 

[حراثي تواتي]

لكما مني كل التقدير والشكر والعرفان، بعدد قطرات المطر وعدد من حج واعتمر.

إن قلت شكراً فشكري لن يوفيكما حقّكما، حقاً فجزاكما الله خير الجزاء

[سليم حاصبيا]

يمكنك استعمال هذا الماكرو ايضاُ (اذا كان الأمر يتعلق بخلية واحدة      الماكرو الأول

 او عدة خلايا(نطاق)    الماكرو الثاني

Sub wrap_cel()
Range("d1").WrapText = True
End Sub
'+++++++++++++++++++++++++++++++++
Sub wrap_range()
Range("A1:C410").WrapText = True
End Sub

 

[عبدالفتاح في بي اكسيل]

بعد  اذن  الاساتذة    لا داعي  للكود   كل  ماعليك  هو  الضغط  على  هذين  الزرين alt+enter 

[حراثي تواتي]

البيانات ترسل من الفورم الى الخلية في الشيت لذلك اظن ان طريقة alt+enter لا تنفع وشكرا لك