Статус талбарт хэрэгтэй мэдээлэл

Хэн нэгэнд таалагддаг, гэхдээ надад зөвхөн 2-3 тохиолдолд статус самбар хэрэгтэй болно:

  • шүүлтүүрийн дараа энэ нь сонгосны дараа үлдсэн утгуудын тоог харуулна
  • мужийг сонгох үед сонгосон нүдний нийлбэр, дундаж, тоог харуулна
  • хүнд файлуудын хувьд томьёог дахин тооцоолох ахиц дэвшлийг номноос харж болно.

Дэлгэцийн бараг бүх өргөнийг эзэлдэг, байнга өлгөдөг шугамын хувьд тийм ч их биш юм. Энэхүү даруухан жагсаалтыг өргөжүүлж, хэд хэдэн хэрэгтэй функцийг нэмж оруулцгаая 🙂

Статус самбарыг удирдах ерөнхий зарчим

Visual Basic-ээр статусын мөрийг удирдах нь маш хялбар. Текстээ харуулахын тулд та энгийн макро ашиглаж болно.

Sub MyStatus() Application.StatusBar = "Привет!" Төгсгөлийн дэд

Үүнийг ажиллуулсны дараа бид дараахь зүйлийг авна.

Статус талбарт хэрэгтэй мэдээлэл

Статусын талбарын анхны төлөвийг сэргээхийн тулд танд ижил богино "макро" хэрэгтэй болно.

Sub MyStatus_Off() Application.StatusBar = False End Sub

Үндсэн хувилбарт, таны харж байгаагаар бүх зүйл маш энгийн. Одоо санаагаа хөгжүүлэхийг хичээцгээе…

Статусын талбар дахь сонгосон мужын хаяг

 Томъёоны мөрөнд Excel цонхны зүүн дээд буланд байгаа нүдний хаягийг үргэлж харж болно. Гэхдээ хэрэв бүхэл бүтэн муж сонгогдвол харамсалтай нь бид сонголтын хаягийг харахгүй - ижил нэг идэвхтэй нүд гарч ирнэ:

Статус талбарт хэрэгтэй мэдээлэл

Энэ асуудлыг шийдэхийн тулд та статусын мөрөнд сонгосон хэсгийн хаягийг харуулах энгийн макро ашиглаж болно. Түүнчлэн, энэ макро нь дурын хуудсан дээрх сонголтын өөрчлөлттэй автоматаар эхлэх ёстой - үүний тулд бид үүнийг үйл явдал зохицуулагч дээр байрлуулах болно. Сонголт бидний ном.

Таб дээрх ижил нэртэй товчлуурыг ашиглан Visual Basic Editor-ийг нээнэ үү Developer (Хөгжүүлэгч) эсвэл гарын товчлолууд Зүүн Alt+F11. Төслийн самбарын зүүн дээд буланд байгаа номоо олоод, доторх модулийг давхар товшиж нээнэ үү Энэ ном (Энэ ажлын ном):

Нээгдэх цонхонд дараах макро кодыг хуулж буулгана уу.

Private Sub Workbook_SheetSelectionChange(ByVal Sh Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub

Одоо аль нэг мужийг сонгосон үед (нэгээс илүүг оруулаад) түүний хаяг нь статусын мөрөнд харагдах болно:

Статус талбарт хэрэгтэй мэдээлэл

Ctrl-ээр сонгосон хэд хэдэн мужуудын хаягийг нэгтгэхээс урьдчилан сэргийлэхийн тулд та жижиг сайжруулалт нэмж болно - Орлуулах функцийг ашиглан таслалыг таслалаар зайгаар солино уу:

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 Object, ByVal Target of Range) Dim CellCount of Variant, rng The Range in Selection.Areas 'Бүх сонголтоор давтагдах RowsCount = rng.Rows.Count 'мөрийн тоо ColumnsCountlums =r . ' баганын тоо CellCount = CellCount + RowsCount * ColumnsCount 'нийт нүдний тоог хуримтлуулна Дараа нь 'статус мөрөнд харуулна Application.StatusBar = "Сонгосон: " & CellCount & " нүд" Төгсгөлийн дэд

Энэ макро нь Ctrl-ийн сонгосон бүх хэсэгт (хэрэв нэгээс олон байвал), RowsCount болон ColumnsCount хувьсагчид талбар бүрийн мөр, баганын тоог хадгалж, CellCount хувьсагчийн нүднүүдийн тоог хуримтлуулж, дараа нь харуулах болно. статус талбарт. Ажил дээрээ энэ нь иймэрхүү харагдах болно.

Статус талбарт хэрэгтэй мэдээлэл

Мэдээжийн хэрэг та энэ болон өмнөх макронуудыг нэгтгэж сонгосон мужын хаяг болон нүдний тоог нэгэн зэрэг харуулах боломжтой. Та зөвхөн эцсийн өмнөх нэг мөрийг өөрчлөх хэрэгтэй:

Application.StatusBar = "Сонгосон: " & Солих(Selection.Address(0, 0), ",", ", ") & " - нийт " & CellCount & " нүд"

Дараа нь зураг маш гайхалтай байх болно:

Статус талбарт хэрэгтэй мэдээлэл

За, та санаагаа авсан гэж бодож байна. Сэтгэгдэл дээр санал болго - статус талбарт өөр юу харуулах хэрэгтэй вэ?

  • Макро гэж юу вэ, тэд хэрхэн ажилладаг, тэдгээрийг хэрхэн ашиглах, үүсгэх
  • Excel хуудсан дээрх координатын тохиромжтой сонголт
  • Нарийн төвөгтэй томъёог хэрхэн илүү нүдээр харуулах вэ

хариу үлдээх