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
_______________________________
这个效果需要用vba才能实现。看下私信。