يتم قفل بعض أجهزة الكمبيوتر الشخصية المكتبية بشدة: حيث يتم تعطيل وحدات الماكرو بواسطة السياسة، ويتم حظر الوظائف الإضافية، ويفوز الشريط الأحمر بكل حجة. إذا كان هذا هو جهازك، فسيتم إغلاق مسار VBA - ولكن لا يزال يتعين إنجاز المهمة. يمكن للصيغ البسيطة، المرتبة في أعمدة مساعدة، أن تفعل ذلك.
حدد توقعاتك بصدق أولاً: هذه هي طريقة ورشة العمل، وليست الطريقة الأنيقة. إنه يحول مبالغ تصل إلى 99,999، بكلمات واضحة، بدون روبية أو بيزو. ضمن هذه الحدود، يمكن الاعتماد عليه، ويعمل في أي مكان - بما في ذلك جداول بيانات Google - وكل صيغة أدناه جاهزة للنسخ واللصق.
قيم الأمثلة - تقوم الآلة بتفكيك الأرقام في الأعمدة، وكلمات كل قطعة، ثم تقوم بربطها. لا يوجد ماكرو في أي مكان.
الصيغ البسيطة يمكن إنشاء كلمات، لكنها تفعل ذلك بالطريقة الصعبة: لا تحتوي الصيغة على ذاكرة ولا حلقات، لذا يجب عليك قص الرقم إلى أجزاء في أعمدة مساعدة وكلمة كل قطعة على حدة. يعمل ذلك بشكل نظيف حتى 99,999. أبعد من ذلك، تتكاثر القطع وتصبح الورقة آلة لا يستطيع أحد في مكتبك إصلاحها.
كما أنها تتحدث أيضًا بكلمات أرقام عادية فقط - بدون روبية، ولا بايس، ويخرج الصفر فارغًا. إذا كانت هذه الحدود تناسب وظيفتك - كمبيوتر مكتبي مقفل حيث يتم حظر وحدات الماكرو هو الحالة الكلاسيكية - فهذا المسار حقيقي ويعمل. إذا لم تكن مناسبة، فإن وظيفة VBA من الدليل الرئيسي هي ببساطة الأداة الأفضل، ولن يغير ذلك أي قدر من ذكاء الصيغة.
ضع مبلغك في A2. ثم تقوم ثلاثة أعمدة مساعدة بالقطع:
=INT(A2/1000) - مقابل 4732، هذا يعطي 4=INT(MOD(A2,1000)/100) - وهذا يعطي 7=MOD(A2,100) - وهذا يعطي 32كل مبلغ يصل إلى 99,999 هو بالضبط هذه القطع الثلاث: قطعة الآلاف المكونة من رقمين، ورقم واحد من مائة، وذيل مكون من رقمين.
صيغة واحدة من الكلمات أي قطعة مكونة من رقمين. في C2، بالنسبة إلى مجموعة الآلاف في B2، الصق هذا بالضبط:
{CHUNK_B}
في E2، مئات الكلمات من D2:
=IF(D2=0"،"،INDEX({"واحد"،"اثنان"،"ثلاثة"،"أربعة"، "خمسة"، "ستة"، "سبعة"، ثمانية"، "تسعة"}،D2)&" مائة ")
وفي G2، نفس النمط المكون من رقمين مرة أخرى، وهذه المرة للذيل في F2:
{CHUNK_F}
كيفية عمل النمط: الأرقام الأقل من 20 غير منتظمة باللغة الإنجليزية، لذلك يتم البحث عنها مباشرة من القائمة. فوق 20، فإنه يأخذ كلمة العشرات وينضم إلى كلمة الآحاد - ولهذا السبب تأتي الأربعون سبعة بشكل صحيح، ولماذا نفس الصيغة تخدم كلا القطعتين المكونتين من رقمين.
صيغة أخيرة تجمع الجملة. توجد آلاف الكلمات في C2، ومئات الكلمات في E2، والكلمات الخلفية في G2 - لذا في H2:
=TRIM(IF(B2>0,C2&" ألف "")&E2&G2)
يقوم TRIM بترتيب المساحات التي كانت فيها القطعة فارغة - مبلغ مثل 61000 لا يحتوي على مئات ولا ذيل، ولا يزال يُقرأ بوضوح على أنه واحد وستون ألفًا.
املأ كل صيغة بجانب قائمة المبالغ الخاصة بك وسيقوم العمود بأكمله بالتحويل مرة واحدة. واحترم الحدود: اكتب 100000 وستجيب الورقة بخطأ بصوت عالٍ - لم تعد القطع مناسبة. هذا الفشل الصاخب هو ميزة. في اليوم الذي تتجاوز فيه مبالغك 99,999، انتقل إلى مسار VBA بدلاً من تمديد هذا المسار.
راجع الملف الذي تم تنزيله، وتشغيل الوظيفة الإضافية، وكتابة الصيغة مباشرة - الطريقة الكاملة في حوالي دقيقة.
Watch Full Videoتوجد إصدارات أحادية الخلية، ولكنها عبارة عن مئات من الأحرف ذات المنطق المتداخل الذي لا يستطيع أحد قراءتها أو اختبارها أو إصلاحها - وعندما ينكسر أحدها، فإنه يميل إلى الانهيار بهدوء، مما يؤدي إلى طباعة كلمات خاطئة على مستندات حقيقية. الأعمدة المساعدة تبقي كل قطعة مرئية: إذا كانت آلاف الكلمات خاطئة، يمكنك معرفة العمود الذي أنتجها بالضبط.
لا، فهو يحول الأعداد الصحيحة فقط، ويسقط الجزء العشري بصمت بدلاً من تحذيرك. إذا كانت مبالغك تحمل قيمة paise، فإن هذا الصمت أمر خطير - استخدم وظيفة VBA من الدليل الرئيسي، الذي يقرأ قيمة paise بشكل صحيح، أو قم بتقريب مبالغك بشكل متعمد قبل تحويلها هنا.
نعم. تعمل INT وMOD وINDEX وIF وTRIM بنفس الطريقة في جداول بيانات Google، وتعمل قوائم الكلمات الموجودة بين قوسين متعرجين هناك أيضًا. هذه هي الميزة الحقيقية الوحيدة لهذا المسار: يقوم الملف بتحويل المبالغ على الأجهزة التي لن يُسمح فيها بتشغيل أي ماكرو على الإطلاق.