نعم هناك حل لذلك , يسعدنا ان نطلعكم على حل ذلك الموضوع و ذلك من خلال خاصية داخل ملف الاكسيل و التى تتيح إضافة الفاصلة العلوية (‘) لمجموعة خلايا دون اللجوء الى وضعها لكل خلية , لكى تقوم باستخدام الخاصية يرجى عمل التالى :
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” سيقوم النظام باضافة الفاصلة قبل كل خلية تم تحديدها