📃 Как открыть в Excel файл CSV?
В русскоязычном Excel разделителем полей по умолчанию является точка с запятой (;). Файлы CSV с разделителем «;» открываются в Excel в виде таблицы. А файлы с разделителем запятая (,), которых большинство, открываются без разбивки на столбцы (вся строка в одной ячейке).

💡 Как открыть в Excel файл CSV с разделителем — запятая (,)?
🔹 Откройте CSV-файл в любом текстовом редакторе.
🔹 Добавьте сверху пустую строку, вставьте в нее текст sep=, и сохраните.

👍 Теперь файл с разделителем запятая (,) будет открываться в Excel в виде таблицы. Верхняя строка с выражением sep=, отображаться не будет.

#Excel #CSV #Разделитель

🧾 Как выровнять заголовок в таблице Excel?
Обычно, чтобы выровнять заголовок в таблице на листе Excel, нажимают кнопку «Объединить и поместить в центре». Но объединенные ячейки зачастую не дружат с кодом VBA Excel.

💡 Как выровнять заголовок на листе Excel без объединения ячеек?
🔹 Введите заголовок в левой ячейке диапазона (части строки), по центру которого требуется выравнивание.
🔹 Выделите участок строки, в центре которого должен быть заголовок.
🔹 Откройте окно «Формат ячеек» и перейдите на вкладку «Выравнивание».
🔹 В раскрывающемся списке «по горизонтали» выберите пункт «по центру выделения» и нажмите «OK».

#Excel #Выравнивание #Заголовок

👌 Динамический диапазон для раскрывающегося списка
Как создать динамический диапазон для раскрывающегося списка? Проще всего сделать его с помощью умной таблицы.

✅ Создание динамического диапазона для раскрывающегося списка
🔹 Набор данных для раскрывающегося списка преобразуйте в умную таблицу.
🔹 Выберите ячейку, в которой должен быть создан раскрывающийся список.
🔹 Откройте окно «Проверка вводимых значений» (Данные —> Проверка данных).
🔹 Во вкладке «Параметры» выберите «Тип данных» — «Список».
🔹 В поле «Источник» вставьте формулу =ДВССЫЛ("ИмяТаблицы").

#Excel #Динамический #Диапазон #Раскрывающийся #Список

↩️ Перемещение столбцов и строк в Excel вручную
В Excel можно легко перемещать столбцы и строки без потери данных. Это удобно при реорганизации таблиц!

🛠 Как переместить столбец или строку?
1️⃣ Выделите столбец (кликните по букве) или строку (кликните по номеру).
2️⃣ Наведите курсор на границу выделения, чтобы появился значок перемещения (тонкий крестик со стрелками на концах).
3️⃣ Зажмите Shift и перетащите выделенный диапазон в нужное место.
4️⃣ Отпустите кнопку мыши – данные вставятся без замены! 🚀

✴️ Особенности
🔹 Shift гарантирует, что другие данные не сотрутся.
🔹 Можно перемещать сразу несколько столбцов или строк!

💡 Этот способ работает во всех версиях Excel и позволяет быстро менять структуру таблицы!

#Excel #Перемещение #Строка #Столбец

🔲 Максимизация окна Excel при открытии

Если у вас файлы Excel открываются узкой полоской вверху экрана или мелким квадратиком в правом углу, не зависимо от того, в каком состоянии они были закрыты, можно воспользоваться принудительной максимизацией окна Excel при открытии.

🔥 Ниже приведены примеры кода, которые работали у меня. Размещаются процедуры в модуле ЭтаКнига личной книги макросов.

1️⃣ Для Excel 2010

Private Sub Workbook_Open()
    Application.WindowState = xlMaximized
End Sub

2️⃣ Для Excel 2016

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

💡 Возможно, второй код подойдет и для Excel 2010 - проверить не было возможности.

#VBA #Excel #Максимизация #Window #Maximized

🛠 Исправление ошибок в Personal.xlsb

Если в коде процедур, размещенных в личной книге макросов (Personal.xlsb) и запускаемых при загрузке Excel, будут допущены ошибки, Excel может перестать открываться.

