هل هناك حل لإضافة الفاصلة العلوية (‘) دون اللجوء الى وضعها لكل خلية على حدة ؟

نعم هناك حل لذلك , يسعدنا ان نطلعكم على حل ذلك الموضوع و ذلك من خلال خاصية داخل ملف الاكسيل و التى تتيح إضافة الفاصلة العلوية (‘) لمجموعة خلايا دون اللجوء الى وضعها لكل خلية , لكى تقوم باستخدام الخاصية يرجى عمل التالى :

1- من داخل ملف الإكسيل قم بالضغط على “ALT + F11”

2- سيقوم الاكسيل بفتح واجهة للتعامل مع الإكسيل عن طريق الكود

3- قم بالنقر مرتين على الملف المراد التعديل عليه و ستظهر الواجهة كالصورة التالية

4- قم بنسخ الكود التالى و اضافته فى واجهة كتابة الكود

Sub AddTextOnRight()
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", "DafaterRange", WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", "DafaterValue", "", Type:=2)
For Each Rng In WorkRng
Rng.Value = addStr & Rng.Value
Next
End Sub


5- قم بالضغط على زر تشغيل

6- بعد الضغط على زر تشغيل سيظهر ذلك الصندوق النصى و الذى يتيح لك تحديد الخلايا التى تريد ان تضيف لها الفاصلة عن طريق تحديدها بالطريقة العادية

7- بعد اعتماد الخلايا التى سيتم اضافة الفاصلة لها سيظهر صندوق نصى اّخر لإضافة القيمة المراد وضعها فى بداية النص و هى الفاصلة العلوية

8- و بالضغط على زر “ok” سيقوم النظام باضافة الفاصلة قبل كل خلية تم تحديدها