تکمیل خودکار هوشمند پایین و راست

تا به حال گاهی با لبخند یکی از اولین آموزش های شرکتی حوزه خود را در 10 سال پیش به یاد می آورم.

تصور کنید: دفتر فضای باز دفتر نمایندگی یک شرکت بین المللی FMCG، بزرگ به اندازه یک زمین فوتبال. طراحی شیک، تجهیزات اداری گران قیمت، لباس پوشیدن، غوغا کردن مهاجران در گوشه و کنار - این همه چیز است. ، همراه با رهبرشان. ما آشنا می شویم، از آنها در مورد وظایف تجاری، مشکلات می پرسم، از آنها می خواهم چندین فایل کاری معمولی را نشان دهند. آنها طول کیلومتر تخلیه از SAP، برگه های گزارشی که در این مورد می دهند و غیره را نشان می دهند. خب، این یک چیز آشنا است - من ذهناً موضوعات و زمان بندی را مشخص می کنم، با مخاطبان تنظیم می کنم. از گوشه چشمم متوجه می شوم که چگونه یکی از شرکت کنندگان با نشان دادن بخشی از گزارش خود، با صبر و حوصله سلول را با فرمول به وسیله صلیب سیاه در گوشه سمت راست پایین برای چندین هزار خط پایین می کشد، سپس از انتهای آن می گذرد. میز در حال پرواز است، آن را به عقب می‌کشد، و غیره. من که نمی‌توانم آن را تحمل کنم، حرفش را قطع می‌کنم که ماوس را دور صفحه می‌چرخاند و یک دوبار کلیک روی ضربدر سیاه نشان می‌دهم که در مورد تکمیل خودکار تا پایان توضیح می‌دهد. 

ناگهان متوجه می شوم که تماشاگران به طرز مشکوکی ساکت هستند و همه به طرز عجیبی به من نگاه می کنند. من به طور نامحسوس به اطراف خود نگاه می کنم هر کجا که می توانم - همه چیز خوب است، دست ها و پاهایم در جای خود قرار دارند، مگس من بسته شده است. آخرین کلماتم را ذهنی به عقب برمی‌گردانم تا به دنبال یک بند وحشتناک باشم - به نظر می‌رسد هیچ چیز مجرمانه‌ای وجود نداشت. بعد از آن، رئیس گروه بی‌صدا بلند می‌شود، دستم را می‌فشارد و با چهره‌ای سنگی می‌گوید: «مرسی نیکولای. این آموزش قابل تکمیل است.

خوب، به طور خلاصه، معلوم شد که هیچ کدام از آنها سرنخی از دوبار کلیک کردن روی یک ضربدر سیاه و تکمیل خودکار نداشتند. به نحوی از نظر تاریخی اتفاق افتاد که کسی نبود که چنین چیز ساده اما ضروری را به آنها نشان دهد. کل بخش فرمول ها را به صورت دستی برای هزاران خط کشید، افراد بیچاره. و من اینجا هستم. صحنه نفت. رئیس بخش سپس بسیار خواست که نام شرکت خود را به کسی فاش نکنند

چندین بار بعداً موقعیت‌های مشابهی وجود داشت، اما فقط با شنوندگان فردی - البته اکنون اکثر آنها این عملکرد را می‌دانند. 

سوال متفاوت است. پس از اولین لذت از تسلط بر چنین ویژگی شگفت انگیزی، اکثر کاربران متوجه می شوند که کپی خودکار فرمول ها با دوبار کلیک کردن روی ضربدر سیاه (نشانگر تکمیل خودکار) همه جنبه های مثبت و منفی را دارد:

• کپی کردن همیشه تا انتهای جدول اتفاق نمی افتد. اگر جدول یکپارچه نباشد، یعنی سلول‌های خالی در ستون‌های مجاور وجود داشته باشد، این یک واقعیت نیست که تکمیل خودکار تا پایان جدول کار کند. به احتمال زیاد، این فرآیند قبل از رسیدن به پایان در نزدیکترین سلول خالی متوقف می شود. اگر سلول هایی وجود داشته باشد که توسط چیزی در زیر ستون اشغال شده است، تکمیل خودکار دقیقاً روی آنها متوقف می شود.
  
• هنگام کپی کردن طراحی سلول خراب می شود، زیرا به طور پیش فرض، نه تنها فرمول، بلکه فرمت نیز کپی می شود. برای تصحیح بر روی دکمه کپی گزینه ها کلیک کرده و انتخاب کنید فقط ارزش ها (بدون فرمت پر کنید).
  
• هیچ راه سریعی برای کشش راحت فرمول وجود ندارد نه پایین بلکه سمت راستجز کشیدن با دست دوبار کلیک کردن بر روی صلیب سیاه فقط پایین است.

بیایید سعی کنیم با یک ماکرو ساده این نواقص را برطرف کنیم.

میانبر صفحه کلید را به چپ فشار دهید Alt + F11 یا دکمه ویژوال بیسیک برگ توسعه دهنده (توسعه دهنده). ماژول خالی جدید را از طریق منو درج کنید درج - ماژول و متن این ماکروها را در آنجا کپی کنید:

زیر SmartFillDown() Dim rng به عنوان محدوده، n به مدت طولانی تنظیم rng = ActiveCell.Offset(0، -1).CurrentRegion اگر rng.Cells.Count > 1 سپس n = rng.Cells(1).Row + rng.Rows. Count - ActiveCell.Row ActiveCell.AutoFill مقصد:=ActiveCell.Resize(n, 1)، Type:=xlFillValues ​​End If End Sub Sub SmartFillRight() Dim rng As Range، n As Long Set rng = ActiveCell.Offset(-1, 0).CurrentRegion اگر rng.Cells.Count > 1. سپس n = rng.Cells(1).Column + rng.Columns.Count - ActiveCell.Column ActiveCell.AutoFill مقصد:=ActiveCell.Resize(1, n)، نوع: =xlFillValues ​​End If End Sub  

چنین ماکروهایی:

• می تواند نه تنها پایین (SmartFillDown)، بلکه به سمت راست (SmartFillRight) پر شود
• قالب سلول های زیر یا سمت راست را خراب نکنید - فقط فرمول (مقدار) کپی می شود
• سلول‌های مجاور خالی نادیده گرفته می‌شوند و کپی دقیقاً تا انتهای جدول اتفاق می‌افتد و نه به نزدیکترین شکاف در داده یا اولین سلول اشغال شده.

برای راحتی بیشتر، می توانید میانبرهای صفحه کلید را با استفاده از دکمه به این ماکروها اختصاص دهید ماکروها - گزینه ها (ماکروها - گزینه ها) همانجا روی برگه توسعه دهنده (توسعه دهنده). اکنون کافی است فرمول یا مقدار مورد نظر را در سلول اول ستون وارد کنید و کلید ترکیبی مشخص شده را فشار دهید تا ماکرو به طور خودکار کل ستون (یا ردیف) را پر کند:

زیبایی

PS بخشی از مشکل کپی کردن فرمول ها در انتهای جدول در اکسل 2007 با ظهور "جدول هوشمند" حل شد. درست است، آنها همیشه و همه جا مناسب نیستند. و در سمت راست، اکسل هرگز کپی کردن را به تنهایی یاد نگرفت.

• ماکروها چیست، چگونه از آنها استفاده کنیم، کد ویژوال بیسیک را از کجا دریافت کنیم و کجا آن را بچسبانیم.
• جداول هوشمند در اکسل 2007-2013
• کپی فرمول ها بدون تغییر لینک