Excel代码问题，非常感谢！

LSYYLW

2024-12-11.zip (9.92 KB, 下载次数: 5)

2024-12-11 09:37 上传

点击文件名下载附件

chxw68

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then
   
3.         Exit Sub
   
4.     End If
   
5.     If Target.Column = 4 Then
   
6.         r = Target.Row
   
7.         If r >= 11 And r <= 17 Then
   
8.             Range("k1") = r - 10
   
9.         End If
   
10.     End If
    
11. End Sub
    

复制代码

chxw68

非常简单的一段代码，也没法优化了。

ykcbf1100

参与一下，工作表事件

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.     If T.Column = 4 And T.Row >= 11 And T.Row <= 17 Then
   
3.         Me.[k1] = T.Row - 10
   
4.     End If
   
5. End Sub

复制代码

大灰狼1976

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count = 1 And Not Intersect([d11:d17], Target) Is Nothing Then [k1] = Target.Row - 10
   
3. End Sub

复制代码

quqiyuan

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

quqiyuan

代码如下。。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    arr = Me.[d11:d17]
    Application.EnableEvents = False
        If Target.Column = 4 And Target.Row >= 11 And Target.Row <= 17 Then
            Me.[k1] = Target.Row - 10
            Me.[k1].Select
        End If
    Application.EnableEvents = True
End Sub

LSYYLW

chxw68 发表于 2024-12-11 09:42

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

LSYYLW

ykcbf1100 发表于 2024-12-11 12:31
参与一下，工作表事件

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