复制表格

ddz79101

老师！有工作簿有时会隐藏2表格（以下称机动表）。我想在复制其他表时，若有隐藏表时能跳过，复制粘贴到机动表后表格；无隐藏表时，则复制粘贴到第1张机动表。请老师看看！谢谢

ddz79101

是否隐藏，是我在一打开工作簿是就设置好的

ykcbf1100

附件供参考。。。

ykcbf1100

工作表复制

1. Sub ykcbf()   '//2024.11.11  工作表复制
   
2.     Set ws1 = ThisWorkbook.Sheets("1")
   
3.     Set ws2 = ThisWorkbook.Sheets("2")
   
4.     Set ws3 = ThisWorkbook.Sheets("3")
   
5.     Set ws4 = ThisWorkbook.Sheets("4")
   
6.     On Error Resume Next
   
7.     If ws2.Visible = 0 And ws3.Visible = 0 Then
   
8.         ws1.Cells.Copy ws4.[a1]
   
9.     ElseIf ws2.Visible = -1 And ws3.Visible = -1 Then
   
10.         ws1.Cells.Copy ws2.[a1]
    
11.     End If
    
12.     MsgBox "OK！"
    
13. End Sub
    

复制代码

ddz79101

ykcbf1100 发表于 2024-11-11 16:36
附件供参考。。。

谢谢老师！运行成功！

西瓜籽

试试，供参考！

ddz79101

西瓜籽 发表于 2024-11-11 17:02
试试，供参考！

谢谢老师！运行没有反应吗？copysheet这是什么控件？

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim Rng As Range
   
    Set Rng = Worksheets("1").[A1].CurrentRegion
    If Worksheets("2").Visible = False And Worksheets("3").Visible = False Then
        Rng.Copy Worksheets("4").[A1]
    ElseIf Worksheets("2").Visible = True And Worksheets("3").Visible = True Then
        Rng.Copy Worksheets("2").[A1]
    End If
    Beep
End Sub

gwjkkkkk

参与一下。。。

ddz79101

gwjkkkkk 发表于 2024-11-11 18:26
参与一下。。。

谢谢老师！运行成功