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

1、首先打开excel软件。

2、打开vba编程界面。

3、定义一个函数。

4、要使用【rem+空格+注释内容】。

5、使用英文的上单引号【注释内容】。

6、使用【rem+空格+注释内容】。

7、对于简单的变量的赋值，就是使用【=】。

8、最后就是对于幅值对象进行的赋值。

1. Sub 计算()

Dim a as Integer '定义变量 a 为 整数型

a=Val(InputBox(“请输入一整数a”) ‘将对话框中输入的值转化为数值并赋值给变量a

If a>=0 Then ’条件语句，如果a大于等于零

a=a+10 ‘则，变量a等于原变量值+10

Else ’否则a小于零

a=-a+10 ‘变量a等于10-变量a

End ’条件语句结束

Sheet1.Activate ‘激活sheet1表

Cells(1, 1) = a ’将变量a的值写入单元格A1

End Sub ‘过程结束

2.Sub color()

For k = 1 To 7 ’循环语句，执行7次

c = "A" &k ‘’确定单元格，如A1 、A2

Range(c).Select ‘选定单元

Selection.Interior.ColorIndex = k ’给选定的单元格标色

Next

End Sub 该过程执行完后会给A1Z至A7单元格表上7种颜色。

具体如下：

1、简介

EXCEL表处理软件是美国微软公司研制的办公自动化软件OFFICE 中的重要成员，经过多次改进和升级，最新版本为EXCEL2000。它能够方便的制作出各种电子表格，使用公式和函数对数据进行复杂的运算用各种图表来表示数据直观明了利用超级链接功能，用户可以快速打开局域网或Interner上的文件，与世界上任何位置的互联网用户共享工作薄文件。

2、软件

Excel中大量的公式函数可以应用选择，使用Microsoft Excel可以执行计算，分析信息并管理电子表格或网页中的数据信息列表，可以实现许多方便的功能，带给使用者方便。与其配套组合的有：Word、PowerPoint、Access、InfoPath及Outlook,Publisher

3、百科名片

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh *** 作系统的电脑而编写和运行的一款试算表软件。Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策 *** 作，广泛地应用于管理、统计财经、金融等众多领域。

VBA中代码注释的功能啊。。

就是在任意代码后面增加一个单引号'，在同行单引号后面的所有内容即被视为注释。

给你一段代码看看：

Sub Macro1()

'VBA替换日期型数据

Dim cz As String, th As String

cz = "????-*-*" '查找内容

th = 41118 '替换内容

Dim c As Range '循环变量，代表选中区域内的每个单元格

'注意，先选择替换的区域，注意不要选择错了地方，再执行宏，否则后果比较严重

'下面的selection即表示被选择的区域

For Each c In Selection'循环选中区域的每一个单元格

If c.Text Like cz Then '如果单元格的显示形式和????-*-*格式一样

c.Value = th'替换

End If

Next

End Sub

---