Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: Пред. 1 2
RSS
Сохранение данных СЕГОДНЯ()
 
#31
16.09.2015 13:10:55
Код
Sub Macro1()
    Range("A1") = Date
End Sub
 
 
 
#32
16.09.2015 13:18:42
Юрий М, прошу добавить туда макрос, чтобы в таблице при каждом добавлении "суммы" автоподставлялась текущая дата. Причем "завтра" или в другой день - предыдущие записи не изменялись и сохраняли свои даты.
Спасибо
 
 
 
#33
16.09.2015 13:24:46
Если бы Вы почитали раздел "Приемы", то нашли бы то, что Вам нужно
См. файл.
 
 
 
#34
16.09.2015 13:27:39
По ссылке - даты сохраняют свои значения, если наступит другой день?

Файл - не работает, ввел третью строку в сумме - ничего не происходит...
 
 
 
#35
16.09.2015 13:29:41
Цитата
CreatiFF написал: даты сохраняют свои значения, если наступит другой день?
Сохраняют. Можете проверить - поменяйте системную дату на компьютере.
Цитата
CreatiFF написал: Файл - не работает
У меня работает. Макросы у Вас разрешены?
 
 
 
#36
16.09.2015 13:31:58
Да, при открытии файла разрешил макрос, ессно. Глянул в VBA - пусто (

У меня MS Office for Mac 2011 - там криво с русским языком, и в редакторе VBA все криво, не могу нормально поработать с редактором.
Если не трудно, могли бы готовый файл залить, чтобы не лазить в редактор? Спасибо большое!
 
 
 
#37
16.09.2015 13:36:04
Цитата
CreatiFF написал: У меня MS Office for Mac 2011
Предупреждать нужно. Для Мак'ов у нас есть отдельный форум. Насколько я помню, события листа в Макинтоше не поддерживаются.
Цитата
CreatiFF написал: Глянул в VBA - пусто
Смотрите модуль листа. Но написано прикольно: глянул в VBA - это как? ))
Цитата
CreatiFF написал: Mac 2011 - там криво с русским языком
Ни одного символа на кириллице в коде нет.
 
 
 
#38
16.09.2015 13:43:22
А, да, сорри, не подумал предупредить, что mac os. Это одна из причин, почему мне проще формульное решение.
Значит переадресую вопрос в другую ветку форума ((

Глянул в VBA - в смысле "сервис-макрос-редактор Visual Basic" ))

Все равно спасибо большое.  
 
 
 
#39
16.09.2015 13:45:37
Цитата
CreatiFF написал: Глянул в VBA - в смысле "сервис-макрос-редактор Visual Basic
А теперь попробуйте так: правый клик по ярлычку листа - исходный текст.
 
 
 
#40
16.09.2015 13:47:18
У меня нету "исходный текст" у ярлыка...

Скачал из нужно файл-пример - работает......  
 
 
 
#41
16.09.2015 13:53:44
Значит и мой должен работать - процедура одна и та же.
 
 
 
#42
16.09.2015 16:23:22
Попробуйте, вдруг сработает :)  
 
 
 
#43
16.09.2015 16:52:09
Также не работает (((
 
 
 
#44
16.09.2015 18:05:13
У меня работает. Попробуйте обратиться на профильный форум
 
 
 
#45
16.09.2015 18:06:40
Скорее всего причина в mac os. Уже переадресовал в другую ветку, где mac.
Все равно всем большое спасибо!
 
 
 
#46
16.09.2015 19:47:23
Для Мак надо попробовать написать в 2003 (именно в офисе, а не в формате); иногда так бывает.
 
 
 
#47
16.09.2015 22:17:11
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Variant
  If Target.Address = "$B$3" Then
    If ActiveSheet.Range("$B$3") <> "" Then
      A = ActiveSheet.Range("$E$1")
      ActiveSheet.Range("$E$1") = A
    Else
      ActiveSheet.Range("$E$1").Formula = "=NOW()"
    End If
  End If
End Sub
 
 
 
#48
16.09.2015 22:19:02
В ячейке Е1= Тдата(), при вводе информации в ячейку b3, дата в Е1 фиксируется!  
Изменено: lex083 - 16.09.2015 22:27:29
 
 
 
#49
17.09.2015 11:15:04
lex083, если не затруднит, можете выложить тут файлом? Заранее спасибо!
 
 
 
#50
17.09.2015 13:50:43
Пример
 
 
 
Страницы: Пред. 1 2
Наверх