إضافة حرف الي مجموعة خلايا

[هارلي]

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

صباح الخير ياشباب

عندي ورقة اكسيل قمت باحضار بياناتها من الاوتلوك وهي بيانات الموظفين في العمل لدي

البيانات هي اسم الموظف والايميل والرقم الوظيفي والتحويلة .

بعض الموظفين لديهم رقم وظيفي مكون من 4 خانات وبعظهم رقمه الوظيفي مكون من 5 خانات وجميعها ارقام . مطلوب مني ان اضيف اليها حرفين وصفر بالنسبة لمن لديه رقم وظيفي مكون من 5 خانات وصفرين مع الحرفين لمن لديه رقم وظيفي مكون من 4 خانات بحيث تكون جميع الارقام مكونة من 8 خانات بهذا التنسيق "dm000000" . اتمنى اني القى الاجابة عندكم .

ولكم جزيل الشكر

[ابومؤنس]

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

اذا يوجد لدنيا حالتين هما اما عدد الارقام في الخلية 4 خانات او 5 خانات فقط ,

قم بتسجيل ماكروا فارغ واضف الية الكود التالي :

Sub Addno()
 Dim A As String
  A = Len(ActiveCell.FormulaR1C1)
  If A = 4 Then
  ActiveCell.FormulaR1C1 = "dm00" & ActiveCell.FormulaR1C1
  ElseIf A = 5 Then ActiveCell.FormulaR1C1 = "dm0" & ActiveCell.FormulaR1C1
  End If
End Sub

ثم اجعل المؤشرعند الخلية التي بها الارقام , ثم قم بتشغيل الماكروا .

بالتوفيق ,,,,

[هارلي]

يعطيك العافية اخوي/ابومؤنس وشاكر لك ردك

لكن اذا ماعليك كلافة كيف اسوي الماكرو لاني جديد في الاكسل

[احمد صلاح الدين]

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

بعد إذن المشرف

يمكن ذلك بضغط مفتاحي (Alt+F11)

ثم اختار Module من قائمة Insert

ثم قم بنسخ الماكرو ولصقه في المساحة البيضاء ثم اضغط Run

[هارلي]

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

صباح الخير يا اخوان ويعطيكم الف عافية وشكرا على ردودكم الاكثر من رائعة والمفيدة جزاكم الله خيرا

بقي نقطة واحدة وهي ان الماكرو لم يعمل على المدخلات القديمة الا بتشغيله على كل خلية . فهل هناك طريقة لتشغليه على مجموعة خلايا دفعة واحدة .

ولكم جزيل الشكر

[محمد طاهر عرفه]

http://www.officena.net/ib/index.php?showtopic=3138&st=0&