Excel代码问题，非常感谢！

LSYYLW

2025-1-15---.zip (3 KB, 下载次数: 3)

2025-1-15 08:43 上传

点击文件名下载附件

quqiyuan

从新发一下。。。

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
        s = [m12]: ss = [j9]
        If Target.Address = "$Q$14" Then
            [j9] = IIf(ss + 1 < s, ss + 1, 0)
        ElseIf Target.Address = "$Q$11" Then
            [j9] = IIf(ss - 1 >= 0, ss - 1, s - 1)
        End If
        [j9].Select
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2025-1-15 08:31
代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Enable ...

万万分的感谢老师，代码非常非常好用。

quqiyuan

更改一下，仅供参考。。。

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
        s = [m12]: ss = [j9]
        If Target.Address = "$Q$14" Then
            [j9] = IIf(ss + 1 <= s, ss + 1, 0)
            [j9].Select
        ElseIf Target.Address = "$Q$11" Then
            [j9] = IIf(ss - 1 >= 0, ss - 1, s)
            [j9].Select
        End If
    Application.EnableEvents = True
End Sub

LSYYLW

quqiyuan 发表于 2025-1-15 09:07
代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Enable ...

再次万万分的感谢老师，代码非常非常好用，您完美的为我解决了问题。