🚀 Решается проблема следующим образом:

1️⃣ Перейдите в папку XLSTART:
🔹 Путь к папке XLSTART:
C:\Users\user\AppData\Roaming\Microsoft\Excel\XLSTART
🔹 Так как папка AppData - скрытая, у вас должно быть включено отображение скрытых папок
2️⃣ Переместите файл Personal.xlsb в другое место, например, в папку Excel.
3️⃣ Перезагрузите компьютер и откройте любой файл Excel с поддержкой макросов.
4️⃣ Откройте перемещенный файл Personal.xlsb (он появится в проводнике редактора VBA).
5️⃣ Исправьте ошибки в проблемной процедуре.
6️⃣ Сохраните и закройте Excel.
7️⃣ Переместите файл Personal.xlsb обратно в папку XLSTART.

💡 Если файл Personal.xlsb окажется поврежденным, его на 2 шаге можно просто удалить и, после перезагрузки, создать новый.

#VBA #Excel #XLSTART #Personalxlsb #ЛичнаяКнигаМакросов

🔥 Функциональные клавиши в Excel (F1–F12) и полезные сочетания

Использование функциональных клавиш (F1–F12) — это способ ускорить выполнение в Excel различных задач. Функциональные клавиши работают как самостоятельно, так и в сочетании с другими клавишами (Alt, Ctrl, Shift).

✨ Функции клавиш F1–F12

🔹 F1 – Открывает справку Excel.
🔹 F2 – Редактирует активную ячейку (курсор перемещается в строку формул).
🔹 F3 – Отображает диалоговое окно "Вставка имени" (если имена определены).
🔹 F4 – Переключает в формулах тип ссылок ($A$1 → A$1 → $A1 → A1).
🔹 F5 – Открывает окно "Перейти" для быстрого перехода к ячейке или диапазону.
🔹 F6 – Переключает фокус между панелями (лист, строка формул, панель вкладок).
🔹 F7 – Запускает проверку орфографии.
🔹 F8 – Включает режим выделения (позволяет расширять выделение стрелками).
🔹 F9 – Пересчитывает все формулы в книге (полезно при ручном режиме расчета).
🔹 F10 – Активирует меню (аналог Alt).
🔹 F11 – Создает новый график на отдельном листе из выделенного диапазона.
🔹 F12 – Открывает окно "Сохранить как".

💫 Полезные сочетания с функциональными клавишами

🔹 Ctrl + F1 – Сворачивает/разворачивает ленту (Ribbon).
🔹 Ctrl + F2 – Открывает окно предварительного просмотра перед печатью.
🔹 Ctrl + F3 – Открывает диспетчер имен для управления именованными диапазонами.
🔹 Ctrl + F4 – Закрывает текущую книгу, не выходя из Excel.
🔹 Ctrl + F6 – Переключается между открытыми книгами Excel.
🔹 Ctrl + F9 – Сворачивает окно текущей книги в значок на панели задач.
🔹 Ctrl + F10 – Разворачивает/сворачивает окно текущей книги.
🔹 Alt + F4 – Закрывает Excel полностью.
🔹 Alt + F11 – Открывает редактор VBA для написания макросов.
🔹 Shift + F2 – Добавляет или редактирует примечание к ячейке.
🔹 Shift + F3 – Открывает окно "Вставка функции" (помощник для формул).
🔹 Shift + F5 – Запускает поиск (аналог Ctrl + F).
🔹 Shift + F11 – Добавляет новый лист в книгу.

💡 Если функциональные клавиши не работают, проверьте, не включен ли режим Fn Lock на вашей клавиатуре (особенно на ноутбуках).

#Excel #Горячие #Функциональные #Клавиши #Сочетания

Пользовательские функции
Дата прописью в Excel
Денежная сумма прописью
Значение параметра функции по умолчанию
Курс валют
Синтаксис пользовательской функции
Функции для работы с буфером обмена
Функции для сортировки массива

#VBA #Excel #Функция #Пользовательская

🔥 Вставка популярных символов в ячейки Excel

