اضافة أقواس للارقام اليا

[مصطفى شاهين]

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

بدايةً كل عام وأنتم بخير بمناسبة حلول عيد الأضحى المبارك، أعاده الله علينا وعليكم باليُمن والبركة

سؤالي:

أريد طريقة للبحث عن أي رقم أو عدد ووضعه داخل قوس، علماً أنه من الممكن أن يكون هذا الرقم أو العدد مرافقاً له علامة $ أو %.

مثال:

5 (5)، 1245 (1245)، 32.5% (32.5%) وهكذا.

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

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

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

بالنسبة للطلب

• هل ما تحتاجه هو اضافة الاقواس لأرقام محددة ام أي ارقم ؟ 
• هل الارقام اقل من عدد معين ؟  من 1 الي 9 فقط مثلا ؟
• هل هي ارقام صحيحة ام قد يكون بها رقم عشري ؟

بناء على ما سبق قد يكون الحل سهلا او قد يكون معقدا لدرجة ما

[مصطفى شاهين]

تحية طيبة وبعد،

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

دمتم بخير

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

السلام عليكم

 

فى حال وجود ارقام او اشياء أخرى مطلوب اضافتها بين اقواس  ، يمكن اختيارها و تشغيل هذا الماكرو

هذا الماكرو يضيف اقواس لما تختار ايا كان المحتوى و هنا نختار الكلمة او الرقم واجدا واحدا ، و بالطبق يفضل عمل زر او انشاء اختصار لاستخدامه

Sub AddParens()
    Selection.InsertBefore "("
    Selection.InsertAfter ")"
End Sub

و بالطبع يمكن استدال نوع الاقواس و العلامات المطلوب اضافتها باي شيء اخر

 

او تطويره قليلا ليتبين هل تم اختيار شيء فعلا ام لا

Sub AddParens()
    If Len(Selection.Range) > 0 Then
        Selection.InsertBefore "("
        Selection.InsertAfter ")"
    Else
        MsgBox "No text was selected!"
    End If
End Sub

 

المصدر 

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

 و قد اضفت التطوير التالي للكود ليتيح اضافة اقواس لكافة الارقام الموجودة فى المنطقة المختارة

اختار المنطقة أولا يم شغل الكود فيتم اضافة اقواس لكاقة الارقام ضمن المنطقة المظللة (المختارة)

Sub AddParens2Numbers()
    If Len(Selection.Range) > 0 Then
        For i = 1 To Selection.Words.Count
          With Selection.Words(i)
               If IsNumeric(.Text) Then
                    .Text = "(" & Trim(.Text) & ") "
                     i = i + 1
                End If
          End With
        Next i
    Else
        MsgBox "لم تقم باختيار العبارات المطلوب التعديل عليها "
    End If
End Sub

 

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

و الكود التالي يتخص فقط باستبدال النسب ، اي الارقام او العبارات التي تنتهي ب علامة %

فيقوم باضافة افواس لها

Sub AddParens2NumbersP()
' يختص باضافة اقواس للعبارات المنتهية بعلامة %
    If Len(Selection.Range) > 0 Then
        For i = 1 To Selection.Words.Count
          With Selection.Words(i)
               If Right(Trim(.Text), 1) = "%" Then
                     Selection.Words(i - 1).Text = "(" & Selection.Words(i - 1)
                     .Text = Trim(.Text) & ") "
                     i = i + 1
                End If
          End With
        Next i
    Else
        MsgBox "لم تقم باختيار نطاق التطبيق"
    End If
End Sub

 

[Tutta22]

السلام عليكم ، كيف يمكن تشغيل هذا الماكرو أى خطوات دمجه فى الملف 

[Ali Mohamed Ali]

وعليكم السلام -كل عام وانتم بخير وعيد مبارك

انظر الى هذه الصورة فقد تفيدك في كيفية وضع ولصق الكود في ملف وورد