Восстановление важной информации из испорченного файла
Использование трюка, описание которого приводится в данном подразделе, позволяет извлечь данные из испорченного файла с помощью встроенного в Excel механизма специальной вставки. Для этого необходимо выполнить следующие действия.
1. Создать две новые пустые книги.
2. В первой книге выделить диапазон ячеек и скопировать его в буфер.
3. Перейти ко второй книге.
4. Во второй книге выделить ячейку А1. На вкладке Главная выбрать из раскрывающегося списка кнопки Вставить (группа Буфер обмена) пункт Вставить связь.
5. На вкладке Данные, в группе Подключения нажать кнопку Изменить связи.
6. В открывшемся окне по обычным правилам Windows указать путь к испорченному файлу.
В большинстве случаев данный способ позволяет извлечь данные из испорченного файла.
для перехода к редактору VBA используется комбинация клавиш Alt+F11
VBA. Чтобы перейти в данный режим, необходимо нажать сочетание клавиш Alt+F11.
Большинство описываемых в книге трюков и эффектов выполняется средствами языка VBA (для перехода к редактору VBA используется комбинация клавиш Alt+F11).
Для создания основной формы программы необходимо воспользоваться вкладкой Разработчик, отображение которой включается в настройках программы в разделе Основные с помощью флажка Показывать вкладку «Разработчик» на ленте.
Раскрывающийся список является одним из наиболее удобных элементов управления, поскольку с его помощью можно быстро установить требуемое значение того или иного элемента интерфейса (в частности, ячейки).
Как известно, включение автофильтра для выделенного диапазона осуществляется на вкладке Данные с помощью кнопки Фильтр. Для этого можно также воспользоваться следующим макросом (листинг 3.61).
Листинг 3.61. Включение автофильтра
Sub EnableAutoFilter()
On Error Resume Next
Selection.AutoFilter
End Sub
Для данного макроса можно создать значок и поместить его на панель инструментов – это позволит включать автофильтр быстрее, чем стандартным способом.
Существует несколько небольших макросов, с помощью которых можно скрывать строки и столбцы.
В процессе работы могут возникать ситуации, когда для ввода данных целесообразно использовать вызываемое отдельно диалоговое окно. Решить эту задачу поможет следующий макрос (листинг 3.12).
Листинг 3.12. Диалоговое окно ввода данных
Sub InputDialog()
Dim strInput As String
' Вызов стандартного диалогового окна ввода данных
strInput = InputBox(«Введите данные», «Ввод данных»)
End Sub
