Цитаты из книги «Excel. Трюки и эффекты»

Большинство описываемых в книге трюков и эффектов выполняется средствами языка VBA (для перехода к редактору VBA используется комбинация клавиш Alt+F11). Книга также содержит описание приемов, выполняемых «подручными» средствами, без программирования.

противном случае. Использование функции Array для заполнения

Второй способ Допустим, что нам нужно быстро заполнить диапазон, состоящий из 10 ячеек в высоту и 5 ячеек в ширину, последовательностью чисел, расположенных по порядку от 1 до 50. Для решения данной задачи напишем в стандартном модуле редактора VBA представленный ниже код (листинг 2.24).

Восстановление важной информации из испорченного файла

Можно ли сделать так, чтобы документ распечатывался вместе с сеткой? По умолчанию Excel не выводит на печать сетку рабочего листа. Однако при необходимости эту настройку можно изменить. Чтобы документ выводился на печать вместе с сеткой, следует перейти на вкладку Разметка страницы и в окне Параметры страницы на вкладке Лист установить флажок сетка, после чего нажать кнопку ОК. Здесь же находится еще несколько полезных параметров – в частности, путем установки флажка заголовки строк и столбцов можно выводить на печать номера строк и названия столбцов; в поле примечания из раскрывающегося списка можно выбрать требуемый режим вывода на печать имеющихся на рабочем листе примечаний (возможные значения – нет, В конце листа и Как на листе); в поле ошибки ячеек как указывается наиболее приемлемый способ печати находящихся в ячейках ошибок.

Sub Clear() ' Выделение и очистка всех используемых для кроссворда ячеек Range(Cells(dhcMinRow, dhcMinCol), _ Cells(dhcMaxRow, dhcMaxCol)).Select Selection.Clear ' Удаление сетки всего кроссворда ClearGrid Range(«A1»).Select End Sub

Sub CreatePanel() Dim i As Integer On Error Resume Next ' Удаление одноименной панели (если есть) CommandBars(«Список месяцев»).Delete On Error GoTo 0 ' Создание панели «Список месяцев» With CommandBars.Add .Name = «Список месяцев» ' Создание списка месяцев With .Controls.Add(Type:=msoControlDropdown) ' Настройка (имя, макрос, стиль) .Caption = «DateDD» .OnAction = «SetMonth» .Style = msoButtonAutomatic ' Добавление в список названий месяцев For i = 1 To 12 .AddItem Format(DateSerial(1, i, 1), «mmmm») Next i ' Выделение первого месяца .ListIndex = 1 End With ' Показываем созданную панель .Visible = True End With End Sub Sub SetMonth() ' Перенос названия выделенного месяца в ячейку On Error Resume Next With CommandBars(«Список месяцев»).Controls(«DateDD») ActiveCell.Value = .List(.ListIndex) End With End Sub

Sub FillCells() Dim intStartVal As Integer ' Начальное значение Dim intStep As Integer ' Шаг при изменении значения Dim intEndVal As Integer ' Конечное значение Dim intVal As Integer ' Текущее значение Dim intCellOffset As Integer ' Смещение от начальной ячейки ' Установка параметров заполнения intStartVal = 1 intStep = 1 intEndVal = 100 ' Заполнение ячеек текущего столбца значениями от 1 до 100 For intVal = intStartVal To intEndVal Step intStep ActiveCell.Offset(intCellOffset, 0).Value = intVal intCellOffset = intCellOffset + 1 Next intVal End Sub

программы; здесь же рассказывается о приемах