كيف يمكن عكس اسم النطاق وفقًا للترميز في Excel؟
قد تواجه أحيانًا مهمة عكس اسم النطاق حسب الترميز، كما هو موضح في لقطة الشاشة أدناه. هل لديك أي حيل لحلها بسرعة؟ في هذه المقالة، أقدّم طريقتين للتعامل معها بسلاسة وفعالية.
 |  |  |
عكس اسم النطاق حسب الترميز باستخدام VBA
عكس السلسلة النصية باستخدام فاصل مع عكس النص
عكس اسم النطاق حسب الترميز باستخدام VBA
هناك كود ماكرو يمكنه مساعدتك، يُرجى اتباع الخطوات التالية في Excel:
1. اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم انسخ والصق الكود في النافذة الفارغة.
VBA: عكس اسم النطاق حسب الترميز
Sub Reverse()
'UpdatebyExtendoffice2017115
Dim xArr() As String
Dim xSplitStr As String
Dim xVal As String
Dim xRg As Range
Dim xCell As Range
Dim xIndex As Long
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xSplitStr = "."
For Each xCell In xRg
If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
xVal = ""
xArr = Split(xCell.Value, xSplitStr)
xIndex = UBound(xArr)
xVal = xArr(xIndex)
Do
xIndex = xIndex - 1
xVal = xVal & xSplitStr & xArr(xIndex)
Loop While xIndex > 0
xCell.Value = xVal
xBreak:
Next
Application.ScreenUpdating = True
End Sub
3. اضغط على مفتاحF5، وستظهر لك نافذة منبثقة لتذكيرك باختيار نطاق للعمل عليه.
4. انقر علىموافق (OK).
عكس السلسلة النصية باستخدام فاصل مع عكس النص
إذا كنت تمتلك Kutools لـ Excel، فإن ميزة عكس النص ستساعدك على عكس السلسلة النصية وفقًا لاحتياجاتك.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:（حمّله مجانًا من Kutools لـ Excel الآن!)
1. حدد السلسلة النصية التي تريد استخدامها، ثم انقر علىKutools > نص > عكس النص.
2. في مربع حوارعكس النص، اختر الخيار الذي تحتاجه لعكس النص بناءً عليه.
3. انقر علىموافق (Ok)، وسيتم عكس السلاسل النصية.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل