هارلي قام بنشر مايو 12, 2004 قام بنشر مايو 12, 2004 السلام عليكم ورحمة الله وبركاته صباح الخير ياشباب عندي ورقة اكسيل قمت باحضار بياناتها من الاوتلوك وهي بيانات الموظفين في العمل لدي البيانات هي اسم الموظف والايميل والرقم الوظيفي والتحويلة . بعض الموظفين لديهم رقم وظيفي مكون من 4 خانات وبعظهم رقمه الوظيفي مكون من 5 خانات وجميعها ارقام . مطلوب مني ان اضيف اليها حرفين وصفر بالنسبة لمن لديه رقم وظيفي مكون من 5 خانات وصفرين مع الحرفين لمن لديه رقم وظيفي مكون من 4 خانات بحيث تكون جميع الارقام مكونة من 8 خانات بهذا التنسيق "dm000000" . اتمنى اني القى الاجابة عندكم . ولكم جزيل الشكر
ابومؤنس قام بنشر مايو 12, 2004 قام بنشر مايو 12, 2004 وعليكم السلام ورحمة الله وبركاتة ,, اذا يوجد لدنيا حالتين هما اما عدد الارقام في الخلية 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 ثم اجعل المؤشرعند الخلية التي بها الارقام , ثم قم بتشغيل الماكروا . بالتوفيق ,,,,
هارلي قام بنشر مايو 16, 2004 الكاتب قام بنشر مايو 16, 2004 يعطيك العافية اخوي/ابومؤنس وشاكر لك ردك لكن اذا ماعليك كلافة كيف اسوي الماكرو لاني جديد في الاكسل
احمد صلاح الدين قام بنشر مايو 16, 2004 قام بنشر مايو 16, 2004 السلام عليكم ورحمة الله بعد إذن المشرف يمكن ذلك بضغط مفتاحي (Alt+F11) ثم اختار Module من قائمة Insert ثم قم بنسخ الماكرو ولصقه في المساحة البيضاء ثم اضغط Run
هارلي قام بنشر مايو 18, 2004 الكاتب قام بنشر مايو 18, 2004 السلام عليكم ورحمة الله وبركاته صباح الخير يا اخوان ويعطيكم الف عافية وشكرا على ردودكم الاكثر من رائعة والمفيدة جزاكم الله خيرا بقي نقطة واحدة وهي ان الماكرو لم يعمل على المدخلات القديمة الا بتشغيله على كل خلية . فهل هناك طريقة لتشغليه على مجموعة خلايا دفعة واحدة . ولكم جزيل الشكر
محمد طاهر عرفه قام بنشر مايو 18, 2004 قام بنشر مايو 18, 2004 http://www.officena.net/ib/index.php?showtopic=3138&st=0&
الردود الموصى بها