Быстрая вставка популярных символов в ячейки Excel (а также в Word, Блокнот) осуществляется с помощью левой клавиши Alt + [код символа]. ✨

Код символа набирается на цифровом блоке клавиатуры ⌨️ (в правой ее части). Применение сочетания клавиш удобнее, чем вызов Таблицы символов.

Мне чаще всего приходится использовать Alt-коды для ввода кавычек-ёлочек (кроме Word, конечно), знаков градуса и рубля:
Alt + [0171] → [«];
Alt + [0187] → [»];
Alt + [0176] → [°];
Правый Alt + [8] → [₽] (здесь 8 нажимается в строке над буквенным блоком клавиатуры).

Alt-коды других популярных символов в таблице ниже.

#VBA #Excel #Символ #Вставка #Alt #Код

📋 Элемент управления ListView
ListView (вид списка, представление списка) — элемент управления, который позволяет отображать данные в виде значков, списка или таблицы внутри формы VBA Excel. Чаще всего ListView используется для отображения данных в виде таблицы - режим Отчет (lvwReport).

🎈 Добавление ListView на UserForm
1️⃣ Откройте редактор VBA (Alt + F11).
2️⃣ В редакторе VBA выберите Tools → References.
3️⃣ Найдите и активируйте библиотеку Microsoft Windows Common Controls, если она ещё не активирована.
4️⃣ Создайте новую форму (Insert → UserForm).
5️⃣ Если панели элементов управления не видно, откройте ее (View → Toolbox).
6️⃣ Щелкните правой кнопкой мыши на панели элементов управления и выберите «Additional Controls…» (Дополнительные элементы управления…).
7️⃣ Найдите «Microsoft ListView Control» и добавьте его на панель.
8️⃣ Перетащите элемент ListView с панели элементов на вашу UserForm.

📌 Пример заполнения ListView
Пример отображения списка сотрудников с их ФИО, должностью и отделом:

Private Sub UserForm_Initialize()
    ' Настройка формы
    With Me
        .Caption = "Список сотрудников"
        .Width = 300
        .Height = 160
    End With
 
    With Me.ListView1
        ' Настройка режима отображения
        .View = lvwReport
        .Gridlines = True
        .FullRowSelect = True
        .Left = Me.Left
        .Top = Me.Top
        .Width = Me.Width ' По ширине разворачиваем на всю форму
        .Height = Me.Height - 70 ' Внизу оставляем место для кнопок
        
        ' Добавляем колонки с заголовками и задаем ширину
        .ColumnHeaders.Add , , "ID", 30 ' Заголовок 1, но столбец 0
        .ColumnHeaders.Add , , "ФИО", 80 ' Заголовок 2, но столбец 1
        .ColumnHeaders.Add , , "Должность", 80 ' Заголовок 3, но столбец 2
        .ColumnHeaders.Add , , "Отдел", 105 ' Заголовок 4, но столбец 3
        
        ' Добавляем строки
        Dim itm As ListItem
        
        Set itm = .ListItems.Add(, , "1") ' Элемент 1 строки (0 столбец)
        itm.SubItems(1) = "Иванов И.И."   ' Подэлемент 1 строки (1 столбец)
        itm.SubItems(2) = "Менеджер"      ' Подэлемент 1 строки (2 столбец)
        itm.SubItems(3) = "Отдел продаж"  ' Подэлемент 1 строки (3 столбец)
        
        Set itm = .ListItems.Add(, , "2")
        itm.SubItems(1) = "Петров П.П."
        itm.SubItems(2) = "Аналитик"
        itm.SubItems(3) = "Финансовый отдел"
        
        Set itm = .ListItems.Add(, , "3")
        itm.SubItems(1) = "Сидоров С.С."
        itm.SubItems(2) = "Программист"
        itm.SubItems(3) = "ИТ-отдел"
    End With
End Sub

Вставьте код примера в модуль UserForm. Результат работы кода представлен на изображении ниже.

#VBA #Excel #ListView #Отчет #Report

🔢 Сортировка данных в ListView

