تحويل قيم في Excel باستخدام ماكرو VBA

للقيام بذلك، يمكنك استخدام ماكرو VBA في Excel. يمكنك اتباع الخطوات التالية لإنشاء ماكرو يقوم بتبديل القيم:

1. قم بفتح ملف Excel الذي تريد تطبيق التغييرات عليه.
2. اضغط Alt + F11 لفتح محرر VBA.
3. اختر Insert ثم Module لإنشاء وحدة جديدة.
4. اكتب الكود التالي داخل الوحدة:

vbaCopy code
Sub ReplaceValues()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        If cell.Value = "S" Then
            cell.Value = 4
        ElseIf cell.Value = "MB" Then
            cell.Value = 3
        ElseIf cell.Value = "B" Then
            cell.Value = 2
        End If
    Next cell
End Sub

5. اضغط Ctrl + S لحفظ التغييرات.
6. اضغط Alt + Q للخروج من محرر VBA.
7. اختر Developer ثم Macros في شريط الأدوات.
8. حدد الماكرو الذي أنشأته (ReplaceValues) ثم انقر فوق Run لتشغيله.

هذا سيبدل القيم في الأعمدة المحددة بالأرقام المطلوبة. لتطبيق هذا الكود على ملفات Excel أخرى، يمكنك فتح كل ملف وتشغيل الماكرو بنفس الطريقة.

بالتأكيد! يمكنك تعديل الكود ليعمل على فتح ملفات Excel بشكل تلقائي وتطبيق التغييرات عليها. فيما يلي كيفية تعديل الكود ليقوم بهذا العمل:

1. افتح محرر VBA كما هو موضح في الخطوات السابقة.
2. قم بتعديل الكود كما يلي:

vbaCopy code
Sub ReplaceValuesInAllFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim cell As Range
    
    ' تحديد مجلد البحث عن الملفات
    folderPath = "مسار المجلد الذي تحتوي على الملفات"
    
    ' فتح الملفات وتطبيق التغييرات
    fileName = Dir(folderPath & "*.xls*")
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & fileName)
        For Each ws In wb.Worksheets
            For Each cell In ws.UsedRange
                If cell.Value = "S" Then
                    cell.Value = 4
                ElseIf cell.Value = "MB" Then
                    cell.Value = 3
                ElseIf cell.Value = "B" Then
                    cell.Value = 2
                End If
            Next cell
        Next ws
        wb.Close SaveChanges:=True
        fileName = Dir
    Loop
End Sub

3. قم بتغيير قيمة folderPath إلى المسار الذي يحتوي على ملفات Excel التي تريد تطبيق التغييرات عليها.
4. اضغط Ctrl + S لحفظ التغييرات.
5. اضغط Alt + Q للخروج من محرر VBA.
6. اختر Developer ثم Macros في شريط الأدوات.
7. حدد الماكرو الجديد الذي أنشأته (ReplaceValuesInAllFiles) ثم انقر فوق Run لتشغيله.

هذا الكود سيقوم بفتح كل ملف Excel في المجلد المحدد وتطبيق التغييرات عليه، ثم يحفظ التغييرات ويغلق الملف. يرجى التأكد من عدم فتح الملفات يدوياً أثناء تشغيل الكود، لأن ذلك قد يتسبب في تعارض.