抱歉发错栏目了

LSYYLW

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

2025-1-15 07:34 上传

点击文件名下载附件

LSYYLW

抱歉发错栏目了

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:29
参与一下，仅供参考。。。

万万分的感谢老师，十分抱歉，忘了说一个条件，就是M12里的数字我需要手工改动，根据改动后的数字在执行问题中的条件，麻烦老师您有时间的时候帮我解决一下，拜托您了！

quqiyuan

LSYYLW 发表于 2025-1-15 08:49
万万分的感谢老师，十分抱歉，忘了说一个条件，就是M12里的数字我需要手工改动，根据改动后的数字在执行 ...

m12可以修改啊，改好再点q14或者q11。。。

LSYYLW

quqiyuan 发表于 2025-1-15 08:54
m12可以修改啊，改好再点q14或者q11。。。

万万分的感谢老师，我明白了。