كود لتحكم في حجم خلية محددة من sheet

[بلال منذر]

السلام عليكم

محتاج كود لتحكم في حجم خلية محددة من ورقة وليس كل الورقة.

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

7 دقائق مضت, bilouinfo said:

السلام عليكم

محتاج كود لتحكم في حجم خلية محددة من ورقة وليس كل الورقة.

لا يمكن التحكم بحجم خلية(او عدة خلايا) يمكن التحكم فقط بارتفاع الصف و عرض العامود

[أبو قاسم]

السلام عليكم 

محتاج كود للتحكم بعرض الصف حسب الكتابة إذا زادت الكتابة عن حجم الخلية  تجعل الخلية متعددة الصفوف وتتسع إلى أسفل ولكن عندما تكون الكتابة قليلة يعود الصف إلى حالة الطببعية

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

اذا اردت الكتابة في سطر ثاني او ثالث الح... في خلية واحدة 

عتد نهاية السطر اضغط Alt+Entr و تابع الكتابة ,و نفس الشيء عند كتاية السطر الثالث

لا تنس ان تحدد الخلية و تضغط على Wrap Text من التيويب Home

[Ali Mohamed Ali]

بعد اذن استاذى سليم

هذا الكود من أجل أستاذى ابو قاسم يوضع فى حدث الصفحة وذلك لتوسيع حجم العمود كلما كثرت البيانات به

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns(Target.Column).AutoFit
End Sub

والكود الأخر فى حدث الصفحة لتعريض الخلية بما يوازى البيانات بها حتى يمكن الكتابة فى الخلية الواحدة على أكثر من سطر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.WrapText = True
End Sub

بارك الله فيكم جميعا

تغيير حجم العمود والخلية بما يناسب الكتابة بهما.xlsm

تم تعديل أغسطس 24, 2018 بواسطه ali mohamed ali