تغيير حجم الخط في خلية لا يظهر بها النص كامل

[nouragh]

مرحبا، في المرفقات طلبي

 

** لدي خلية محدد ارتفاعها و عرضها، و لا يمكن للمستخدم تغيير حجم الخلية.

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

 

و شكراً مسبقاً.

test.rar

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

جرب هذا الماكرو و اعطني التنيجة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

If Target.Columns = "" And Target.Value = "" Then Target.ColumnWidth = 8: Exit Sub
 Target.EntireRow.AutoFit
 Target.EntireColumn.AutoFit
 
 c = Target.ColumnWidth
 r = Target.RowHeight
 
If r < 29.25 Then r = 29.25
If c < 8 Then c = 8

  Target.ColumnWidth = c
  Target.RowHeight = r
  
End Sub

 

[nouragh]

شكراً لإلك، لا ما زبط، تغير ارتفاع الخلية مش حجم الخط

أنا بدي حجم الخط اللي يتغير حسب ارتفاع الخلية،،،،، ما بدي أي تغيير يصير على حجم الخلية

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

اذن استعمل هذا الماكرو

Sub salim()
With Range("A1:z100") ' تستطيع التعيير
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.ShrinkToFit = True
End With
End Sub

 

[nouragh]

المشكلة إنه عندي merged cell و معموللها wrap text

[الـعيدروس]

السلام عليكم

اتبع الشرح في المرفق

شرح-7.rar

[nouragh]

للأسف مش هيك بدي