excel 例如我想实现 A1单元格预设 3个数值例如1,2,3 每点击A1单元格一个就会在3个数字中变换。。

2025-03-05 12:14:13
推荐回答(2个)
回答1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x%, y%, z%, arr(3)
x = 1: y = 2: z = 3 '这里的1,2,3可以随意改,x\y\z只是个顺序值
arr(0) = x: arr(1) = y: arr(2) = z
If Target.Address = "$A$1" Then
If Target.Value = arr(2) Then
Target.Value = arr(0)
ElseIf Target.Value = arr(0) Then
Target.Value = arr(1)
Else
Target.Value = arr(2)
End If
End If
End Sub
_______________________________

回答2:

这个效果需要用vba才能实现。看下私信。