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

Вход

Регистрация

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

 

= Мир MS Excel/Ввод текущего времени кнопкой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Ввод текущего времени кнопкой
Ввод текущего времени кнопкой
SergejSor Дата: Суббота, 01.09.2012, 18:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Добрый день. Есть исходный файл с кодом который при вводе времени в одну ячейку переводит его в столбец. Как сделать чтобы при нажатии кнопки время автоматически вставлялось в столбец? Запись макроса проблему не решила...
К сообщению приложен файл: _SergejSor.xlsm (17.3 Kb)
 
Ответить
СообщениеДобрый день. Есть исходный файл с кодом который при вводе времени в одну ячейку переводит его в столбец. Как сделать чтобы при нажатии кнопки время автоматически вставлялось в столбец? Запись макроса проблему не решила...
Автор - SergejSor
Дата добавления - 01.09.2012 в 18:59
Gustav Дата: Суббота, 01.09.2012, 19:31 | Сообщение № 2
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
макроса в файле не нашёл, словами - ничего не понял

может дадите текст макроса сюда прямо в сообщение?

МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщениемакроса в файле не нашёл, словами - ничего не понял

может дадите текст макроса сюда прямо в сообщение?
Автор - Gustav
Дата добавления - 01.09.2012 в 19:31
SergejSor Дата: Суббота, 01.09.2012, 19:36 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

[vba]
Code
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
i = Cells(Rows.Count, 3).End(xlUp).Row
If Target.Address <> "$D$3" Then Exit Sub
Cells(i + 1, 3).NumberFormat = "h:mm"
Cells(i + 1, 3).Value = Cells(3, 4).Value
Exit Sub
[/vba]
Это текст макроса который при вводе в одну ячейку добавляет время в столбец, ну а сама проблема чтобы при нажатии кнопки автоматически текущее время добавлялось в столбец
 
Ответить
Сообщение[vba]
Code
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
i = Cells(Rows.Count, 3).End(xlUp).Row
If Target.Address <> "$D$3" Then Exit Sub
Cells(i + 1, 3).NumberFormat = "h:mm"
Cells(i + 1, 3).Value = Cells(3, 4).Value
Exit Sub
[/vba]
Это текст макроса который при вводе в одну ячейку добавляет время в столбец, ну а сама проблема чтобы при нажатии кнопки автоматически текущее время добавлялось в столбец
Автор - SergejSor
Дата добавления - 01.09.2012 в 19:36
Gustav Дата: Суббота, 01.09.2012, 19:46 | Сообщение № 4
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Оно? Добавьте макрос к кнопке.

[vba]
Code

Sub Кнопка1_Щелчок()
Dim i&
i = Cells(Rows.Count, 3).End(xlUp).Row
Cells(i + 1, 3).NumberFormat = "h:mm"
Cells(i + 1, 3).Value = Now - Date
End Sub
[/vba]

МОИ: Ник, Tip box: 41001663842605
 
Ответить
СообщениеОно? Добавьте макрос к кнопке.

[vba]
Code

Sub Кнопка1_Щелчок()
Dim i&
i = Cells(Rows.Count, 3).End(xlUp).Row
Cells(i + 1, 3).NumberFormat = "h:mm"
Cells(i + 1, 3).Value = Now - Date
End Sub
[/vba]
Автор - Gustav
Дата добавления - 01.09.2012 в 19:46
SergejSor Дата: Суббота, 01.09.2012, 19:46 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Вот файлик с кнопкой, при нажатии кнопки значение времени постоянно, а нужно чтобы возвращалось текущее время
К сообщению приложен файл: 3990873.xlsm (18.7 Kb)
 
Ответить
СообщениеВот файлик с кнопкой, при нажатии кнопки значение времени постоянно, а нужно чтобы возвращалось текущее время
Автор - SergejSor
Дата добавления - 01.09.2012 в 19:46
Gustav Дата: Суббота, 01.09.2012, 19:57 | Сообщение № 6
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
А если колонку C заранее отформатируете в нужном формате времени, то макрос становится совсем компактным:

[vba]
Code

Sub Кнопка1_Щелчок() 'ну или Макрос1() как на записи
     Cells(Rows.Count, 3).End(xlUp).Offset(1) = Now - Date
End Sub
[/vba]

МОИ: Ник, Tip box: 41001663842605
 
Ответить
СообщениеА если колонку C заранее отформатируете в нужном формате времени, то макрос становится совсем компактным:

[vba]
Code

Sub Кнопка1_Щелчок() 'ну или Макрос1() как на записи
     Cells(Rows.Count, 3).End(xlUp).Offset(1) = Now - Date
End Sub
[/vba]
Автор - Gustav
Дата добавления - 01.09.2012 в 19:57
SergejSor Дата: Суббота, 01.09.2012, 19:59 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 49
Репутация: 0 ±
Замечаний: 0% ±

Спасибо огромное!! Разобрался! Все работает
 
Ответить
СообщениеСпасибо огромное!! Разобрался! Все работает
Автор - SergejSor
Дата добавления - 01.09.2012 в 19:59
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Ввод текущего времени кнопкой
  • Страница 1 из 1
  • 1
Поиск:

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