Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2155|回复: 8

[已解决]复制工作表内数据的VBA代码求助

[复制链接]
发表于 2015-8-13 16:29 | 显示全部楼层 |阅读模式
本帖最后由 安全网 于 2015-8-15 16:14 编辑

求将"刨花板"\"防潮板"两工作表隐藏、设置保护工作薄后,可以将两表内的数据复制到Sheet1表内的VBA.
最佳答案
2015-8-15 15:59
book10815.rar (141.63 KB, 下载次数: 18)

book0813.rar

257.05 KB, 下载次数: 10

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2015-8-14 16:42 | 显示全部楼层
回复

使用道具 举报

发表于 2015-8-14 18:38 | 显示全部楼层
没保护时是如何复制的,没看明白。
如果没保护能复制,
那就先解密    ActiveWorkbook.Unprotect Password:="123"
再取消隐藏工作表
复制完成后
再隐藏工作表
再加密
就这几步。
回复

使用道具 举报

 楼主| 发表于 2015-8-14 21:14 | 显示全部楼层
能用VBA自动完成么?
回复

使用道具 举报

发表于 2015-8-14 21:24 | 显示全部楼层
安全网 发表于 2015-8-14 21:14
能用VBA自动完成么?

肯定行,就是不明白复制什么?
回复

使用道具 举报

 楼主| 发表于 2015-8-14 21:44 | 显示全部楼层
Private Sub CommandButton2_Click()
On Error Resume Next
    If Len(ListBox3) > 0 Then   ' 如果文字框有文字
    Sheets("防潮板").Select
        Sheets("防潮板").[h1] = ListBox3.Text
        If WorksheetFunction.CountIf(Sheets("防潮板").Range("H:H"), [h1].Value) < 2 Then
        Sheets("sheet1").Select
        UserForm1.Show 0
        UserForm1.ListBox3 = ""
        Else
        [h1].Select
        Sheets("防潮板").Cells.Find(What:=[h1], After:=ActiveCell).Activate
       ActiveCell.Offset(0, 1).Select
       ActiveCell.EntireRow.Select
       Selection.Copy
    Sheets("Sheet1").Select
     Selection.Insert Shift:=xlUp
     Call CycleThrough
     End If
     End If
End Sub通过这个将对应的整行复制过来
QQ图片20150814213839.png
回复

使用道具 举报

发表于 2015-8-15 07:44 | 显示全部楼层
上面代码在工作表没隐藏时也复制不过啊,
回复

使用道具 举报

 楼主| 发表于 2015-8-15 10:15 | 显示全部楼层
在WPS软件内就可以,我也试了原来在微软的可以,现在不行了
回复

使用道具 举报

发表于 2015-8-15 15:59 | 显示全部楼层    本楼为最佳答案   
book10815.rar (141.63 KB, 下载次数: 18)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:16 , Processed in 0.380035 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表