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

清风竹-

LSYYLW 发表于 2020-6-25 19:24
老师您好：您帮我写的代码，我又修改了显示结果数据的位置，敬请老师您再帮我修改一下，修改条件在链接上 ...

请看附件。

LSYYLW

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

万万分的感谢老师，代码非常好用，鲜花明天为老师献上。

LSYYLW

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

老师您好：又来麻烦您了，刚才您为我解决的问题，我想请您再帮我一个忙，就是结果数据不用显示在Sheet1里面，只显示在Sheet3里面，我去掉了您为我写的代码中的
Target.Offset(0, 5 + h) = ""
Target.Offset(0, 5 + h) = s
这两句代码，点击B5到B10任意一个单元格实现了只在Sheet3里显示数据了，但是，再次点击B5到B10单元格时，去掉显示过的数据的功能就没有了，老师您受累再帮我看看，拜托您了！
      

清风竹-

LSYYLW 发表于 2020-6-25 22:18
老师您好：又来麻烦您了，刚才您为我解决的问题，我想请您再帮我一个忙，就是结果数据不用显示在Sheet1里 ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b5:b10")) Is Nothing And Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
   s = Target.Value
   r = Target.Row ''''''''''''''''''''''
   c = Target.Column '''''''''''''''''''
   h = [h3]
   With Sheet3
      If .Cells(r, c).Offset(0, 5 + h) <> "" Then '''''''''''''''''
         .Cells(r, c).Offset(0, 5 + h) = "" '''''''''''''''''''''''
      Else
         .Cells(r, c).Offset(0, 5 + h) = s ''''''''''''''''''''''''
      End If
    End With
       Range("C5").Select
  End If
End Sub

清风竹-

LSYYLW 发表于 2020-6-25 22:18
老师您好：又来麻烦您了，刚才您为我解决的问题，我想请您再帮我一个忙，就是结果数据不用显示在Sheet1里 ...

请看附件。

LSYYLW

清风竹- 发表于 2020-6-26 07:49
请看附件。

万万分的感谢老师，问题完美解决了，让老师您受累了。

LSYYLW

2020-7-1.zip (85.86 KB, 下载次数: 6)

2020-7-1 20:33 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-6-2 21:06
请看附件。

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

清风竹-

LSYYLW 发表于 2020-7-1 20:34

请看附件。

LSYYLW

清风竹- 发表于 2020-7-2 15:55
请看附件。

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