Excel代码问题，非常感谢！

LSYYLW

2024-6-21.zip (7.17 KB, 下载次数: 6)

2024-6-21 14:49 上传

点击文件名下载附件

Qs18

不是很好理解.......

cidanji

macrov

看起来很难，换个思路就是公式可以解决的问题了。能用公式为啥要想着写代码？

1. Sub 其实还是公式()
   
2.     Range("J12").Select
   
3.     ActiveCell.Formula = "=IF(ISNA(Y12),Al12,Y12)"
   
4.     Range("J12").Select
   
5.     Selection.AutoFill Destination:=Range("J12:S12"), Type:=xlFillDefault
   
6.     Range("J12:S12").Select
   
7.     Selection.AutoFill Destination:=Range("J12:S28"), Type:=xlFillDefault
   
8. End Sub

复制代码

大灰狼1976

不便测试

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> [v1].Address Then Exit Sub
   
3. [j4:s28] = [iferror(y4:ah28,0)+al4:au28]
   
4. End Sub

复制代码

LSYYLW

2024-6-21---.zip (9.04 KB, 下载次数: 2)

2024-6-21 20:49 上传

点击文件名下载附件

LSYYLW

cidanji 发表于 2024-6-21 15:05

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

LSYYLW

macrov 发表于 2024-6-21 15:12
看起来很难，换个思路就是公式可以解决的问题了。能用公式为啥要想着写代码？

非常感谢老师，我实际应用时，数据量很大，用公式会很慢。

longwin

请测试.........

LSYYLW

longwin 发表于 2024-6-22 00:04
请测试.........

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