mail mail
Нужен макрос для Excel?
Сделайте заказ прямо сейчас!
Ищете готовое решение?
Выбирайте и покупайте!
У вас есть интернет-магазин?
Настроим парсер под любой сайт!

Макросы VBA Excel

Получение списка IP адресов средствами VBA

Фунцкия Get_All_IP_Addresses возвращает коллекцию, содержащую все IP-адреса всех сетевых интерфейсов.

Пример использования функции:

Sub ВыводРезультатов_Get_All_IP_Addresses()
    For Each IPaddr In Get_All_IP_Addresses
        txt = txt & IPaddr & vbNewLine
    Next
    MsgBox txt, vbInformation, "Список всех IP адресов"
End Sub

Просмотр длинной текстовой строки (сохранение текста в файл)

Данный макрос предназначен для облегчения анализа длинных текстовых строк.

К примеру, в вашем макросе формируется длинная текстовая строка (вы сцепили значения диапазона ячеек, или загрузили текст веб-страницы в текстовую переменную)

Чтобы проанализировать текст на этапе отладки программы, вам необходимо изучить структуру этого текста, - а это удобнее делать в текстовом редакторе
(например, в Блокноте, хотя лично я использую только Notepad++, поскольку он в тысячу раз удобнее Блокнота)

В этом вам поможет макрос ShowText:

Sub ПримерИспользования_ShowText()
    ' исходный текст любой длины в переменной txt
    txt = "Некая текстовая строка, которую нам надо сохранить в файл" & vbNewLine & _
           "Поскольку текстовая строка весьма длинная, просматривать её в MSGBOX не удобно" & vbNewLine & _
           "Потому мы её просмотрим в Блокноте, предварительно создав временный текстовый файл"
 
    ' сохраняем строку в файл, и открываем файл в Блокноте
    ShowText txt
End Sub

Поиск значения на листе относительно ячейки с заданным текстом

Function FindAndInsert(ByRef sh As Worksheet, ByVal txt As String, _
                       ByVal OffsetY As Long, ByVal OffsetX As Long, Optional ByVal NewValue = Null) As Range
    ' ищет на листе sh ячейку, содержащую текст txt,
    ' после чего (если задано значение NewValue) в ячейку со смещением OffsetY , OffsetX
    ' вставляет формулу (в стиле R1C1) NewValue
    ' Возвращает ячейку, предназначенную для вставки
    On Error Resume Next: Err.Clear
    Set FindAndInsert = sh.UsedRange.Find(txt, , xlValues, xlPart)      '.MergeArea.Cells(1)

Установка и удаление ссылок (References) на другие проекты VBA

Sub RemoveReference()
    For Each Ref In Application.VBE.ActiveVBProject.References
        ' Debug.Print Ref.Name
        If Ref.Name = "My_Project" Then Application.VBE.ActiveVBProject.References.Remove Ref
    Next
End Sub
 
Sub AddReference(): Found = False
    For Each Ref In Application.VBE.ActiveVBProject.References
        Debug.Print Ref.Name
        If Ref.Name = "My_Project" Then Found = True
    Next
    If Not Found Then Application.VBE.ActiveVBProject.References.AddFromFile "c:\Program Files\MyProject.xla"
End Sub

Восстановление форматирование гиперссылок

Если вы выделили ячейки с гиперссылками, и случайно изменили их форматирование (цвет шрифта и т.п.),
а теперь хотите вернуть все гиперссылки в книге к исходному виду (синие и подчеркнутые), — то вам поможет этот макрос.

ВНИМАНИЕ: макрос применяется ко всем листам, и всем ячейкам, содержащим гиперссылки.

Sub RestoreHyperlinksStyle()
    Dim cell As Range, sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Worksheets
        For Each cell In sh.UsedRange.SpecialCells(xlCellTypeConstants)