Всем привет. Помогите решите задачу. Нужно в пустых ячейках выбранного диапазона примера "В2" проставить последнюю дату текущего месяца. Например (31.07.2013). Список по работе бывает огромным и фильтром работать порой неудобно. Можно ли как то выбрать определенный диапазон и нажав кнопку, что бы во всех пустых ячейках проставилась последняя дата текущего месяца.
Всем привет. Помогите решите задачу. Нужно в пустых ячейках выбранного диапазона примера "В2" проставить последнюю дату текущего месяца. Например (31.07.2013). Список по работе бывает огромным и фильтром работать порой неудобно. Можно ли как то выбрать определенный диапазон и нажав кнопку, что бы во всех пустых ячейках проставилась последняя дата текущего месяца.Grachev_Oleg
Помогите поменять данный код. Что бы не задавался в коде диапазон. А можно было выбрать диапазон на листе и нажав на кнопку автоматически проставилась дата в пустых ячейках.
[vba]
Код
Sub Кнопка1_Щелчок() Dim myCell As Excel.Range For Each myCell In Range("D2:D40").Cells If VarType(myCell.Value) <> vbDate Then myCell.Value = Date 'Exit Sub End If Next myCell End Sub
[/vba]
Помогите поменять данный код. Что бы не задавался в коде диапазон. А можно было выбрать диапазон на листе и нажав на кнопку автоматически проставилась дата в пустых ячейках.
[vba]
Код
Sub Кнопка1_Щелчок() Dim myCell As Excel.Range For Each myCell In Range("D2:D40").Cells If VarType(myCell.Value) <> vbDate Then myCell.Value = Date 'Exit Sub End If Next myCell End Sub
KuklP, Все работает. Но есть такой момент, если не выбран диапазон, а выделена одна ячейка то заполняются все пустые строки в Excel датой. можно как то такое обойти что бы в будущем, если случайно нажмешь кнопку не сидеть потом удалять со всех пустых ячейках дату.
KuklP, Все работает. Но есть такой момент, если не выбран диапазон, а выделена одна ячейка то заполняются все пустые строки в Excel датой. можно как то такое обойти что бы в будущем, если случайно нажмешь кнопку не сидеть потом удалять со всех пустых ячейках дату.Grachev_Oleg
Sub www() If TypeName(Selection) <> "Range" Then Exit Sub If Selection.Count > 1 Then Selection.SpecialCells(4) = DateSerial(Year(Date), Month(Date) + 1, 1) - 1 End If End Sub
[/vba]
[vba]
Код
Sub www() If TypeName(Selection) <> "Range" Then Exit Sub If Selection.Count > 1 Then Selection.SpecialCells(4) = DateSerial(Year(Date), Month(Date) + 1, 1) - 1 End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
