تحويل تنسيق خلية الى نص

[nash60]

بسم الله الرحمن الرحيم

 

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

 

الرجاء المساعدة في تحويل خلية معينة بها رقم الى نص ولكن بالكود مرفق ملف للتعديل عليه

وشكرا لكم مقدما

 

 

تنسيق.rar

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

 اكتب هذا الكود 

Sub form_to_text()
    Range("H4").Select
    Selection.NumberFormat = "@"
End Sub

[nash60]

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

[nash60]

لطفا اخي الكريم  وباقي الاخوة الكرام وضعت مثال يوضح المطلوب بشكل مباشر ليسهل الحل

تنسيق.rar

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

 اخي الكتب هذا المود في الصفحة الصفحة التي تختارها (المناسبة) بدون ان تدرج module

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A2:H2")) Is Nothing Then
nor
Target.Offset(0, 1).Select
Else


  Range("A2:H2").Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic

    Selection.NumberFormat = "General"

Target.Offset(1, 0).Select
End With
End If
Application.ScreenUpdating = True
End Sub

Sub nor()

    Range("A2:H2").Select
    Selection.NumberFormat = "@"
    With Selection.Interior
        .Color = 65535
       .PatternTintAndShade = 0
    End With

End Sub