powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите с ДАТОЙ и временем...
7 сообщений из 7, страница 1 из 1
помогите с ДАТОЙ и временем...
    #34228629
Как сделать так чтобы при удовлетворении условия в ячейке возникала дата и время когда это условие было удовлетворено, я делаю так =ЕСЛИ(F4>=G4;ТДАТА();"") , но в данном случае дата и время в ячейке все время меняется, а мне надо чтобы показывало дату и время срабатывания условия...
...
Рейтинг: 0 / 0
помогите с ДАТОЙ и временем...
    #34228719
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Максим МоисеевКак сделать так чтобы при удовлетворении условия в ячейке возникала дата и время когда это условие было удовлетворено, я делаю так =ЕСЛИ(F4>=G4;ТДАТА();"") , но в данном случае дата и время в ячейке все время меняется, а мне надо чтобы показывало дату и время срабатывания условия...
формулами это не возможно сделать
только VBA
...
Рейтинг: 0 / 0
помогите с ДАТОЙ и временем...
    #34228778
vkodor Максим МоисеевКак сделать так чтобы при удовлетворении условия в ячейке возникала дата и время когда это условие было удовлетворено, я делаю так =ЕСЛИ(F4>=G4;ТДАТА();"") , но в данном случае дата и время в ячейке все время меняется, а мне надо чтобы показывало дату и время срабатывания условия...
формулами это не возможно сделать
только VBA
А как в VBA? Что там надо прописать? у меня целый столбец F4:F22 к условиям по сторокам G4:G22 ... и "дату изменения" по условию (условиеF4>=G4, F5>=G5, и тд) надо чтобы ставилось в столбец E4:E22
...
Рейтинг: 0 / 0
помогите с ДАТОЙ и временем...
    #34228802
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что - то типа этого
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Worksheet_Change(ByVal Target As Range)
    For Each rng In Range("E4:E22")
        If rng.Value = "" Then
            If Range("F" & rng.Row) >= Range("G" & rng.Row) Then rng.Value = Now
        End If
    Next
End Sub
...
Рейтинг: 0 / 0
помогите с ДАТОЙ и временем...
    #34228877
vkodorчто - то типа этого
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Worksheet_Change(ByVal Target As Range)
    For Each rng In Range("E4:E22")
        If rng.Value = "" Then
            If Range("F" & rng.Row) >= Range("G" & rng.Row) Then rng.Value = Now
        End If
    Next
End Sub

не подходит..((( говорит ошибка в строчке
"Private Sub Worksheet_Change(ByVal Target As Range)"....
...
Рейтинг: 0 / 0
помогите с ДАТОЙ и временем...
    #34228926
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в модуль листа нужно вставлять
...
Рейтинг: 0 / 0
помогите с ДАТОЙ и временем...
    #34228939
vbaproв модуль листа нужно вставлять
ладно ... спасибо ... завтра попробую... напишу чего получилось...
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите с ДАТОЙ и временем...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]