Полезные макросы для Microsoft Excel

Еще несколько полезных макросов для Microsoft Excel

Копирование данных из выделенного диапазона ячеек для вставки в другие программы через слеш «/» или «|»

Вид слеша изменяется путем редактирования макроса

MergeAllData.xlsm для Excel 2010

MergeAllData.xls для Excel 2003

В этих файлах использована библиотека MS Forms 2.0. Если вы будете использовать готовые файлы, ничего дополнительно делать не нужно. Если вы хотите использовать в своем проекте только текст процедуры по вставке в другие программы, вам необходимо будет подключить библиотеку MS Forms 2.0 самостоятельно. Сделать это можно, выбрав в меню редактора VBA Tools – References библиотеку Microsoft Forms 2.0 Object Library:

… либо добавив пустую пользовательскую форму к своему проекту через меню Insert – UserForm:

Поиск в тексте кириллических символов

Задачу решает такой небольшой макрос:

Sub FindCyr() 'Поиск русских букв
Dim MyRange As Range
Dim i As Long
For Each MyRange In Selection
For i = 1 To Len(MyRange)
If Mid$(MyRange, i, 1) Like "[А-Яа-яёЁ]" Then MyRange.Characters(Start:=i, Length:=1).Font.Color = 255
Next i, MyRange
End Sub

Результат:

Печать выделенного фрагмента на один лист в альбомной ориентации:

Sub AlbumPrt()
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .Zoom = False
        .FirstPageNumber = xlAutomatic
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Преобразование текста в дату по выделенному диапазону ячеек;

Макрос предназначен для данных, скопированных из других программ, когда простое изменение формата ячеек не помогает

Sub ChangeToDate()
Selection.NumberFormat = "m/d/yyyy"
Selection.FormulaLocal = Selection.FormulaLocal
End Sub

О том, как создать и использовать макросы, читайте здесь. Как вместо макросов использовать надстройки и чем это удобнее - здесь.

Ранее:
Как быстро сделать 1000 документов, в которых меняется только клиент и его адрес?