根据条件点击指定单元格在指定单元格里显示数字的代码，非常感谢！

LSYYLW

2021-1-29.zip (6.56 KB, 下载次数: 9)

2021-1-29 23:09 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-11-1 21:11
请看附件。

老师您好：又来麻烦您了，您在不忙的时候帮我看一下112楼附件里的问题，拜托您了！

一把小刀闯天下

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub
  If Not Intersect([c3:c32], Target) Is Nothing Then [f3].Value = Target.Row - 2
End Sub

清风竹-

LSYYLW 发表于 2021-1-29 23:09

请看附件。

LSYYLW

一把小刀闯天下 发表于 2021-1-30 09:53
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

LSYYLW

清风竹- 发表于 2021-1-30 11:24
请看附件。

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

LSYYLW

2021-2-13.zip (5.91 KB, 下载次数: 2)

2021-2-13 13:24 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2021-1-30 11:24
请看附件。

老师您好：又来麻烦您了，您在不忙的时候帮我看一下117楼附件里的问题，拜托您了！

清风竹-

LSYYLW 发表于 2021-2-13 13:24

请看附件。

LSYYLW

清风竹- 发表于 2021-2-13 16:49
请看附件。

万万分的感谢老师，代码太好用了，您完美的帮我解决了问题。