点单元格显序号

ddz79101

老师！我想点击1列中的任意单元格，则此单元格的右侧显示序号，序号随点击上下而变动。谢谢

yes_cn

点N下显示N，还是有循环？

ddz79101

yes_cn 发表于 2024-9-7 22:43
点N下显示N，还是有循环？

谢谢老师！不循环，序号和点击的先后顺序有关，和单元格的位置是上下无关。

yes_cn

附件两张表，一个是累加的方案；一个是按1，2，3，4循环的方案。

靓仔buddy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. a = Target.Row: b = Target.Column: c = Target.Count
   
3. k = Application.CountA(Columns("F:F")) - 1
   
4. If c = 1 And b = 4 Then
   
5.     k = k + 1
   
6.     Cells(a, 6) = k
   
7. End If
   
8. End Sub
   

复制代码

初步可以满足，后面估计有新的bug

ddz79101

yes_cn 发表于 2024-9-7 23:13
附件两张表，一个是累加的方案；一个是按1，2，3，4循环的方案。

谢谢老师！运行成功！老师想的周全，另种情况也考虑到了

ddz79101

靓仔buddy 发表于 2024-9-7 23:37
初步可以满足，后面估计有新的bug

谢谢老师！运行成功！