Excel代码问题，非常感谢！

LSYYLW · 发表于 2024-4-16 11:10

2024-4-16.zip (4.35 KB, 下载次数: 2)

LIUZHU · 发表于 2024-4-16 11:26

A1单元格的数字，和Sheet表名之间，为什么不做成一一对应的关系，比如1对应Sheet1，2对应Sheet2？

LIUZHU · 发表于 2024-4-16 11:28

感觉用INDIRECT函数取数就可以了，完全没有必要用代码

cidanji · 发表于 2024-4-16 11:37

LIUZHU · 发表于 2024-4-16 14:24

JSA代码，参考下

function Workbook_SheetChange(Sh,rg){
if (Sh.Name!="Sheet10" || rg.Address(0,0)!="A1") return;
let sht=Sheets.Item(["Sheet2","Sheet3","Sheet4","Sheet6","Sheet7","Sheet8"][rg.Value2-1]);
Sh.Range("b3:z33").Value2=sht.Range("b3:z33").Value2;
}

复制代码

LIUZHU · 发表于 2024-4-16 14:24

用WPS软件打开测试即可，Excel不行

LSYYLW · 发表于 2024-4-16 14:32

cidanji 发表于 2024-4-16 11:37

非常感谢老师，代码非常好用。再麻烦老师您一下，您有时间帮我看一下链接上的问题，拜托了！
https://club.excelhome.net/thread-1689890-1-1.html

cidanji · 发表于 2024-4-16 14:43

LSYYLW 发表于 2024-4-16 14:32
非常感谢老师，代码非常好用。再麻烦老师您一下，您有时间帮我看一下链接上的问题，拜托了！
https://cl ...

已回复了

LSYYLW · 发表于 2024-4-16 14:56

cidanji 发表于 2024-4-16 14:43
已回复了

收到，再次感谢老师！

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

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