Ввод текущего времени кнопкой

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

SergejSor

Дата: Суббота, 01.09.2012, 18:59 | Сообщение № 1

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

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

Сообщений: 49

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

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

Добрый день. Есть исходный файл с кодом который при вводе времени в одну ячейку переводит его в столбец. Как сделать чтобы при нажатии кнопки время автоматически вставлялось в столбец? Запись макроса проблему не решила...

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

Ответить

Gustav

Дата: Суббота, 01.09.2012, 19:31 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2851

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

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

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

МОИ: Ник, Tip box: 41001663842605

Ответить

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]
Это текст макроса который при вводе в одну ячейку добавляет время в столбец, ну а сама проблема чтобы при нажатии кнопки автоматически текущее время добавлялось в столбец