Використання VBA для створення карти робочого аркуша

Ви коли-небудь намагалися зрозуміти незнайому (і складну) книгу Excel? Було б корисно побачити карту, яка надає огляд того, які клітинки містять константи, а які — значення.

Ви можете створити утиліту VBA, яка генерує карту активного робочого аркуша. Карта створюється на новому аркуші й складається з клітинок із кольоровим кодуванням, які дозволяють швидко визначити значення, текст і формули.

Нижче ви бачите приклад такої карти. Комірки, які містять текст, мають зелений колір, клітинки, які містять числове значення, жовті, а клітинки, які містять формули, червоні. Така карта може допомогти вам виявити потенційні помилки. Наприклад, якщо одна формула в блоці формул була перезаписана значенням, ця клітинка буде виділятися в поданні карти (як у клітинці Q11 у прикладі).

Використання VBA для створення карти робочого аркуша

Код QuickMap VBA

Процедура VBA, яка створює карту аркуша, наведена нижче. Якщо ви хочете використовувати цю утиліту, просто скопіюйте код і вставте його в модуль VBA. Потім активуйте робочий аркуш і виконайте підпрограму QuickMap.

Sub QuickMap()
  Dim FormulaCells як варіант
  Приглушити текстові клітинки як варіант
  Приглушені NumberCells як варіант
  Темна область як діапазон
  Якщо TypeName(ActiveSheet) <> «Worksheet», то вийдіть із Sub
' Створіть об'єктні змінні для підмножин клітинок
  Помилка Продовжити далі
  Установіть FormulaCells = Range(“A1”).SpecialCells _
   (xlFormulas, xlNumbers + xlTextValues ​​+ xlLogical)
  Встановити TextCells = Range(“A1”).SpecialCells(xlConstants, xlTextValues)
  Встановити NumberCells = Range(“A1”).SpecialCells(xlConstants, xlNumbers)
  Помилка Перейти до 0
' Додайте новий аркуш і відформатуйте його
  Аркуші.Додати
  З клітинами
    .Ширина стовпця = 2
    .Розмір шрифту = 8
    .HorizontalAlignment = xlCenter
  Закінчити з
  Application.ScreenUpdating = False
' Виконайте клітинки формули
  Якщо не IsEmpty(FormulaCells), то
    Для кожної області в FormulaCells.Areas
      З ActiveSheet.Range(Area.Address)
        .Value = "F"
        .Interior.ColorIndex = 3
      Закінчити з
    Наступна область
  Кінець Якщо
' Виконайте текстові клітинки
  Якщо не IsEmpty(TextCells), то
    Для кожної області в TextCells.Areas
      З ActiveSheet.Range(Area.Address)
        .Value = "T"
        .Interior.ColorIndex = 4
      Закінчити з
    Наступна область
  Кінець Якщо
' Введіть числові клітинки
  Якщо не IsEmpty(NumberCells), то
    Для кожної області в NumberCells.Areas
      З ActiveSheet.Range(Area.Address)
        .Value = "N"
        .Interior.ColorIndex = 6
      Закінчити з
    Наступна область
  Кінець Якщо
Кінець суб

Як це працює

Процедура спочатку перевіряє, чи є активний аркуш робочим аркушем. Якщо це не так, є швидкий вихід без подальших дій. Якщо активний аркуш є робочим аркушем, процедура створює три об’єктні змінні за допомогою методу SpecialCells для визначення різних типів комірок. Метод SpecialCells дуже корисний. Якщо ви не знайомі з ним, перегляньте це у файлі онлайн-довідки Excel. Зверніть увагу на використання параметра On Error Resume Next. Це потрібно, щоб уникнути помилки, яка виникає, якщо жодна клітинка не відповідає вимогам, наприклад, якщо на аркуші немає формул.

Далі процедура додає новий аркуш, зменшує ширину комірки та встановлює горизонтальне вирівнювання по центру. Цей крок є косметичним. Потім субстанція вимикає оновлення екрана, щоб трохи прискорити роботу.

