كود يحول القيم الرقمية إلى قيم نصية في نفس خلية الإدخال

[أبوســـارة1973]

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

المطلوب : كود يقوم بتحويل القيم الرقم التي يتم إدخالها في خلية من خلايا نطاق محدد (time_1) أو ( time_2) أو (time_3 ) إلى قيم نصية في نفس الخلية التي تم إدخال القيمة الرقمية فيها ، استناداً على جدول البيانات الموجود في صفحة رقم 2 ( jad_1)

مثال : إدخال رقم 1 في خلية B9 تتحول إلى ( زيارة صفية ) في الخلية نفسها ( A1)

ودمتم في حفظ الله

أواجه مشكلة في رفع الملف المرفق

خطة أسبوعية.rar

تم تعديل نوفمبر 26, 2016 بواسطه أبوســـارة1973
خطأ إملائي

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

جرب هذا الماكرو

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim My_Rg As Range
Dim Target_Range As Range
Dim My_Val As String

Set My_Rg = Union(Range("time_1"), Range("time_2"), Range("time_3"))
Set Target_Range = Sheets("sheet2").Range("a1:b30")
On Error GoTo 1:
If Not Intersect(Target, My_Rg) Is Nothing And Target.Count = 1 _
 And IsNumeric(Target) Then
 Application.EnableEvents = False
   My_Val = Application.VLookup(Target, Target_Range, 2, 0)
   Target = My_Val
   End If
1:
Application.EnableEvents = True
   On Error GoTo 0
 End Sub

الحل مرفق

 

خطة أسبوعية salim.rar