powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматически вставить дату
8 сообщений из 8, страница 1 из 1
Автоматически вставить дату
    #33974298
Буква
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
У меня следующая проблема.
Хочу чтобы при добавлении текста в ячейку например А1 в ячейке В1 автоматически вставлялась сегодняшняя дата.
Своими силами получилось вот что:
в В1: =ЕСЛИ(ЕПУСТО(A1);"";СЕГОДНЯ())
Однако это не подходит, потому что при смене даты на следующую меняется и значение поля В1, а мне этого не надо.
Как решить проблему?
Подскажите!
...
Рейтинг: 0 / 0
Автоматически вставить дату
    #33974693
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не вижу решения.

...
Рейтинг: 0 / 0
Автоматически вставить дату
    #33974854
Tachkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Либо макрос, либо ручьками.
ИМХО ручками быстрее, все бы микроскопами гвозди забивали.
...
Рейтинг: 0 / 0
Автоматически вставить дату
    #33974891
Bukva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ручками легко, когда по одной записи на дату. у меня по несколько, поэтому когда дату растягиваешь на несколько полей - она увеличивается. Блин. а как макрос в моем случае написать?

И еще.
как сделать чтобы при заполнении одного поля заполнялись автоматически другие? так, как я уже предлагала? просто это ведь чит: если пусто, вставляй " "
...
Рейтинг: 0 / 0
Автоматически вставить дату
    #33977017
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для кода листа, в котором тебе нужно такое добавь следующий код:
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Cells( 1 ,  2 ) = Date
        Cells( 1 ,  2 ).ColumnWidth =  8 
    End If
End Sub
Надеюсь всё понятно.
...
Рейтинг: 0 / 0
Автоматически вставить дату
    #33978514
treiber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>orunbek
Это кому ответ?
...
Рейтинг: 0 / 0
Автоматически вставить дату
    #33979545
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хм... как кому?
БукваДобрый день!
У меня следующая проблема.
Хочу чтобы при добавлении текста в ячейку например А1 в ячейке В1 автоматически вставлялась сегодняшняя дата.
Своими силами получилось вот что:
в В1: =ЕСЛИ(ЕПУСТО(A1);"";СЕГОДНЯ())
Однако это не подходит, потому что при смене даты на следующую меняется и значение поля В1, а мне этого не надо.
Как решить проблему?
Подскажите!
...
Рейтинг: 0 / 0
Автоматически вставить дату
    #33980573
treiber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>orunbek
Sorry. А я подумал, что на это.
BukvaИ еще.
как сделать чтобы при заполнении одного поля заполнялись автоматически другие? так, как я уже предлагала? просто это ведь чит: если пусто, вставляй " "
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автоматически вставить дату
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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