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

وصف

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

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

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

VBA رمز الماكرو

للقيام بذلك، افتح المصنف الخاص بك، انتقل إلى Visual Basic Editor (Alt+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" بسعر العملة في كود الماكرو، فسنحصل على القيمة بعملة أخرى.

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