مصطفى شاهين قام بنشر سبتمبر 8, 2016 مشاركة قام بنشر سبتمبر 8, 2016 السلام عليكم ورحمة الله وبركاته بدايةً كل عام وأنتم بخير بمناسبة حلول عيد الأضحى المبارك، أعاده الله علينا وعليكم باليُمن والبركة سؤالي: أريد طريقة للبحث عن أي رقم أو عدد ووضعه داخل قوس، علماً أنه من الممكن أن يكون هذا الرقم أو العدد مرافقاً له علامة $ أو %. مثال: 5 (5)، 1245 (1245)، 32.5% (32.5%) وهكذا. ولكم مني جزيل الشكر رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر مارس 23, 2017 مشاركة قام بنشر مارس 23, 2017 لم احاول فيه بعد ، فقط وجدت هذا الطلب ضمن مشاركة اخرى و فصلته كموضوع مستقل حتى يظهر بالنسبة للطلب هل ما تحتاجه هو اضافة الاقواس لأرقام محددة ام أي ارقم ؟ هل الارقام اقل من عدد معين ؟ من 1 الي 9 فقط مثلا ؟ هل هي ارقام صحيحة ام قد يكون بها رقم عشري ؟ بناء على ما سبق قد يكون الحل سهلا او قد يكون معقدا لدرجة ما رابط هذا التعليق شارك More sharing options...
مصطفى شاهين قام بنشر مارس 23, 2017 الكاتب مشاركة قام بنشر مارس 23, 2017 تحية طيبة وبعد، يرجى العلم أن الأقواس المطلوبة لأي رقم، أو أي عدد، وممكن أن يكون صحيح أو عشري، كل الاحتمالات المتوفرة إن أمكن. دمتم بخير رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يونيو 5, 2019 مشاركة قام بنشر يونيو 5, 2019 السلام عليكم فى حال وجود ارقام او اشياء أخرى مطلوب اضافتها بين اقواس ، يمكن اختيارها و تشغيل هذا الماكرو هذا الماكرو يضيف اقواس لما تختار ايا كان المحتوى و هنا نختار الكلمة او الرقم واجدا واحدا ، و بالطبق يفضل عمل زر او انشاء اختصار لاستخدامه 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 المصدر رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد طاهر عرفه قام بنشر يونيو 5, 2019 أفضل إجابة مشاركة قام بنشر يونيو 5, 2019 و قد اضفت التطوير التالي للكود ليتيح اضافة اقواس لكافة الارقام الموجودة فى المنطقة المختارة اختار المنطقة أولا يم شغل الكود فيتم اضافة اقواس لكاقة الارقام ضمن المنطقة المظللة (المختارة) 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 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يونيو 5, 2019 مشاركة قام بنشر يونيو 5, 2019 و الكود التالي يتخص فقط باستبدال النسب ، اي الارقام او العبارات التي تنتهي ب علامة % فيقوم باضافة افواس لها 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 رابط هذا التعليق شارك More sharing options...
Tutta22 قام بنشر يونيو 7, 2019 مشاركة قام بنشر يونيو 7, 2019 السلام عليكم ، كيف يمكن تشغيل هذا الماكرو أى خطوات دمجه فى الملف رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 8, 2019 مشاركة قام بنشر يونيو 8, 2019 وعليكم السلام -كل عام وانتم بخير وعيد مبارك انظر الى هذه الصورة فقد تفيدك في كيفية وضع ولصق الكود في ملف وورد 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.