Добрый день! Прошу помощи. При двойном нажатии меняется цвет ячейки-работает, но на 2 листе в таблицу к соответствующему номеру нужно вставить время клика чч:мм:сс. На первом листе СБРОС на двойном клике закрасить А1:O12 в желтый.
DenisTsv написал: При двойном нажатии меняется цвет ячейки-работает
Не работает. Формат файла *.xlsx макросы не поддерживает
Цитата
DenisTsv написал: нужно вставить время клика чч:мм:сс
Добавьте в макрос обработки двойного клика функцию или с соответствующим форматом
Цитата
на двойном клике закрасить А1:O12 в желтый.
Запишите макрорекордером нужные действия и вставьте в макрос обработки двойного клика
Скрытый текст
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("A1:O12")) Is Nothing Then
Dim iRng As Range
Cancel = True
Target.Interior.Color = IIf(Target.Interior.Color = vbYellow, vbRed, vbYellow)
Set iRng = Worksheets("Лист2").Range("A1:A182").Find(Target.Value)
If Not iRng Is Nothing Then iRng.Offset(, 1) = Format(Now, "hh:mm:ss")
Exit Sub
End If
If Not Intersect(Target, Range("A14")) Is Nothing Then
Cancel = True
Range("A1:O12").Interior.Color = vbYellow
End If
End Sub
Согласие есть продукт при полном непротивлении сторон
Пользователь
Сообщений: Регистрация: 23.08.2023
14.09.2024 13:01:34
Sanja, огромное Вам спасибо! Все отлично работает!!!