Наступні три блоки коду обробляють клітинки. Якщо жодна клітинка не відповідає вимогам, змінна об’єкта має значення Empty, тому підсистема перевіряє це. Потім підпрограма перебирає кожну область в об’єкті Range і форматує комірку. Ви можете легко налаштувати цю частину підпрограми для застосування різного форматування.

Перегляньте надбудову Power Utility Pak, щоб отримати набагато більш складну версію цієї утиліти.

Leave a Comment

Як спілкуватися в чаті в Outlook Web App

Як спілкуватися в чаті в Outlook Web App

Досліджуйте, як ефективно спілкуватися в чаті з колегами в Outlook Web App. Дізнайтеся про покрокову інструкцію та нові можливості для підвищення продуктивності.

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows. Microsoft Word відкриває файли в режимі лише для читання, що робить неможливим їх редагування? Не хвилюйтеся, методи наведено нижче

Як виправити неправильний друк документів Microsoft Word

Як виправити неправильний друк документів Microsoft Word

Як виправити помилки під час друку неправильних документів Microsoft Word Помилки під час друку документів Word зі зміненими шрифтами, безладними абзацами, відсутнім текстом або втраченим вмістом є досить поширеними. Однак не варто

Зітріть малюнки ручкою та маркером на слайдах PowerPoint

Зітріть малюнки ручкою та маркером на слайдах PowerPoint

Якщо ви використовували перо або маркер для малювання на слайдах PowerPoint під час презентації, ви можете зберегти малюнки для наступної презентації або стерти їх, щоб наступного разу, коли ви показуватимете їх, розпочали з чистих слайдів PowerPoint. Дотримуйтесь цих інструкцій, щоб стерти малюнки пером і маркером: Стирання рядків на одній з […]

Вміст бібліотеки стилів у SharePoint 2010

Вміст бібліотеки стилів у SharePoint 2010

Бібліотека стилів містить файли CSS, файли мови розширюваної мови таблиць стилів (XSL) та зображення, які використовуються попередньо визначеними основними сторінками, макетами сторінок та елементами керування в SharePoint 2010. Щоб знайти файли CSS у бібліотеці стилів сайту видавництва: виберіть «Дії сайту»→ «Перегляд». Весь вміст сайту. З’являється вміст сайту. Бібліотека Style знаходиться в […]

Форматуйте числа в тисячах і мільйонах у звітах Excel

Форматуйте числа в тисячах і мільйонах у звітах Excel

Не перевантажуйте аудиторію гігантськими цифрами. У Microsoft Excel ви можете покращити читабельність своїх інформаційних панелей і звітів, відформатувавши числа, щоб вони відображалися в тисячах або мільйонах.

Як ділитися сайтами SharePoint і слідкувати за ними

Як ділитися сайтами SharePoint і слідкувати за ними

Дізнайтеся, як використовувати інструменти соціальних мереж SharePoint, які дозволяють особам і групам спілкуватися, співпрацювати, обмінюватися інформацією та спілкуватися.

Як перетворити дати в юліанські формати в Excel

Як перетворити дати в юліанські формати в Excel

Юліанські дати часто використовуються у виробничих середовищах як мітка часу та швидкий довідник для номера партії. Цей тип кодування дати дозволяє роздрібним продавцям, споживачам та агентам з обслуговування визначити, коли був виготовлений продукт, а отже, і вік продукту. Юліанські дати також використовуються в програмуванні, військовій справі та астрономії. Інший […]

Як створити веб-програму Access

Як створити веб-програму Access

Ви можете створити веб-програму в Access 2016. Так що ж таке веб-програма? Ну, веб означає, що він онлайн, а додаток — це просто скорочення від «додаток». Користувацька веб-програма — це онлайн-додаток для баз даних, доступ до якого здійснюється з хмари за допомогою браузера. Ви створюєте та підтримуєте веб-програму у настільній версії […]

Панель швидкого запуску в SharePoint 2010

Панель швидкого запуску в SharePoint 2010

Більшість сторінок у SharePoint 2010 відображають список посилань навігації на панелі швидкого запуску ліворуч. Панель швидкого запуску відображає посилання на пропонований вміст сайту, наприклад списки, бібліотеки, сайти та сторінки публікації. Панель швидкого запуску містить два дуже важливі посилання: Посилання на весь вміст сайту: […]