无法在隐藏时复制

cmo9020 · 发表于 2022-12-29 21:47

本帖最后由 cmo9020 于 2022-12-30 21:20 编辑

rrr.rar (152.84 KB, 下载次数: 9)

各位导师大神晚上好~~~~有一数据要麻烦大家

隐藏工作表,无法使用自动隐藏
写入Sheet1 B4单元格会开启对应工作表

复制时候就遇见问题...
执行复制无法复制...不知道那儿出问题
也使用复制前
Sheets(CStr(strFind)).Visible = xlSheetVisible
复制后
Sheets(CStr(strFind)).Visible = xlSheetHidden

但就是无法在隐藏时复制
麻烦请各位导师们帮忙看看代码那里有问题,谢谢

mmwwdd · 发表于 2022-12-30 06:12

哥们是台湾的？可以用字典或SQL

cmo9020 · 发表于 2022-12-30 07:40

mmwwdd 发表于 2022-12-30 06:12
哥们是台湾的？可以用字典或SQL

导师您好，字典怎麽启用

mmwwdd · 发表于 2022-12-30 09:07

读别人写的程序非常困难，你还不如写上要求

aman1516 · 发表于 2022-12-30 09:45

代码功能逻辑看半天......
看、改别人的代码还不如将功能要求列出来重新写代码
到少两句有问题
ActiveSheet.Copy
Set wkb1 = ActiveWorkbook
将 ThisWorkbook.Sheets("Sheet1") 建立一个新工作薄，
这样是会连代码一起复制过去的
这时又触发了 Worksheet_Activate() ，自然出借
其2
With wkb2.Sheets("戈")

      arr = Range(.[B3], .[B3].End(xlToRight))
Range前面少了个 .  吧
懒得看了，搞不清.......
将所有涉及到工作表、单元格区域的地方，前面全部指定工作薄和工作表吧

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

[已解决] 无法在隐藏时复制