Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/двойной клик > текущее время - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » двойной клик > текущее время (Формулы)
двойной клик > текущее время
Руслан Дата: Пятница, 20.09.2013, 06:42 | Сообщение № 1
Группа: Гости
Как реализовать такой макрос чтобы при двонойном клике на ячейку выводилось текущее время
 
Ответить
СообщениеКак реализовать такой макрос чтобы при двонойном клике на ячейку выводилось текущее время
Автор - Руслан
Дата добавления - 20.09.2013 в 06:42
Nic70y Дата: Пятница, 20.09.2013, 08:07 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9047
Репутация: 2382 ±
Замечаний: 0% ±

Excel 2010
Записал рекордерем, сейчас придут макрописцы и раскритикуют :)
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     ActiveCell.FormulaR1C1 = "=TEXT(NOW(),""чч:мм:сс"")"
     Selection.Copy
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Application.CutCopyMode = False
     Application.CommandBars("Office Clipboard").Visible = False
End Sub
[/vba]

ЮMoney 41001841029809
 
Ответить
СообщениеЗаписал рекордерем, сейчас придут макрописцы и раскритикуют :)
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     ActiveCell.FormulaR1C1 = "=TEXT(NOW(),""чч:мм:сс"")"
     Selection.Copy
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Application.CutCopyMode = False
     Application.CommandBars("Office Clipboard").Visible = False
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 20.09.2013 в 08:07
AlexM Дата: Пятница, 20.09.2013, 08:09 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
Можно так
Код вставить в модуль листа
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Format(Time, "Long Time")
End Sub
[/vba]


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеМожно так
Код вставить в модуль листа
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Format(Time, "Long Time")
End Sub
[/vba]
Автор - AlexM
Дата добавления - 20.09.2013 в 08:09
Мир MS Excel » Вопросы и решения » Вопросы по Excel » двойной клик > текущее время (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!