mlfk.net
当前位置:首页 >> VBA中怎么把大段代码直接改为注释内容? >>

VBA中怎么把大段代码直接改为注释内容?

使用设置注释块功能 先打开编辑工具栏 选中要注释的代码 点击设置注释块即可

如图所示

你的意思是把一段代码都变成注释,但不删除内容? 是的话可参考:先选中需要批量注释的内容,再点击“设置注释块”即可。 后边紧挨着的按钮是撤销注释按钮,方法一样。 (先右键工具栏空白处,添加“编辑”工具栏)

视图-工具栏-编辑

VBA窗口(VBE)中,视图-->工具栏-->编辑,编辑工具栏上有两个按钮“块注释”和“取消块注释”。

VBA中代码注释的功能埃。 就是在任意代码后面增加一个单引号',在同行单引号后面的所有内容即被视为注释。 给你一段代码看看: Sub Macro1() 'VBA替换日期型数据 Dim cz As String, th As String cz = "????-*-*" '查找内容 th = 41118 '替换内...

Sub Dowhile3() Dim LineCt As Long '定义长整型变量 Dim LineOfText As String '定义字符串变量 Open "\Documents and Settings\Administrator\桌面\bulletin.txt" For Input As #1 ’打开文件 LineCt = 0 '变量赋值 Do While Not EOF(1) '循环...

假如你有如下一个自定义函数 Function abc()abc = Range("a1") ^ 2End Function在同一模块中,再写入下面过程: Sub ddd()Application.MacroOptions Macro:="abc", Description:="A1格的平方"End Sub先执行这个ddd过程后,就能看到函数abc的注释...

Else '否则 For Each c In Array(4, 8) '设定变量范围为每一个c位于Array(4,8) brr(d(str), c) = brr(d(str), c) + arr(i, c) 'brr(d(str),c)=brr(d(str),c)+arr(i,c) Next '下一个 End If 'End如果 Next '下一个 Erase arr '删除arr str = "" ...

这个真没有哦,语句都是开发人员根据自己的要求、理解来编写的,软件 还没有办法做到这一步的;想学习的话只能一步步,一点点积累了,这样你会发现慢慢的能看懂;还可以结合网络或EXCEL VBA的帮助文件来查寻。

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