修改Excel代码的问题，非常感谢！

LSYYLW

2024-10-11-.zip (6.93 KB, 下载次数: 3)

2024-10-11 09:00 上传

点击文件名下载附件

ykcbf1100

小改一下。。。

ykcbf1100

原代码小改一下。

autohotey

不过缺点是需要移开K17才能进行下一次点击，不然会编辑K17单元格

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Target.Address = "$K$17" Then
   
4.         Dim currVal As Long
   
5.         currVal = Range("M17").Value
   
6.         currVal = (currVal + 1) Mod 4
   
7.         Range("M17").Value = currVal
   
8.     End If
   
9. End Sub
   

复制代码

quqiyuan

简单改造一下，仅供参考。。。

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$K$17" Then
     rr = Val(Range("M17"))
     If rr < 1 Or rr > 4 Then
        rr = 4
     End If
     Range("M17") = rr - 1
     Range("l17").Select
   End If
End Sub

LSYYLW

ykcbf1100 发表于 2024-10-11 09:09
原代码小改一下。

非常感谢老师，鲜花稍后为您献上。

LSYYLW

autohotey 发表于 2024-10-11 09:14
不过缺点是需要移开K17才能进行下一次点击，不然会编辑K17单元格

非常感谢老师，鲜花稍后为您献上。

LSYYLW

quqiyuan 发表于 2024-10-11 09:28
代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address =  ...

非常感谢老师，代码非常好用，鲜花稍后为您献上。