نقوم بإجراء القسمة في جميع الخلايا باستخدام الماكرو

وصف

ماكرو للتقسيم التلقائي للقيم في الخلايا برقم عشوائي. قد يكون ذلك ضروريًا إذا كان لدينا ملف بيانات حيث يتم تحديد جميع القيم بالبنسات، ونحتاج إلى ترجمة الحسابات والبيانات إلى الهريفنيا (أو عملة أخرى).

بالطبع، يمكنك استخدام الصيغ لتحويل القيم، ولكن إذا كان هناك الكثير من الأرقام، فإن التحويل بهذه الطريقة سيكون طويلاً ومملاً للغاية.

دعونا نفكر في كيفية تقسيم جميع الخلايا المحددة على رقم، على سبيل المثال، "100" في Excel باستخدام ماكرو.

VBA رمز الماكرو

للقيام بذلك، افتح كتابك، انتقل إلى محرر Visual Basic (البديل+F11)، إضافة وحدة VBA ( Inser - Module ) وانسخ نص الماكرو هذا هناك:

Sub Division()
    For Each cell In Selection
        cell.Formula = cell.Value
    Next cell
    
    For Each cell In Selection
        cell.Value = cell.Value / 100
    Next cell
End Sub

بعد ذلك يمكنك العودة إلى Excel. حدد الخلايا الضرورية وقم بتشغيل الماكرو الخاص بنا من خلال القائمة Tools - Macro - Macros (Alt+F8) .

أيضا، إذا قمت باستبدال في رمز الماكرو "100" على سعر الصرف، سنحصل على القيمة بعملة أخرى.

وبالمثل، يمكنك إجراء أي عملية، مثل الضرب بأي رقم.