اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by محمد طاهر عرفه,

الردود الموصى بها

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

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

سؤالي:

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

مثال:

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

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

رابط هذا التعليق
شارك

  • 6 months later...

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

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

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

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

رابط هذا التعليق
شارك

  • 2 years later...

السلام عليكم

 

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

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

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information