llgd.net
当前位置:首页 >> ExCEl vBA 隐藏模块 >>

ExCEl vBA 隐藏模块

用VBA隐藏和取消隐藏工作表可以使用如下的步骤: 1、工具/原料: (1)Excel (2)VBA 2、在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境,如下图所示: 3、在任意一个模...

在写代码窗口,单击【工具(T)】【VBAproject属性(E)...】【保护】勾丫查看时锁定工程(V)】输入密码后【确定】关闭代码窗口,保存工作表,关闭excel,在打开看看没密码能不能看见代码或插入模块

步骤如下: 1.原数据,将A列为空的行隐藏 2.Alt+F11,在sheet1中输入如下代码 Sub main() For i = 1 To 6 If Cells(i, 1) = "" Then Rows(i).Hidden = True End If Next i End Sub 3.F5执行代码,关闭,返回Excel,结果如下:

这是自带帮助里查到的:隐藏模块中的编译错误 特性 受保护模块中包含一个编译错误。由于该错误位于受保护模块中,因此无法显示。当代码与此应用程序的版本或体系结构不兼容时(例如,文档中的代码针对的是 32 位 Microsoft Office 应用程序,却...

怎么知道有隐藏模块?能不能提供相关提示信息?

1.在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境,如下图所示: 2.在任意一个模块的代码窗口中输入以下的代码 Sub xyf() Sheet1.Visible = xlSheetHidden End Sub 然后...

'用于判断的数值不能放在D1,因为当值为6时,第1行会被隐藏,我这里设计判断的值放在A10处。Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer If Target.Address = "$A$10" Then Select Case Target.Value Case Is = 6 Ro...

当然是可以的。只要代码中不要存在一些选中的语句就可以。见以下代码 range("c1").selectselection.value="AAA"上面代码是指选中C1单元格,再赋值,还有另外一种直接赋值的写法如下: range("c1")="AAA"假如C列是隐藏的,那第一种写法就会报错,...

第一个问题是target后面不能跟row,target直接就代表当前单元格: 将function函数放在模块中,执行正常:

第一个问题是target后面不能跟row,target直接就代表当前单元格: 将function函数放在模块中,执行正常:

网站首页 | 网站地图
All rights reserved Powered by www.llgd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com