[已解决]敬请老师帮忙解决问题，非常感谢！

lsyylw

2021-12-17.zip (5.56 KB, 下载次数: 4)

2021-12-17 08:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-17 16:39

连续点击同一个单元格不是个好选择，因为selectionchange事件不响应连续点击同一单元格操作，稍微变通了一下，每次点击后自动选择其他单元格，最好还是按钮操作，速度还快。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Const s1$ = "2312"
   
3. Static s$, n&
   
4. Dim clm&
   
5. With Target
   
6.   If .Address = "$C$7" Or .Address = "$B$7" Then
   
7.     clm = .Column
   
8.     If n Then [c7] = Mid(s1, [c7] + 3 - clm, 1)
   
9.     If clm = 2 Then n = n - 1 Else n = n + 1
   
10.     [a1].Select
    
11.   End If
    
12. End With
    
13. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

连续点击同一个单元格不是个好选择，因为selectionchange事件不响应连续点击同一单元格操作，稍微变通了一下，每次点击后自动选择其他单元格，最好还是按钮操作，速度还快。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Const s1$ = "2312"
   
3. Static s$, n&
   
4. Dim clm&
   
5. With Target
   
6.   If .Address = "$C$7" Or .Address = "$B$7" Then
   
7.     clm = .Column
   
8.     If n Then [c7] = Mid(s1, [c7] + 3 - clm, 1)
   
9.     If clm = 2 Then n = n - 1 Else n = n + 1
   
10.     [a1].Select
    
11.   End If
    
12. End With
    
13. End Sub

复制代码

林木水

大灰狼1976 发表于 2021-12-17 16:39
连续点击同一个单元格不是个好选择，因为selectionchange事件不响应连续点击同一单元格操作，稍微变通了一 ...

请教一下，你这个复制上面的代码格式跟我怎么不一样，是怎么做到的。可以直接看到下面有一个按钮复制代码

大灰狼1976

林木水 发表于 2021-12-17 17:03
请教一下，你这个复制上面的代码格式跟我怎么不一样，是怎么做到的。可以直接看到下面有一个按钮复制代码 ...

选中你贴的代码，然后点击<>图标，自动加上代码标识。
参考图片。

林木水

大灰狼1976 发表于 2021-12-17 17:10
选中你贴的代码，然后点击图标，自动加上代码标识。
参考图片。

收到，了解，谢谢大灰狼老师

大灰狼1976

林木水 发表于 2021-12-17 17:25
收到，了解，谢谢大灰狼老师

不用谢，要注意一点，如果代码里包含反斜杠\，加了代码标记后反斜杠往往会丢失，这种情况下最好不要加代码标记。

lsyylw

大灰狼1976 发表于 2021-12-17 16:39
连续点击同一个单元格不是个好选择，因为selectionchange事件不响应连续点击同一单元格操作，稍微变通了一 ...

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

大灰狼1976

lsyylw 发表于 2021-12-18 08:21
非常感谢老师，代码非常好用。

其实下面这句要改一下
If n Then [c7] = Mid(s1, [c7] + 3 - clm, 1)
改成
If n or clm=3 Then [c7] = Mid(s1, [c7] + 3 - clm, 1)

lsyylw

大灰狼1976 发表于 2021-12-18 10:19
其实下面这句要改一下
If n Then [c7] = Mid(s1, [c7] + 3 - clm, 1)
改成

非常感谢老师，让您费心了。