- •Оглавление
- •Глава 2. Рабочая область Microsoft Excel 7
- •Глава 3. Создание трюков с помощью макросов 52
- •Глава 4. Трюки и эффекты с помощником 125
- •Закрытие рабочей книги только при выполнении условия
- •Быстрое удаление из рабочей книги ненужных имен
- •Сортировка листов в текущей рабочей книге
- •Импорт данных, для которых нужно более 256 столбцов
- •Рабочий лист Новый лист — через макрос
- •Блокировка использования контекстного меню
- •Вставка колонтитула с именем книги, листа и текущей датой
- •Проверка существования листа
- •Проверка, защищен ли рабочий лист
- •Сколько страниц на всех листах?
- •Автоматический пересчет данных таблицы при изменении ее значений
- •Ячейка и диапазон
- •Второй способ
- •Третий способ
- •Помещение в ячейку электронных часов
- •Создание цветной границы диапазона
- •Непосредственный ввод данных
- •Последовательный ввод данных
- •Быстрое выделение ячеек с отрицательными значениями
- •Получение информации о выделенном диапазоне
- •Панель инструментов изменения числового формата ячейки
- •Тестирование скорости чтения и записи диапазонов
- •Разработка и применение полезных пользовательских функций Объединение данных диапазона
- •Объединение данных с учетом форматов
- •Эксперименты с датой
- •Выбор из текста всех чисел
- •Прописная буква только в начале текста
- •Перевод чисел в «деньги»
- •Подсчет количества повторов искомого текста
- •Суммирование данных только видимых ячеек
- •При суммировании — курсор внутри диапазона
- •Начисление процентов в зависимости от суммы
- •Еще о расчете процентов
- •Сводный пример расчета комиссионного вознаграждения
- •Подсчет количества ячеек, содержащих указанные значения
- •Подсчет количества видимых ячеек в диапазоне
- •Поиск ближайшего понедельника
- •Подсчет количества полных лет
- •Проверка, была ли сохранена рабочая книга
- •Расчет средневзвешенного значения
- •Преобразование номера месяца в его название
- •Отображение текста «задом наперед»
- •Поиск максимального значения на всех листах книги
- •Использование относительных ссылок
- •Определение типа данных ячейки
- •Выделение из текста произвольного элемента
- •Генератор случайных чисел
- •Случайные числа — на основании диапазона
- •Глава 3. Создание трюков с помощью макросов Подсчет количества открытий файла
- •Получение «закрытой» информации
- •Произвольный текст в строке состояния
- •Быстрое изменение заголовка окна
- •Ввод данных с помощью диалогового окна
- •Применение функции без ввода ее в ячейку
- •Скрытие строк и столбцов от посторонних
- •Быстрое выделение ячеек, расположенных через интервал
- •Определение количества ячеек в диапазоне и суммы их значений
- •Подсчет именованных объектов
- •Быстрый поиск курсора
- •Создание списка примечаний рабочего листа
- •Несколько трюков в одном примере
- •Дополнение панели инструментов
- •Примеры создания панелей инструментов
- •Формирование пользовательского меню
- •Проверка наличия файла по указанному пути
- •Автоматизация удаления файлов
- •Перечень имен листов в виде гиперссылок
- •Удаление пустых строк на рабочем листе
- •Запись текущих данных в текстовый файл
- •Экспорт и импорт данных
- •Одновременное умножение всех данных диапазона
- •Преобразование таблицыExcelв html-формат
- •Поиск данных нештатными средствами
- •Включение автофильтра с помощью макроса
- •Быстрая вставка фамилий должностных лиц в документ
- •Вызов окна настройки шрифта
- •Вывод информации о текущем документе
- •Вывод результата расчетов в отдельном окне
- •Вывод разрешения монитора
- •Что открыто в данный момент?
- •Создание бегущей строки
- •Создание бегущей картинки
- •Мигающая ячейка
- •Вращающиеся автофигуры
- •Вызов таблицы цветов
- •Создание калькулятора
- •Еще о создании пользовательских меню Меню с пользовательскими командами
- •Замена стандартного меню пользовательским
- •Склонение фамилии, имени и отчества
- •Получение информации об используемом принтере
- •Вывод текущей даты и времени
- •Автоматическое создание документовWordна основе табличных данныхExcel
- •Создание списка панелей инструментов и контекстных меню
- •Создание списка пунктов главного менюExcel
- •Создание списка пунктов контекстных меню
- •Отображение панели инструментов при определенном условии
- •Скрытие и отображение панелей инструментов
- •Создание меню на основе данных рабочего листа
- •Создание контекстного меню
- •Просмотр содержимого папки
- •Получение информации о состоянии дисков
- •Расчет среднего арифметического
- •Вывод списка доступных шрифтов
- •Обработка сразу нескольких внешних файлов
- •Запуск таблицы символов изExcel
- •Создание раскрывающегося списка
- •Добавление команды в меню Добавление команды в меню Сервис
- •Добавление команды в меню Вид
- •Глава 4. Трюки и эффекты с помощником Мультфильм с помощником в главной роли
- •Дополнение помощника текстом, заголовком, кнопкой и значком
- •Новые параметры помощника
- •Использование помощника для выбора цвета заливки
- •Глава 5. Эксперименты с диаграммами Построение диаграммы с помощью макроса
- •Сохранение диаграммы в отдельном файле
- •Построение и удаление диаграммы нажатием одной кнопки
- •Вывод списка диаграмм в отдельном окне
- •Применение случайной цветовой палитры
- •Эффект прозрачности диаграммы
- •Построение диаграммы на основе данных нескольких рабочих листов
- •Создание подписей к данным диаграммы
- •Глава 6. Создание полезных программ Программа для составления кроссвордов
- •Игра «Минное поле»
- •Игра «Угадай животное»
- •Расчет на основании ячеек определенного цвета
Отображение текста «задом наперед»
Листинг 2.71.Преобразование текста в обратном порядке
Function dhReverseText(strText As String) As String
DimiAsInteger
' Переписываем символы из входной строки в выходную _
в обратном порядке
For i = Len(strText) To 1 Step -1
dhReverseText = dhReverseText & Mid(strText, i, 1)
Next i
End Function
Sub ReverseText()
DimstrTextAsString
' Ввод строки посредством стандартного окна ввода
strText=InputBox("Введите текст:")
' Реверсия строки и вывод результата
MsgBox dhReverseText(strText), , strText
End Sub
Поиск максимального значения на всех листах книги
Листинг 2.72. Поиск максимального значения
Function dhMaxInBook(cell As Range) As Double
Dim sheet As Worksheet
Dim dblMax As Double
Dim dblResult As Double
Dim fFirst As Boolean
fFirst=True
' Расчет максимальных значений на всех листах рабочей книги _
и выбор наибольшего из них
For Each sheet In cell.Parent.Parent.Worksheets
' Расчет максимального значения на листе
dblResult = Application.WorksheetFunction.Max(sheet.UsedRange)
IffFirstThen
' Найдено первое значение - его не с чем сравнивать
dblMax = dblResult
fFirst = False
End If
' Выбираем большее из dblMaxиdbmResult
If dblResult > dblMax Then
dblMax = dblResult
End If
Next sheet
' Возврат результата
dhMaxInBook = dblMax
EndFunction
Использование относительных ссылок
Листинг 2.73.Функция dhSheetOffset
Function dhSheetOffset(offset As Integer, cell As Range) As Variant
' Возврат корректного значения ячейки cellлиста, смещение _
которого относительно текущего задано переменной offset
dhSheetOffset = Sheets(Application.Caller.Parent.Index _
+ offset).Range(cell.Address)
End Function
Листинг 2.74. Функция dhSheetOffset2
Function dhSheetOffset2(offset As Integer, cell As Range) As Variant
' Корректировка смещения (чтобы ссылка была на рабочий лист)
Do While TypeName(Sheets(cell.Parent.Index + offset)) _
<> "Worksheet"
Ifoffset> 0Then
' Пропускаем лист и проходим вперед по книге
offset=offset+ 1
Else
' Пропускаем лист и проходим назад по книге
offset=offset- 1
EndIf
Loop
' Возврат корректного значения ячейки cellлиста, смещение _
которого относительно текущего задано переменной offset_
с пропуском листов с диаграммами
dhSheetOffset2 =Sheets(cell.Parent.Index_
+ offset).Range(cell.Address)
End Function
Определение типа данных ячейки
Листинг 2.75.Тип данных, хранящихся в ячейке
Function dhCellType(rgRange As Range) As String
' Переходим к левой верхней ячейке, если rgRange- диапазон, _
а не одна ячейка
Set rgRange = rgRange.Range("A1")
' Определение типа значения в ячейке
Select Case True
Case IsEmpty(rgRange)
' Ячейка пуста
dhCellType= "Пусто"
Case Application.IsText(rgRange)
' В ячейке текст
dhCellType = "Текст"
Case Application.IsLogical(rgRange)
' В ячейке логическое значение (True или False)
dhCellType = "Булево выражение"
Case Application.IsErr(rgRange)
' При вычислении значения в ячейке произошла ошибка
dhCellType = "Ошибка"
Case IsDate(rgRange)
' В ячейке дата
dhCellType= "Дата"
Case InStr(1, rgRange.Text, ":") <> 0
' В ячейке время
dhCellType = "Время"
Case IsNumeric(rgRange)
' В ячейке числовое значение
dhCellType= "Число"
EndSelect
EndFunction