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

一把小刀闯天下

'19楼附件，，，

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Rows.Count + Target.Columns.Count > 2 Or _
    Intersect([b5:b10], Target) Is Nothing Then Exit Sub
  If [h3].Value <> 1 And [h3].Value <> 2 Then Exit Sub
  If Len(Cells(Target.Row, 7 + [h3].Value)) = 0 Then
    Cells(Target.Row, 7 + [h3].Value) = Target.Value
  Else
    Cells(Target.Row, 7 + [h3].Value) = Empty
  End If
  Target.Offset(, 1).Select
End Sub

清风竹-

LSYYLW 发表于 2020-6-22 08:40

请看附件。

LSYYLW

一把小刀闯天下 发表于 2020-6-22 12:47
'19楼附件，，，

Option Explicit

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

LSYYLW

清风竹- 发表于 2020-6-22 14:11
请看附件。

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

LSYYLW

2020-6-25.zip (6.68 KB, 下载次数: 9)

2020-6-25 16:16 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-6-22 14:11
请看附件。

老师您好：又来麻烦您了，您有时间帮我看一下25楼附件里的问题，拜托了！

清风竹-

LSYYLW 发表于 2020-6-25 16:20
老师您好：又来麻烦您了，您有时间帮我看一下25楼附件里的问题，拜托了！

请看附件。

LSYYLW

清风竹- 发表于 2020-6-25 17:56
请看附件。

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

LSYYLW

2020-6-25-.zip (8.55 KB, 下载次数: 10)

2020-6-25 19:15 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-6-25 17:56
请看附件。

老师您好：您帮我写的代码，我又修改了显示结果数据的位置，敬请老师您再帮我修改一下，修改条件在链接上29楼附件里的黄色部分，拜托您了！
http://club.excelhome.net/thread-1540554-3-1.html