Чтобы сортировать данные в табличных отчетах ListView, добавьте следующий код VBA Excel в модуль формы:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    With Me.ListView1
        .Sorted = True
        .SortKey = ColumnHeader.SubItemIndex  ' Сортировка по выбранному столбцу
        .SortOrder = IIf(.SortOrder = 1, 0, 1)  ' Переключение порядка сортировки
    End With
End Sub

Теперь при клике по заголовку любого столбца произойдет сортировка строк по данным этого столбца. При первом клике будет порядок сортировки — по убыванию, при втором — по возрастанию, при третьем — снова по убыванию и так далее.

💡 Небольшое пояснение для поста выше:
В таблицах ListView нумерация столбцов начинается с 0 (ColumnHeader.SubItemIndex), а нумерация заголовков столбцов - с 1 (ColumnHeader.Index).

#VBA #Excel #ListView #Сортировка #Sort #ColumnHeader

Доступ к данным в таблице ListView
Вывод данных из выделенной строки в таблице ListView с помощью кода VBA Excel на примере таблицы со скриншота выше.

Добавьте на форму с ListView элемент управления CommandButton1 (кнопка) и в модуль формы вставьте следующий код:

Private Sub CommandButton1_Click()
Dim sItem As ListItem
Set sItem = ListView1.selectedItem
    If Not sItem Is Nothing Then
        MsgBox "Выбрана строка:" & vbNewLine & _
            "ID = " & sItem.Text & vbNewLine & _
            "ФИО = " & sItem.ListSubItems(1).Text & vbNewLine & _
            "Должность = " & sItem.ListSubItems(2).Text & vbNewLine & _
            "Отдел = " & sItem.ListSubItems(3).Text
    Else
        MsgBox "Строка не выбрана!"
    End If
End Sub

Откройте форму с ListView, выберите строку и нажмите кнопку CommandButton1. Информационное окно MsgBox отобразит данные из выделенной строки.

#VBA #Excel #ListView #Данные #Вывод

📋 ListView в режиме lvwSmallIcon
ListView в режиме lvwSmallIcon - это более удачный вариант, чем ListView в режиме lvwIcon. По крайней мере, на моём программном обеспечении.

Пример использования ListView в режиме lvwSmallIcon
1️⃣ Подключите библиотеку Microsoft Windows Common Controls 6.0 (SP6), если она не подключена.
2️⃣ Добавьте на панель Toolbox элементы управления «Microsoft ListView Control» и «Microsoft ImageList Control».
3️⃣ Создайте новую форму и перетащите на неё элементы ListView, ImageList и CommandButton с панели элементов управления (Toolbox).
4️⃣ Создайте несколько иконок (в примере их 5 штук) и поместите их в папку с именем «Test» на диске «C».
5️⃣ В модуль формы вставьте следующий код:

Private Sub UserForm_Initialize()
    ' Настройка формы
    With Me
        .Caption = "Сообщество смурфов"
        .Width = 350
        .Height = 250
    End With
    
    ' Настройка кнопки
    With CommandButton1
        .Caption = "Выбрать"
        .Width = 60
        .Height = 24
        .Top = Me.Height - 70
        .Left = Me.Width / 3 + 20
        .Font.Size = 10
    End With
    
    ' Настройка ListView
    With ListView1
        .View = lvwSmallIcon
        .LabelEdit = lvwManual
        .Sorted = True
        .MultiSelect = False
        .HideSelection = False
        .FullRowSelect = False
        .Left = Me.Left
        .Top = Me.Top
        .Width = Me.Width ' По ширине разворачиваем на всю форму
        .Height = Me.Height - 80 ' Внизу оставляем место для кнопок
    End With
 
    With ImageList1.ListImages
        .Add , "PapaSmurf", LoadPicture("C:\Test\PapaSmurf.ico")
        .Add , "Smurfette", LoadPicture("C:\Test\Smurfette.ico")
        .Add , "BrainySmurf", LoadPicture("C:\Test\BrainySmurf.ico")
        .Add , "GutsySmurf", LoadPicture("C:\Test\GutsySmurf.ico")
        .Add , "ClumsySmurf", LoadPicture("C:\Test\ClumsySmurf.ico")
    End With
 
    ' Привязка ImageList к ListView
    Set ListView1.SmallIcons = ImageList1
 
    ' Добавление элементов с иконками
    With ListView1.ListItems
        .Add , , "Папа Смурф", , "PapaSmurf"
        .Add , , "Смурфетта", , "Smurfette"
        .Add , , "Смурф Знайка", , "BrainySmurf"
        .Add , , "Смурф Храбрец", , "GutsySmurf"
        .Add , , "Смурф Растяпа", , "ClumsySmurf"
    End With
