Private Sub Worksheet_SelectionChange(ByVal Target As Range)
s = "前中后前"
If Target.Address = "$K$17" Then [o15] = Mid(s, InStr(s, [o15]) + 1, 1): [k18].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$K$17" Then
If [o15] = "后" Then [o15] = "前": GoTo 10
[o15] = IIf([o15] = "前", "中", "后")
10 [K18].Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
s = "前中后前"
If Target.Address = "$K$17" Then [o15] = Mid(s, InStr(s, [o15]) + 1, 1): [k18].Select
End Sub