Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос для добавления даты без времени...
 
Здравствуйте,

Есть макрос с добавлением даты в соседнюю ячейку. Только вот дата добавляется включая с временем. Помогите пожалуйста сделать так чтобы время не добавлялось.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd/mm/yyyy"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub
 
Найдите в коде Now и замените его на Date
Согласие есть продукт при полном непротивлении сторон.
 
12 строку заменить на
Код
Rng.Offset(0, xOffsetColumn).Value = Format(Now, "dd.mm.yyyy")
13 строку удалить
Лень двигатель прогресса, доказано!!!
 
Сергей, Спасибо!) :idea:  :)  
 
Шахин, если честно корявенькая от меня помощь, ща у вас дата прописывается как текст для дальнейшей обработки не айс
Лень двигатель прогресса, доказано!!!
 
Набрались, тьфу, то есть собрались погранцы.  :D
Поддерживаю #2 ну или как обычно INT(NOW)
 
29-е однако. Лечимся... ;)  
Согласие есть продукт при полном непротивлении сторон.
 
Цитата
Sanja написал:
29-е однако
с утра думал 30  :D  
Лень двигатель прогресса, доказано!!!
Страницы: 1
Читают тему (гостей: 1)
Наверх