|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.10.2016, 14:18 | #1 |
Пользователь
Регистрация: 18.10.2015
Сообщений: 22
|
(excel_2010_VBA) Прибавление секунд к значению ячейки
Здравствуйте. Как макросом можно было прибавить например 5 секунд ячейке с временным значением в формате "0:00:00". На просторах нета нашёл макрос который по щелчку прибавляет к выбранной ячейке +1
Private Sub Workbook_SheetBeforeDoubleClick(ByV al Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean) r = ActiveCell.Row c = ActiveCell.Column Cells(r, c) = Cells(r, c) + 1 Cells(r + 1, c) End Sub можно его адаптировать как-нибудь? |
10.10.2016, 14:26 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
10.10.2016, 14:31 | #3 |
Пользователь
Регистрация: 18.10.2015
Сообщений: 22
|
Огромное СПАСИБИЩЕЕЕЕ !!!!!
|
10.10.2016, 16:02 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Cells(r, c) = Cells(r, c) + 1/24/3600
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
10.10.2016, 16:08 | #5 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Лучше так
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
10.10.2016, 16:59 | #6 |
Пользователь
Регистрация: 18.10.2015
Сообщений: 22
|
А еще вопрос: как добавить данный макрос, чтобы мог выполняться в любом документе?
|
10.10.2016, 17:10 | #7 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
10.10.2016, 17:15 | #8 |
Пользователь
Регистрация: 18.10.2015
Сообщений: 22
|
Пока нет, но данный макрос надо добавлять в каждый активный документ, просто документы каждый раз меняются.
|
10.10.2016, 17:53 | #9 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Добавьте в модуль ЭтаКнига книги Personal.xls следующий код, перезапустите Excel (сохранив Personal.xls)
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
10.10.2016, 18:01 | #10 |
Пользователь
Регистрация: 18.10.2015
Сообщений: 22
|
Еще раз ОООООгромное СПАСИБИЩЕЕЕЕ !!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автофильтры по значению в активной ячейки | zerbite | Microsoft Office Excel | 10 | 03.11.2017 17:30 |
(excel_2010_VBA) Поиск ячейки с данными и запись текста в соседнюю ячейку | lapin912 | Microsoft Office Excel | 4 | 19.10.2015 03:26 |
Прибавление к ячейке (дата, время), секунд | RISagitov | Microsoft Office Excel | 5 | 22.05.2012 14:08 |
Добраться к значению ячейки GridView | Droid | Общие вопросы .NET | 2 | 06.12.2010 14:26 |
Название листа, по значению ячейки | kzld | Microsoft Office Excel | 1 | 11.09.2010 12:03 |