كيف الحل لمشكلة عدم ظهور المحتوى في السطر الأول

[reda23dz]

السلام عليكم:

مشكلتي تتمثل في عدم ظهور محتوى الخلية في بداية السطر في شريط العنوان، حيث عند الضغط عليه يظهر المحتوى في الأسفل

exemple.rar

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

اليك هذا الماكرو لضبط المشكلة

Option Explicit

Sub give_real_value()
Application.ScreenUpdating = False
Dim cel As Range
For Each cel In Sheets("Feuil1").Range("a1").CurrentRegion
cel.Value = Left(cel.Value, 4)
Next
With Sheets("Feuil1").Range("a1").CurrentRegion
  .HorizontalAlignment = 3
  .VerticalAlignment = 3
 End With
 Application.ScreenUpdating = True
End Sub

 

[reda23dz]

بارك الله فيك أخي

لم يشتغل الكود

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

31 دقائق مضت, reda23dz said:

بارك الله فيك أخي

لم يشتغل الكود

الملف مرفق مع الكود

 

exemple salim.rar