Excel宏按钮可更改更改单元格值

时间:2015-12-24 14:54:14

标签: excel vba

有关如何根据表格获取按钮更改单元格值的任何想法。假设单元格A1是活动单元格,并且我希望每次单击按钮时基于B列中的值更改此值,只需在列表B1,B2,B3等下面...

Private Sub CommandButton1_Click()
    Range("A1").Value = Range("B1:B10").Value  
End Sub

2 个答案:

答案 0 :(得分:2)

我假设你想要在达到B10值并再次点击后返回B1值。

Private Sub CommandButton1_Click()
    If IsError(Application.Match(Range("A1").Value, Range("B1:B10"), 0)) Then
        Range("A1").Value = Range("B1").Value
    ElseIf Application.Match(Range("A1").Value, Range("B1:B10"), 0) = Range("B1:B10").Cells.Count Then
        Range("A1").Value = Range("B1").Value
    Else
        Range("A1").Value = Range("B1").Offset(Application.Match(Range("A1").Value, Range("B1:B10"), 0), 0).Value
    End If
End Sub

答案 1 :(得分:0)

如果您有兴趣使用辅助单元,则可以使用以下代码。

    Private Sub CommandButton1_Click()
    Dim increment As Long
        increment = Range("XFD1048576").Value
          Range("A1").Value = Range("B1").Offset(increment, 0).Value
        Range("XFD1048576").Value = increment + 1

        If Range("XFD1048576").Value >= Range("B:B").End(xlDown).Row Then
            Range("XFD1048576").Value = 0
        End If
    End Sub