mlfk.net
当前位置:首页 >> ExCEl VBA编辑时如何快速注释多行 >>

ExCEl VBA编辑时如何快速注释多行

视图-工具栏-编辑

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

如图所示

1、首先选中要添加注释的内容。 2、点击插入-批注。 3、输入注释的内容,然后点击空白处即可。 4、内容所在单元格右上角出现一个红色三角,将光标放在内容上面,出现注释。 5、点击视图-批注使批注呈现显示状态,则注释的内容会一直被显示。 6、...

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

1. Sub 计算() Dim a as Integer '定义变量 a 为 整数型a=Val(InputBox(“请输入一整数a”) ‘将对话框中输入的值转化为数值并赋值给变量aIf a>=0 Then ’条件语句,如果a大于等于零a=a+10 ‘则,变量a等于原变量值+10Else ’否则a小于零a=-a+10 ‘变量...

多行 If Target.Rows.Count > 1 多列 If Target.Columns.Count > 1

Sub 插入空行() Sheets("Sheet1").Activate Range("6:25").Insert Shift:=xlDownEnd Sub

首先要知道行号、列号是已知还是未知的,知道行号、列号确定单元格以后,用CELLS就可以了,把下面的代码复制到VBA里面执行就看出来了: Sub tt()Dim a, b As Integera = InputBox("请输入行号")b = InputBox("请输入列号")Cells(a, b).SelectEnd...

Range("A1", [A1].End(4).Offset(-1)).EntireRow.Delete

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