Як перерахувати всі властивості файлу Excel на аркуші?
У цій статті я представляю код VBA, щоб перерахувати всі властивості активної книги на аркуші.
1. прес Alt + F11 клавіші, щоб увімкнути вікно Microsoft Visual Basic for Applications.
2. клацання Insert > Модуліта вставте код нижче в порожній модуль.
VBA: Перелічіть усі властивості
Sub WBProperties()
'UpdatebyKutools20191031
Dim xWB As Workbook
Dim xF As Long
Dim xStr As String
Dim xWSh As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Workbook Properties"
Set xWB = Application.ActiveWorkbook
Set xWSh = xWB.Worksheets.Item(xStr)
If Not xWSh Is Nothing Then
xWSh.Delete
End If
Set xWSh = xWB.Worksheets.Add
xWSh.Name = xStr
xWSh.Range("A1").Value = "Property"
xWSh.Range("B1").Value = "Value"
With xWB
For xF = 1 To .BuiltinDocumentProperties.Count
xWSh.Range("A65536").End(xlUp).Offset(1, 0).Value = _
.BuiltinDocumentProperties.Item(xF).Name
xWSh.Range("A65536").End(xlUp).Offset(0, 1).Value = _
.BuiltinDocumentProperties.Item(xF).Value
Next xF
End With
Application.DisplayAlerts = True
End Sub
3. прес F5 клавіші для запуску коду, перед аркушем активного аркуша створено новий аркуш із назвою Workbook Properties (Властивості робочої книги), у якому перелічено всі властивості активної книги.
Вимкніть надбудови під час запуску Excel
Можливо, ви встановили деякі надбудови у своєму Microsoft Excel, але тепер вам потрібно вимкнути вказану надбудову під час запуску Excel. Як вирішити цю проблему? Метод у цій статті може вам допомогти.
Експортуйте та збережіть кожен аркуш як окрему нову книгу в Excel
Скажімо, ви хочете експортувати та зберегти один або кілька аркушів як нову книгу, як ви з цим справитесь? Зазвичай ви можете копіювати кожен аркуш і вставляти в нову книгу. Але тут ми пропонуємо вам кілька корисних прийомів, щоб вирішити це:
Код VBA для переліку всіх надбавок в Excel
В Excel ви можете додати або вставити деякі надбудови для кращої роботи з даними. Як ми знаємо, ми можемо перейти до вікна Параметри, щоб переглянути всі додані файли, але чи є спосіб перерахувати всі додані файли на аркуші?
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!