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

ExCEl vBA 隐藏模块

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

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

可能是由于如下的原因引起的。一、错误的宏代码 表格中可能引用到宏,要么是宏代码有错误,要么是宏根本就不存在,或者是宏代码中所引用的模块不存在所引起的。遇到这种情况,最好的办法就是把宏给删除。方法很简单:按下组合键 Alt F11 进入VBA...

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

步骤如下: 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,结果如下:

'用于判断的数值不能放在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...

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

一下代码测试通过,效果和你要求的一样: Option ExplicitSub ygb() Dim n, i, j, a, b, c n = Cells(Cells.Rows.Count, "J").End(xlUp).Row 'j列最后一行的行号 a = [a3] b = [b3] c = [c3] i = n For j = 1 To a '重复a3次 '隐藏c3行 Range(Ce...

一、VB代码如下: Private Sub Command1_Click() Dim S() As String, i As Integer, j As Integer Dim xlApp Dim xlBook Dim xlSheet Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False '不显示对话框 Set xlBook = x...

需要更改源代码。

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