使用一个按钮我只想将值添加到其中一个单元格中

Question

我有一个问题。

我制作了一个按钮来选择3个单元格。现在，使用一个代码，我可以在活动单元格上计数-1，而 1可以计入所选单元格。它可以正常工作，但是我想将 1添加到一个选定的单元格中，另一个我想保持值。

这是我到目前为止制作的代码

Sub AddNumber()
Dim ws As Worksheet
Dim rngSel As Range
Dim rng As Range
Dim Arr() As Variant
Set rngSel = ActiveCell
Set rngSel2 = Selection
Dim index As Integer
index = 0
For Each rng In rngSel2.Areas
    If index = 0 Then
    rng = rng - 2
 Else
    rng = rng - 0
End If
index = index - 2
    If RangerngSel = rng Then
    rng = rng + 0
End If
rng = rng - 0
    If rng.Count = 1 Then
    rng = rng + 1
Else
  Arr = rng
  rng.Value = Arr
End If
Next rng
End Sub

有没有办法取消我不想更改值的单元格？

非常感谢您的帮助！

Answer 1

我认为最好的方法是利用选定的单元格与活动单元之间的差异（在选择范围内，其他蓝色单元之间的单个白细胞是活动中的单个细胞细胞）。当选择范围时，最上方的最左键是活动单元格。（除非您手动选择范围，在这种情况下，单击的第一个单元格是活动单元格。）并且由于您只想影响3个单元格参与。

Sub AddNumber()
    'Select a range of 3 cells
    Range("C3:C5").Select
    'Subtract 1 from the top cell's value
    ActiveCell.Value = ActiveCell.Value - 1
    'Activate the cell below the first and add 1 to its value
    Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
    ActiveCell.Value = ActiveCell.Value + 1
    'Activate the third cell and add 2 to its value
    Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
    ActiveCell.Value = ActiveCell.Value + 2
End Sub

由于您想单独留下一个单元格的值，因此您可以省略一个代码块之一，只需相应地调整Cells(ActiveCell.Row + 1 [...]部分。