Как изменить значения выделенных ячеек?

Question

Мне нужно знать, как, после выбора количества ячеек, использовать кнопку, чтобы применить свои строки кода только к этим выделенным ячейкам.

Я пытался выбрать и просто нажать на кнопку, но не сработало.

если есть еще один вариант, позволяющий мне сделать то же самое, это также желанная идея

Это код, который я хочу применить, но только для ячеек, выбранных моей мышью, а не для предварительно выбранных ячеек, подобных тем, которые показаны в коде.

If Range("h3").Value >= 0 Then
   Range("bk3").Value = True
Else
   Range("bk3").Value = False
End If

If Range("h3").Value >= 0 Then
    Range("j3").Value = Range("j3").Value & " | " & VarNUMCB
Else

End If

If Range("h3").Value >= 0 Then
   Range("l3").Value = Now
Else
End If

Answer 1

Это зациклит выбранные ячейки и изменит их:

Set selectedRange = Application.Selection

For Each cell In selectedRange.Cells
   'do something with the cell, like:
   cell.value = cell.value + 1
Next cell

Answer 2

With Selection
    If Range("h3").Value >= 0 Then
        Range("bk3").Value = True
        Range("j3").Value = Range("j3").Value & " | " & VarNUMCB
        Range("l3").Value = Now
    Else
        Range("bk3").Value = False
    End If
End With

Если вы выбираете ячейку в column h, то этот код использует смещение от выбранной ячейки.

With Selection
    If .Value >= 0 Then
        .Offset(, 55).Value = True
        .Offset(, 2).Value = Range("j3").Value & " | " & "Yes"
        .Offset(, 3).Value = Now
    Else
        .Offset(, 55).Value = Falsee
    End If
End With

Если вы выбираете диапазон ячеек в column h, вам придется поместить вышеуказанный код в For Each Cell in Selection цикл

For Each cel in Selection
    If cel.Value >= 0 Then
        cel.Offset(, 55).Value = True
        cel.Offset(, 2).Value = Range("j3").Value & " | " & "Yes"
        cel.Offset(, 3).Value = Now
    Else
        cel.Offset(, 55).Value = False
    End If
Next cel