Простановка времени только на измененные ячейки

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

Простановка времени только на измененные ячейки (Макросы/Sub)

ant6729

Дата: Четверг, 15.02.2018, 16:15 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Всем привет!
Во вложении документ
Когда запускаю ss, то проставляется время во всех ячейках, а пробую, чтобы время проставилось только напротив измененных ячеек.

Сломал голову опять) Как всегда торможу.

Подскажите, пожалуйста, есть ли какие--то варианты "локальной" простановки...

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

Ответить

ant6729

Дата: Четверг, 15.02.2018, 18:39 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Этот же документ. Прикрепленный случайно себе скачал - не открыл.

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

Ответить

krosav4ig

Дата: Четверг, 15.02.2018, 20:05 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

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

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

Excel 2007,2010,2013

Как-то так

Нужно условие добавить
[vba]

Код

Sub ss()

Sheets("Лист2").Select
lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
lr2 = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr2
On Error Resume Next
V = Sheets("Лист2").Cells(i, 1).Value
m = Application.WorksheetFunction.VLookup(V, Sheets("Лист1").Range("A1:B" & lr2), 2, False)

If Not IsEmpty(m) Then Cells(i, 2).Value = Cells(i, 2).Value - m

Next i

End Sub

[/vba]
и еще вариант до кучи
[vba]

Код

Sub ss()
    Dim i&, m As Variant
    With Sheets("Лист2")
        For Each v In .[A1].CurrentRegion.Columns(1).Value
            i = i + 1
            m = Application.VLookup(v, Sheets("Лист1").[A1].CurrentRegion, 2, False)
            With .Cells(i, 2)
            If Not IsEmpty(m) Then .Value = .Value - m
            End With
        Next
    End With
End Sub

[/vba]