Excel代码问题，非常感谢！

LSYYLW · 发表于 2024-9-24 08:29

2024-9-24.zip (9.95 KB, 下载次数: 2)

袁勇 · 发表于 2024-9-24 08:50

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
[b7].Resize(31, 12) = Sheets([a1] * 3 - 1).Range("b7:m37").Value
[O7].Resize(31, 12) = Sheets([a1] * 3 - 0).Range("b7:m37").Value
End If
End Sub

饮冰e士 · 发表于 2024-9-24 08:50

很好奇，是个什么样的项目，可以坚持搞这么多年

可以把完整文件分享出来欣赏、学习一下吗？

袁勇 · 发表于 2024-9-24 08:53

LSYYLW · 发表于 2024-9-24 10:09

2024-9-24-.zip (1.06 MB, 下载次数: 5)

LSYYLW · 发表于 2024-9-24 10:13

袁勇发表于 2024-9-24 08:53

非常感谢老师，代码非常好用，再麻烦老师您一下，您有时间帮我看一下5楼附件里有颜色单元格里的文字，帮我解决一下，拜托了！

LSYYLW · 发表于 2024-9-24 10:21

饮冰e士发表于 2024-9-24 08:50
很好奇，是个什么样的项目，可以坚持搞这么多年
可以把完整文件分享出来欣赏、学习一下吗？

抱歉老师，还没有成功，会经常修改。

袁勇 · 发表于 2024-9-24 10:51

LSYYLW 发表于 2024-9-24 10:13
非常感谢老师，代码非常好用，再麻烦老师您一下，您有时间帮我看一下5楼附件里有颜色单元格里的文字，帮 ...

LSYYLW · 发表于 2024-9-24 11:43

袁勇发表于 2024-9-24 10:51

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

LSYYLW · 发表于 2024-9-27 22:21

本帖最后由 LSYYLW 于 2024-9-28 15:49 编辑

2024-9-28--.zip (976.85 KB, 下载次数: 1)

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

[求助] Excel代码问题，非常感谢！

评分

评分

评分