الرجاء المساعدة في شرح ما في الملف المرفق

[دكرى2000]

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

الاخوة الكرام

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

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

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

نسخة من خدمة شؤون الموظفين.xlsx

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

قبل كل شيء   ازالة الحلايا المدمجة من الملف

[دكرى2000]

الاخ  سليم

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

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

اختكم /  دكرى2000

[ابو ايسل]

السلام عليكم هو شيت بسيط لا يحتوي الا على معادلتين تم ارفاق الملف مدعوم بشرح واتمني ان يكون الشرح وافي

 

نسخة من خدمة شؤون الموظفين.xlsx

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

جرب هذا الكود( بدون معادلات)

Option Explicit
Dim My_formula$
Dim Ar(), i%
Dim Ar1()

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
 If Target.Address = "$A$4" _
   And Target <> "" And Target.Count = 1 Then
   vl_formula
 End If
 Application.EnableEvents = True
End Sub
'++++++++++++++++++++++++++++++++++++++
Sub vl_formula()
My_formula = "=IFERROR(VLOOKUP(A4,id!A4:P500,2,0),"""")"
 Ar = Array(2, 3, 12, 13, 15, 8, 14, _
          6, 5, 4, 7, 10, 9, 11)
 Ar1 = Array("C5", "G5", "C7", "E7", "G7", _
           "C9", "E9", "G9", "C11", "E11", "G11", _
           "C13", "E13", "C15")
           
For i = LBound(Ar) To UBound(Ar)
  Range(Ar1(i)) = Evaluate(Replace(My_formula, 2, Ar(i)))
Next
End Sub

الملف مرفق

Zoukra.xlsm

[دكرى2000]

الاخ  / ابوايسل

الاخ / سليم

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

بارك الله فيكم ورحم الله والديكم وجعلها الله زيادة في ميزان حسناتكم ولكم جزيل الشكر على الاهتمام والردود الطيبة

الاعجاب والشكر لكم جميعا في هذا المنتدى الطيب المفيد مشكورين جميعا وتقبلوا فائق الاحترام والامتنان

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

اختكم /  دكرى2000