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

LSYYLW

一把小刀闯天下 发表于 2020-6-2 21:05
'可能是这意思的，，，

Option Explicit

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

LSYYLW

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

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

LSYYLW

2020-6-8.zip (4.19 KB, 下载次数: 14)

2020-6-8 08:38 上传

点击文件名下载附件

LSYYLW

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

老师您好：冒昧的直接请您来帮忙，给您添麻烦了，您有时间的时候帮我看一下13楼附件里的问题，拜托了！

一把小刀闯天下

如果一直[J17]变但[l17]不变，序号怎么变？如果序号+1那同行的S列单元格就为空，因为你这条件是“都变动或其中一个有变动的”，那不变动的就不管了，，，

清风竹-

LSYYLW 发表于 2020-6-8 08:45
老师您好：冒昧的直接请您来帮忙，给您添麻烦了，您有时间的时候帮我看一下13楼附件里的问题，拜托了！

请看附件。

LSYYLW

一把小刀闯天下 发表于 2020-6-8 15:52
如果一直[J17]变但[l17]不变，序号怎么变？如果序号+1那同行的S列单元格就为空，因为你这条件是“都变动或 ...

非常感谢老师，怪我把问题没有想的全面，我写的太啰嗦了，J17到L17里的文字和数字变与不变，每点击一次J23，都在R、S列里增加一次显示（相同的也可以多次显示），再次感谢老师！

一把小刀闯天下

LSYYLW 发表于 2020-6-8 19:31
非常感谢老师，怪我把问题没有想的全面，我写的太啰嗦了，J17到L17里的文字和数字变与不变，每点击一次J2 ...

'估计是这意思，，，

Option Explicit

Dim p, m, f As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
  If f Then Exit Sub
  If Not Intersect(Union([Q2:S36], [U2:Y36]), Target) Is Nothing Then m = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$J$23" Then Exit Sub
  If [k8].Value = "单" Then p = 18 Else p = 23
  m = m + 1: f = True
  Cells(m + 1, p - 1) = m: Cells(m + 1, p) = [j17].Value: Cells(m + 1, p + 1) = [l17].Value
  If m = 35 Then m = 0
  Target.Offset(, 1).Select
  f = False
End Sub

LSYYLW

2020-6-22.zip (2.59 KB, 下载次数: 10)

2020-6-22 08:39 上传

点击文件名下载附件

LSYYLW

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

老师您好：实在是不好意思，刚刚麻烦过您，就又来打扰您，有问题向您求助了，麻烦老师您在不忙的时候帮我看一下19楼附件里的问题，拜托您了！