اطلاعات مفید در نوار وضعیت

کسی دوست دارد، اما من شخصاً فقط در 2-3 مورد به نوار وضعیت نیاز دارم:

• پس از فیلتر کردن، تعداد مقادیر باقی مانده پس از انتخاب را نمایش می دهد
• هنگامی که یک محدوده انتخاب می شود، مجموع، میانگین و تعداد سلول های انتخاب شده را نشان می دهد
• در مورد فایل های سنگین می توانید پیشرفت در محاسبه مجدد فرمول ها را در کتاب مشاهده کنید.
  

برای خطی که تقریباً تمام عرض صفحه را اشغال می کند و همیشه روی آن آویزان می شود، زیاد نیست. بیایید سعی کنیم این لیست ساده را گسترش دهیم و چند ویژگی مفید دیگر به آن اضافه کنیم 🙂

اصول کلی برای مدیریت نوار وضعیت

مدیریت نوار وضعیت با ویژوال بیسیک بسیار آسان است. برای نمایش متن خود در آن، می توانید از یک ماکرو ساده استفاده کنید:

زیر MyStatus() Application.StatusBar = "Привет!" پایان فرعی  

پس از اجرای آن، دریافت می کنیم:

برای بازیابی حالت اولیه نوار وضعیت، به همان «ضد ماکرو» کوتاه نیاز دارید:

Sub MyStatus_Off() Application.StatusBar = Fase End Sub  

در نسخه اصلی، همانطور که می بینید، همه چیز بسیار ساده است. حالا بیایید سعی کنیم ایده را توسعه دهیم…

آدرس محدوده انتخاب شده در نوار وضعیت

 در گوشه سمت چپ بالای پنجره اکسل در نوار فرمول، همیشه می توانید آدرس سلول فعلی را ببینید. اما اگر یک محدوده کامل انتخاب شود، متأسفانه ما آدرس انتخاب را در آنجا نخواهیم دید - همان یک سلول فعال نمایش داده می شود:

برای حل این مشکل می توانید از یک ماکرو ساده استفاده کنید که آدرس ناحیه انتخاب شده را در نوار وضعیت نمایش می دهد. علاوه بر این، این ماکرو باید به طور خودکار راه اندازی شود، با هر تغییری در انتخاب در هر برگه - برای این کار ما آن را در کنترل کننده رویداد قرار خواهیم داد. انتخاب تغییر کتاب ما.

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

در پنجره باز شده کد ماکرو زیر را کپی و پیست کنید:

Private Sub Workbook_SheetSelectionChange(ByVal Sh به عنوان Object، ByVal Target As Range) Application.StatusBar = "به ویژه: " & Selection.Address(0, 0) End Sub  

اکنون، هنگامی که هر محدوده ای (از جمله بیش از یک!) انتخاب می شود، آدرس آن در نوار وضعیت نمایش داده می شود:

برای جلوگیری از ادغام آدرس های چندین محدوده انتخاب شده با Ctrl، می توانید یک پیشرفت کوچک اضافه کنید - از تابع Replace برای جایگزینی کاما با کاما با فاصله استفاده کنید:

Private Sub Workbook_SheetSelectionChange(ByVal Sh به عنوان Object، ByVal Target As Range) Application.StatusBar = "به ویژه: " & Replace(Selection.Address(0, 0)، "،"، "، ") پایان زیر  

تعداد سلول های انتخاب شده در نوار وضعیت

هنگامی که هر محدوده ای انتخاب می شود، تعداد سلول های انتخاب شده غیر خالی به طور پیش فرض در سمت راست نوار وضعیت نمایش داده می شود. گاهی اوقات باید تعداد تخصیص داده شده را بدانید. این کار همچنین می تواند با یک ماکرو ساده برای مدیریت رویداد کتاب SelectionChange، مانند مثال قبلی، انجام شود. شما به یک ماکرو مانند:

Private Sub Workbook_SheetSelectionChange(ByVal Sh به عنوان شی، ByVal Target As Range) تعداد سلول کم نور به عنوان متغیر، rng به عنوان محدوده برای هر rng در Selection.Areas 'تکرار در تمام انتخاب ها تعداد سطر = rng.Rows.Count 'تعداد ردیف rng.ColumnsCountns = . شمارش تعداد ستون ها CellCount = CellCount + RowsCount * ColumnsCount 'تجمع تعداد کل سلول ها بعد نمایش در نوار وضعیت Application.StatusBar = "انتخاب شده: " & CellCount & " سلول ها پایان فرعی  

این ماکرو در تمام مناطق انتخاب شده با Ctrl (در صورت وجود بیش از یک حلقه) حلقه می زند، تعداد ردیف ها و ستون ها را در هر ناحیه در متغیرهای RowsCount و ColumnsCount ذخیره می کند و تعداد سلول ها را در متغیر CellCount جمع می کند که سپس نمایش داده می شود. در نوار وضعیت در محل کار به این صورت خواهد بود:

البته می توانید این ماکرو و ماکروهای قبلی را با هم ترکیب کنید تا هم آدرس محدوده انتخاب شده و هم تعداد سلول ها را همزمان نمایش دهید. شما فقط باید یک خط ماقبل آخر را به این تغییر دهید:

Application.StatusBar = "Selected: " & Replace(Selection.Address(0, 0)، "،"، "، ") & " - total " & CellCount & "cells"  

سپس تصویر بسیار شگفت انگیز خواهد بود:

خوب، من فکر می کنم شما ایده را دریافت کرده اید. در نظرات پیشنهاد دهید - چه چیز دیگری برای نمایش در نوار وضعیت مفید است؟

• ماکروها چیست، چگونه کار می کنند، چگونه می توان از آنها استفاده کرد و ایجاد کرد
• انتخاب مختصات راحت در برگه اکسل
• چگونه فرمول های پیچیده را بصری تر کنیم