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

LSYYLW

清风竹- 发表于 2023-12-1 14:39
...........

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

清风竹-

LSYYLW 发表于 2023-12-5 21:38

...........

LSYYLW

清风竹- 发表于 2023-12-14 09:44
...........

万万分的感谢老师，两个问题的代码都非常非常好用，您完美的为我解决了问题。
再麻烦老师您一下，您有时间帮我看一下784楼附件里有颜色单元格里的文字，帮我解决一下，拜托您了！

LSYYLW

2023-12-14-.zip (22.52 KB, 下载次数: 1)

2023-12-14 10:58 上传

点击文件名下载附件

清风竹-

LSYYLW 发表于 2023-12-14 10:53

………………………………
ReDim brr(1 To UBound(arr), 1 To 1)
  brr(UBound(arr) - 1, 1) = 0: brr(UBound(arr) - 2, 1) = 0 '‘’‘’‘’‘’‘’‘’‘’‘加这行。
For i = 2 To UBound(arr) - 3
     brr(i, 1) = 0
     If arr(i, 1) = j1 And arr(i + 2, 1) = j2 And arr(i + 1, 1) = 0 Then
  ………………………………

c1988138

一把小刀闯天下 发表于 2020-6-1 20:20
'估计是这样的，，，

Option Explicit

高手，求助，能移步到https://club.excelhome.net/threa ... tml?_dsign=2f921dd6这里吗，帮忙解决下！

LSYYLW

清风竹- 发表于 2023-12-15 09:47
………………………………
ReDim brr(1 To UBound(arr), 1 To 1)
  brr(UBound(arr) - 1, 1) = 0: brr ...

再次万万分的感谢老师，代码非常非常好用，您完美的为我解决了问题。

LSYYLW

2023-12-19.zip (18.54 KB, 下载次数: 1)

2023-12-19 15:14 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2023-12-15 09:47
………………………………
ReDim brr(1 To UBound(arr), 1 To 1)
  brr(UBound(arr) - 1, 1) = 0: brr ...

老师您好：实在是不好意思，今天又来麻烦您了，您最近一定很忙吧，等您有时间的时候帮我看一下788楼附件里有颜色单元格里的文字，帮我解决一下，拜托您了！

清风竹-

LSYYLW 发表于 2023-12-15 10:39

,.............