[英]Excel macro button to change change cell values
关于如何获取按钮以基于表格更改单元格值的任何想法。 假设单元格A1是活动单元格,并且我希望每次我根据B列中的值单击按钮时都更改此值,只需在列表B1,B2,B3等下单击即可。
Private Sub CommandButton1_Click()
Range("A1").Value = Range("B1:B10").Value
End Sub
我假设您想在达到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
如果您有兴趣使用辅助单元,则可以使用以下代码。
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.