اضافة علامة ' قبل الرقم

[M.Elmahmoudy]

االسلام عليكم 

بعد إذن الأساتذة، عندي أرقام كثيرة ومحتاج إني أضيف قبلها علامة (كومة) اللي هي ' قبل كل رقم 

 

هل يوجد معادلة لاضافة العلامة المطلوبة لكل الارقام بدلا من ادخالها يدويا

lمع خالص الشكر

 

Copy of OverTime Transaction Upload Template.xlsx

تم تعديل أغسطس 29 بواسطه M.Elmahmoudy

[أ / محمد صالح]

جرب استعمال هذا الكود

For Each cell In range("a2:a10000")
   cell.Value = "'" & cell.Value
Next cell

بالتوفيق

[محمد هشام.]

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

لاستخراجها في عمود مغاير يكفي استخدام المعادلة التالية 

=IF(A2<>"", "'" & A2, "")

اما بالنسبة لاستخدام الأكواد 

يمكنك استخدام طريقة أكثر كفاءة  واسرع خاصة عند وجود عدد كبير من البيانات من خلال تقليل عدد عمليات الكتابة إلى الخلايا. بدلاً من تعديل كل خلية فردياً في حلقة

يمكنك استخدام مصفوفات لتخزين القيم مؤقتاً ثم كتابة البيانات مرة واحدة فقط مع ضمان عدم التعديل على الخلايا الفارغة 

Sub test()
    Dim f As Worksheet
    Dim tmp As Variant
    Dim i As Long, lastRow As Long
    Application.ScreenUpdating = False
    Set f = ThisWorkbook.Sheets("Sheet1")
    lastRow = f.Cells(f.Rows.Count, "A").End(xlUp).Row
    tmp = f.Range("A2:A" & lastRow).Value

    For i = 1 To UBound(tmp, 1)
        If tmp(i, 1) <> "" Then
            tmp(i, 1) = "'" & tmp(i, 1)
        End If
    Next i
    f.Range("A2:A" & lastRow).Value = tmp
     Application.ScreenUpdating = True
End Sub

 

 

Copy of OverTime.xlsb

تم تعديل أغسطس 29 بواسطه محمد هشام.

[عبدالله بشير عبدالله]

اظافة ما تفضل به معلمنا محمد صالح  ومعلمنا محمد هشام يمكن استخدام المعادلة التالية فى حالة وضعها في عمود اخر

=CONCATENATE("'"; A2)

     Copy of OverTime Transaction Upload Template.xlsx

تم تعديل أغسطس 29 بواسطه عبدالله بشير عبدالله

[M.Elmahmoudy]

جزاكم الله خير جميعا على مجهودكم العظيم

[محمد هشام.]

52 دقائق مضت, M.Elmahmoudy said:

جزاكم الله خير جميعا على مجهودكم العظيم

ولك بمثل مادعوت اخي @M.Elmahmoudy السؤال بما أنك لم تقم بزيارة المنتدى مند طرح طلبك من قام بإختيار أفضل إجابة ؟؟؟؟؟

 

[أ / محمد صالح]

42 دقائق مضت, محمد هشام. said:

بما أنك لم تقم بزيارة المنتدى مند طرح طلبك من قام بإختيار أفضل إجابة ؟؟؟؟؟

الأخ الفاضل محمد هشام 

في حالة تمام الموضوع وعدم انتباه صاحب الاستفسار إلى اختيار أفضل إجابة 

يحق للمشرفين اختيار أفضل إجابة 

وربما اختار احد المشرفين إجابتي لأنها اول الإجابات التي تنفذ المطلوب. 

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

وفقنا الله جميعا لكل خير 

[محمد هشام.]

9 دقائق مضت, أ / محمد صالح said:

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

أستاد محمد صالح ليس هناك ما يغضبني في هدا  بالعكس هدفنا هنا هو مساعدة الاخوة الاعضاء فقط أما مسألة أفضل إجابة لن تضيف لي ولك أيضا على ما أعتقد أي شيئ لاكن ادا كانت هده من صلاحيات المشرفين لابد من الأخد في عين الإعتبار عدة عوامل في اختيارها مع إحترامي لك طبعا ليس كل من أجاب أولا فإقتراحه صائب

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

مجرد اقتراح سبق التنويه اليه مسبقا  الافضل ترك امكانية اختيارها لصاحب الموضوع هناك حالات استثنائية تم الرد منه كمثال (تم المطلوب )----(جزاك الله خيرا ) كما تعودنا دون اختياره لافضل اجابة في هده الحالة يحق للمشرفين وضعها وغلق الموضوع   هدا يعطي مصداقية اكثر  ولكم واسع النظر 

 

[أ / محمد صالح]

44 دقائق مضت, محمد هشام. said:

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

هذا بالفعل ما يتم العمل به 

وكما قلت سابقا ربما لا يعرف احد الإخوة موضوع اختيار أفضل إجابة 

وهنا ياتي دور احد المشرفين 

انا شخصيا لا أجد اي خلاف اذا اختارها العضو فخير وبركة واذا لم يخترها كان من حق المشرفين اختيار الإجابة التي تؤدي المطلوب 

وإن تعددت الإجابات فهذا لاثراء الموضوع 

وفي الغالب تكون الحلول التالية للحل الأول استعمال نفس الفكرة ولكن بطريقة مختلفة

بالتوفيق