Как написать заявление на восстановление трудовой книжки?
1 ответ:
Читайте также
<h2>Вариант №1 (более простой)</h2>
- Добавляете в конце таблицы еще один столбец. (D см рис) В первую строку этого столбца (ту, которую вы не хотите удалять) ставите значение "1". Значение для второй строки этого же столбца - оставляете пустой.
- Выделяете две клетки в этом столбце (D2:D3 см рис.) (первую и вторую, с значением 1 и пусто.), копируете их значение (Ctrl+C).
- Выделяете все клетки этого столбца, после второй (третью и все вниз, D4:D13 на рис.). Вставляете скопированное значение (Ctrl+V). Вы должны получить примерно следующее:
- Выделяем всю таблицу, выбираем из меню: Данные - Фильтр - Автофильтр
- Во временном столбце, из списка предложений для фильтрации, выбираем "Пустые"
- Выделяем все строки в отфильтрованной таблице (зажав мишку на номере первой и протянув до конца), и удаляем их: (ЛКМ по номерам выделенных строк и пункт меню "Удалить строку")
- Во временном столбце, из списка предложений для фильтрации, выбираем "Все" и получаем необходимый результат.
Открываете редактор Visual Basic. (Alt + F11) или из меню Сервис-Макрос-Редактор Visual Basic.
- В окне редактора в секции VBAProject дважды щелкаете по обьекту : Эта Книга (см рисунок)
- В появившемся окне вставляем текст процедуры :
Sub DelRowAfterOne()
Dim ra As Range, delra As Range, cntdel As Integer
Application.ScreenUpdating = False
cntdel = 0
For Each ra In ActiveSheet.UsedRange.Rows
If cntdel <> 0 Then
ra.EntireRow.Delete
End If
If cntdel = 2 Then cntdel = 0
cntdel = cntdel + 1
Next
End Sub
<hr />- сохраняем текст процедуры, нажав на дискетку.
- Переключаемся в Excel (в ваш открытый документ). Добавляем пользовательскую кнопку на панель инструментов для вызова процедуры.
- На любой панели инструментов нажимаем левую кнопку мыши (далее ЛКМ), в появившемся меню выбираем "Настройка"
- В окне диалогоа настроек Панели инструментов выбираем вкладку "Команды", из списка групп команд выбираем "Макросы", далее, выбираем команду "Настраиваемая кнопка" и удерживая ее мышкой (зажав на ней правую кл. мышки) тянем этот пункт в любое место панели инструментов
- Не закрывая окна "Настройка", нажимаем ЛКМ на той кнопке в панели инструментов, которую мы создали в предыдущем пункте. В появившемся меню выбираем команду "Назначить макрос"
- В появившемся окне выбираем нашу процедуру DelRowAfterOne(), нажимаем ОК. Закрываем все окна. В результате в панели задач у вас должна быть кнопка со смайликом, которая вызывает процедуру удаления строк.
- Работа данной процедуры проста: Вы выделяете в вашей таблице тот диапазон строк, в котором хотите удалить строки через одну, далее нажимаете кнопку со смайликом и получаете результат.