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

LSYYLW · 发表于 2023-12-5 21:41

本帖最后由 LSYYLW 于 2023-12-9 14:39 编辑

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

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

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

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

...........

LSYYLW · 发表于 2023-12-14 10:51

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

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

再麻烦老师您一下，您有时间帮我看一下784楼附件里有颜色单元格里的文字，帮我解决一下，拜托您了！

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

本帖最后由 LSYYLW 于 2023-12-14 10:58 编辑

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

清风竹- · 发表于 2023-12-15 09:47

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 · 发表于 2023-12-15 09:53

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

Option Explicit

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

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

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

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

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

本帖最后由 LSYYLW 于 2023-12-19 15:14 编辑

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

LSYYLW · 发表于 2023-12-15 10:44

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

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

清风竹- · 发表于 2023-12-20 09:05

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

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

		自动登录	找回密码
密码			免费注册

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

评分

评分

评分