الملء التلقائي الذكي لأسفل ولليمين

حتى الآن ، أتذكر أحيانًا بابتسامة واحدة من أولى التدريبات الميدانية للشركات منذ 10 سنوات.

تخيل: مكتب ذو مساحة مفتوحة لمكتب تمثيلي لشركة توزيع سلع استهلاكية دولية، ضخم مثل ملعب كرة القدم. تصميم أنيق، معدات مكتبية باهظة الثمن، قواعد لباس، مغتربون يتسكعون في الزوايا - هذا كل شيء 🙂 في إحدى قاعات الاجتماعات، أبدأ تدريبًا متقدمًا لمدة يومين على الإصدار الحالي من Excel 2003 لـ 15 موظفًا رئيسيًا في القسم الاقتصادي ، جنبا إلى جنب مع زعيمهم. نتعرف، أسألهم عن مهام العمل والمشاكل، وأطلب منهم إظهار العديد من ملفات العمل النموذجية. إنهم يعرضون طول الكيلومتر من التفريغ من SAP، وأوراق التقارير التي يقدمونها حول هذا الموضوع، وما إلى ذلك. حسنًا، إنه أمر مألوف - فأنا أكتشف الموضوعات والتوقيت عقليًا، وأتكيف مع الجمهور. من زاوية عيني، لاحظت كيف أن أحد المشاركين، وهو يعرض جزءًا من تقريره، يسحب بصبر الخلية التي تحتوي على الصيغة لأسفل بواسطة الصليب الأسود في الزاوية اليمنى السفلية لعدة آلاف من الأسطر، ثم يتخطى نهاية الطاولة أثناء الطيران، تسحبها للخلف، وما إلى ذلك. غير قادر على الوقوف، أقاطعه بلف الماوس حول الشاشة وأظهر نقرًا مزدوجًا على التقاطع الأسود، موضحًا الإكمال التلقائي حتى النهاية. 

فجأة أدركت أن الجمهور هادئ بشكل مريب والجميع ينظر إليّ بغرابة. أنظر حولي بشكل غير محسوس أينما استطعت - كل شيء على ما يرام ، ذراعي ورجلي في مكانهما ، وطايرتي مقلوبة. أعود عقليًا إلى كلماتي الأخيرة بحثًا عن جملة فظيعة - لم يكن هناك شيء إجرامي ، على ما يبدو. بعد ذلك ، نهض رئيس المجموعة بصمت وصافحني وقال بوجه حجري: "شكرًا لك ، نيكولاي. يمكن إكمال هذا التدريب.

حسنًا ، باختصار ، اتضح أنه لم يكن لدى أي منهم فكرة عن النقر المزدوج على الصليب الأسود والإكمال التلقائي. حدث بطريقة ما تاريخيًا أنه لم يكن هناك من يريهم شيئًا بسيطًا ولكنه ضروري. قام القسم بأكمله بسحب الصيغ يدويًا لآلاف الأسطر ، أيها الزملاء الفقراء. وها أنا ذا. مشهد النفط. ثم طلب رئيس القسم كثيرًا عدم الكشف عن اسم شركتهم لأي شخص 🙂

بعد ذلك بعدة مرات ، كانت هناك مواقف مماثلة ، ولكن فقط مع المستمعين الأفراد - معظمهم الآن ، بالطبع ، يعرفون هذه الوظيفة. 

السؤال مختلف. بعد الفرح الأول لإتقان مثل هذه الميزة الرائعة ، أدرك معظم المستخدمين أن النسخ التلقائي للصيغ عن طريق النقر المزدوج على الصليب الأسود (علامة الإكمال التلقائي) له جميع الجوانب الإيجابية والسلبية:

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

دعنا نحاول إصلاح هذه العيوب باستخدام ماكرو بسيط.

اضغط على اختصار لوحة المفاتيح لليسار ALT + F11 أو زر Visual Basic علامة التبويب المطور (مطور). أدخل وحدة فارغة جديدة عبر القائمة إدراج - وحدة وانسخ نص وحدات الماكرو هذه هناك:

Sub SmartFillDown () Dim rng As Range ، n As Long Set rng = ActiveCell.Offset (0، -1) .CurrentRegion If rng.Cells.Count> 1 ثم n = rng.Cells (1) .Row + rng.Rows. العدد - ActiveCell.Row ActiveCell.AutoFill Destination: = ActiveCell.Resize (n، 1)، النوع: = xlFillValues ​​End If End Sub SmartFillRight () Dim rng as Range، n As Long Set rng = ActiveCell.Offset (-1، 0) .CurrentRegion If rng.Cells.Count> 1 ثم n = rng.Cells (1) .Column + rng.Columns.Count - ActiveCell.Column ActiveCell.AutoFill Destination: = ActiveCell.Resize (1، n) ، النوع: = xlFillValues ​​End If End Sub  

هذه وحدات الماكرو:

• يمكن ملء ليس فقط لأسفل (SmartFillDown) ، ولكن أيضًا على اليمين (SmartFillRight)
• لا تفسد تنسيق الخلايا الموجودة أسفل أو جهة اليمين - يتم نسخ الصيغة (القيمة) فقط
• يتم تجاهل الخلايا المجاورة الفارغة ويحدث النسخ بالضبط في نهاية الجدول ، وليس إلى أقرب فجوة في البيانات أو الخلية المشغولة الأولى.

لمزيد من الراحة ، يمكنك تعيين اختصارات لوحة المفاتيح لوحدات الماكرو هذه باستخدام الزر وحدات الماكرو - خيارات (وحدات ماكرو - خيارات) هناك على علامة التبويب. المطور (مطور). الآن سيكون كافيًا إدخال الصيغة أو القيمة المطلوبة في الخلية الأولى من العمود والضغط على مجموعة المفاتيح المحددة للماكرو لملء العمود (أو الصف) بالكامل تلقائيًا:

الجمال.

PS تم حل جزء من مشكلة نسخ الصيغ في نهاية الجدول في Excel 2007 مع ظهور "الجداول الذكية". صحيح أنها ليست مناسبة دائمًا وليس في كل مكان. وإلى اليمين ، لم يتعلم Excel مطلقًا النسخ بمفرده.

• ما هي وحدات الماكرو ، وكيفية استخدامها ، ومكان الحصول على التعليمات البرمجية لـ Visual Basic ومكان لصقها.
• الجداول الذكية في Excel 2007-2013
• نسخ الصيغ بدون تحويل الارتباط