Отключения автоматического обновления функции СЕГОДНЯ

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отключения автоматического обновления функции СЕГОДНЯ (Формулы)

squadgazzz

Дата: Вторник, 17.12.2013, 10:55 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 80% ±

Excel 2010

Снова вопрос.
У некоторых ячеек стоит формула "=СЕГОДНЯ()". Когда кликаю на них, вбивается автоматически дата сегодняшняя. Но если зайду на следующий день, то дата меняется.
Что нужно сделать, чтобы дата не изменялась каждый день?

Ответить

Vladimir_

Дата: Вторник, 17.12.2013, 11:17 | Сообщение № 2

Группа: Проверенные

Ранг: Новичок

Сообщений: 34

Репутация: 5 ±

Замечаний: 0% ±

Excel 2010

1. Необходимо запомнить дату, когда Вы ввели функцию СЕГОДНЯ()
2. Перед открытием Excel установить в настройках компьютера эту дату
3. Открыть Excel - проверить что дата не изменилась.

Как заставить операционную систему Вашего компьютера жить по системе "день сурка" - не знаю.

Второй вариант - исправить формулу на:

Код

=СЕГОДНЯ()-(СЕГОДНЯ()-41625)

Сообщение отредактировал Vladimir_ - Вторник, 17.12.2013, 11:22

Ответить

Wasilich

Дата: Вторник, 17.12.2013, 11:19 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата squadgazzz, 17.12.2013 в 10:55, в сообщении № 1

формула "=СЕГОДНЯ()". Когда кликаю

Эта формула без всяких кликаний выводит текущую дату.

Цитата squadgazzz, 17.12.2013 в 10:55, в сообщении № 1

Что нужно сделать, чтобы дата не изменялась каждый день?

Ввести дату.

Ответить

squadgazzz

Дата: Вторник, 17.12.2013, 11:23 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 80% ±

Excel 2010

Приходится ежедневно вводить очень много значений даты и делаю я это автоматом.

Но как мне иначе автоматом вбивать сегодняшнюю дату в ячейку, чтобы та не изменялась каждый день?
Может макрос можно какой-то написать?

Ответить

_Boroda_

Дата: Вторник, 17.12.2013, 11:29 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Попробуйте Контрл Шифт 4 (4 - это цифра на основной!!! клавиатуре, там, где ; и $). Если не получится, то Контрл Шифт ж (на русской или на буржуйской раскладках). Один из вариантов (зависит от настроек) должен сработать.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Vladimir_

Дата: Вторник, 17.12.2013, 11:32 | Сообщение № 6

Группа: Проверенные

Ранг: Новичок

Сообщений: 34

Репутация: 5 ±

Замечаний: 0% ±

Excel 2010

Макрорекордер
[vba]

Код

Sub Макрос1()
'
' Макрос1 Макрос
'

'
     ActiveCell.FormulaR1C1 = "=TODAY()"
     ActiveCell.Copy
     ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
End Sub

[/vba]

К сообщению приложен файл: 6840234.xlsm (16.7 Kb)

Ответить

Wasilich

Дата: Вторник, 17.12.2013, 12:07 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Макрос для клавиш Ctrl+D
[vba]

Код

Sub Auto_Open()
      Application.OnKey key:="^d", Procedure:="TekData"
      ' Сочетание клавиш Ctrl + D
End Sub
Private Sub TekData()
     Range(Selection.Address) = Date
End Sub

[/vba]
Двойным кликом мыши
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Date
Cancel = True
End Sub

[/vba]

Сообщение отредактировал Wasilic - Вторник, 17.12.2013, 12:09

Ответить

KuklP

Дата: Вторник, 17.12.2013, 12:07 | Сообщение № 8

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Владимир, это поход в соседний ларек через Владивосток. Так проще:
[vba]

Код

Sub Макрос1():ActiveCell = Date:End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Вторник, 17.12.2013, 12:08

Ответить

KuklP

Дата: Вторник, 17.12.2013, 12:10 | Сообщение № 9

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Ребят, ну Вы чего? Саша(_Boroda_) подсказал хоткей, зачем изобретать велосипед?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Wasilich

Дата: Вторник, 17.12.2013, 12:16 | Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата KuklP, 17.12.2013 в 12:10, в сообщении № 9

Ребят, ну Вы чего? Саша(_Boroda_) подсказал хоткей, зачем изобретать велосипед?

Но ты же тоже предложил свой вариант.
Тем более что:

Цитата squadgazzz, 17.12.2013 в 11:23, в сообщении № 4

Может макрос можно какой-то написать?

Ответить

KuklP

Дата: Вторник, 17.12.2013, 12:21 | Сообщение № 11

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Да я чисто в просветительских целях, для Владимира.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Vladimir_

Дата: Вторник, 17.12.2013, 12:23 | Сообщение № 12

Группа: Проверенные

Ранг: Новичок

Сообщений: 34

Репутация: 5 ±

Замечаний: 0% ±

Excel 2010

Цитата

... через Владивосток. Так проще:

Не факт.

[offtop]Потому как иногда короткий текст набираемый с клавиатуры иногда требует больших затрат времени, чем задиктовать его на диктофон с последующим воспроизведением.
Тем паче для набора текста - как минимум нужно знать язык и его применение. Ну и так далее ...
Так что вопрос спорный