End Sub

Запустите форму, нажав на треугольник (Run Sub/UserForm) или на клавишу F5. Результат работы кода на скриншоте ниже.

#VBA #Excel #ListView #Icon #Значок #Иконка

📋 ListView в режиме lvwSmallIcon (продолжение)

Для определения, какой элемент ListView1 выбран, добавьте в модуль формы процедуру для кнопки:

Private Sub CommandButton1_Click()
    MsgBox ListView1.selectedItem.Text
End Sub

Теперь при нажатии на кнопку «Выбрать», информационное окно будет выводить текст выбранного элемента.

#VBA #Excel #ListView #Icon #Значок #Иконка

☀️ Создание фигур в VBA Excel

Фигуры в VBA Excel создаются методом Shapes.AddShape:

Shapes.AddShape (Type, Left, Top, Width, Height)

Параметры метода AddShape:
🔸 Type - константа из коллекции MsoAutoShapeType, определяющая тип создаваемой фигуры.
🔸 Left - расстояние от левой границы фигуры до левой границы табличной части рабочего листа в пунктах. Тип данных — Single.
🔸 Top - расстояние от верхней границы фигуры до верхней границы табличной части рабочего листа в пунктах. Тип данных — Single.
🔸 Width - ширина фигуры по внешним границам в пунктах.
🔸 Height - высота фигуры по внешним границам в пунктах.

Пример создания фигур:

Sub Primer1()
    With ActiveSheet.Shapes
        'При создании фигуры без присвоения ее переменной скобки не нужны
        .AddShape msoShapeCube, 30, 40, 72, 72
        .AddShape msoShapeIsoscelesTriangle, 130, 40, 72, 72
        .AddShape msoShapeSun, 230, 40, 72, 72
        .AddShape msoShapeLightningBolt, 330, 40, 72, 72
        'Чтобы выбрать фигуру, параметры необходимо заключить в скобки
        .AddShape(msoShapeCloud, 430, 40, 72, 72).Select
    End With
End Sub

Результат работы кода на скриншоте ниже.

#VBA #Excel #Shape #AddShape #Фигура #Создать

🔢 Метод Evaluate и квадратные скобки

❓ А вы знали, что действие квадратных скобок в VBA Excel аналогично действию метода Application.Evaluate?

💡 У метода Evaluate есть более короткий и удобный синоним — квадратные скобки. У квадратных скобок есть недостатки: в них не получится использовать переменные и вычислять математические выражения, переданные текстовой строкой.

🔬 Сравнение доступа к ячейке разными способами: традиционным, стандартным Evaluate и сокращенным (квадратные скобки).

1️⃣ Ссылка на ячейку в текущей книге

Debug.Print Sheets("Лист2").Range("A14")
Debug.Print Evaluate("Лист2!A14")
Debug.Print [Лист2!A14]

2️⃣ Ссылка на ячейку в другой книге

Debug.Print Workbooks("Книга2.xlsm").Sheets("Лист2").Range("A14")
Debug.Print Evaluate("'[Книга2.xlsm]Лист2'!A14")
Debug.Print ['[Книга2.xlsm]Лист2'!A14]

Доступ к ячейке через Evaluate не рекомендуется использовать в циклах, так как он медленнее, чем через Range.

Больше примеров с методом Evaluate и квадратными скобками на сайте Время не ждёт в статье: VBA Excel. Метод Application.Evaluate.

#VBA #Excel #Evaluate #Метод #Ссылка #Скобки