Excel代码问题，非常感谢！

LSYYLW

2024-9-6.zip (5.25 KB, 下载次数: 5)

2024-9-5 19:28 上传

点击文件名下载附件

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$K$17" Then Exit Sub
    Application.EnableEvents = False
    Select Case [m17].Value
    Case 0
        [m17] = 1
    Case 1
        [m17] = 2
    Case Else
        [m17] = 0
    End Select
    [m17].Select
    Application.EnableEvents = True
End Sub

lsc900707

一直都不自己动手的吗？别人帮你写了那么多的代码了，但凡用点心学习，这样的题目应该自己可以独立完成了！

饮冰e士

lsc900707 发表于 2024-9-5 19:45
一直都不自己动手的吗？别人帮你写了那么多的代码了，但凡用点心学习，这样的题目应该自己可以独立完成了！

一道题能玩出这么多花样，也是空前了

yellowhawk

lsc900707 发表于 2024-9-5 19:45
一直都不自己动手的吗？别人帮你写了那么多的代码了，但凡用点心学习，这样的题目应该自己可以独立完成了！

确实，你这个意见很好。

LSYYLW

quqiyuan 发表于 2024-9-5 19:45
代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address  ...

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