Excel vba 注释怎么加?

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 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策 *** 作，广泛地应用于管理、统计财经、金融等众多领域。

假如你有如下一个自定义函数

Function abc()

abc = Range("a1") ^ 2

End Function

在同一模块中，再写入下面过程：

Sub ddd()

Application.MacroOptions Macro:="abc", Description:="A1格的平方"

End Sub

先执行这个ddd过程后，就能看到函数abc的注释被添加了。

 Option Explicit '强制声明变量开关打开

Sub test1() '声明过程

Dim A, i% '声明变量

Application.DisplayAlerts = False '关闭提示框

ThisWorkbook.Activate '设置活动工作簿

Sheets(1).Activate    '设置活动工作表

A = [d6:o10] 'd6：o10装入数组

Sheets(2).Activate '设置活动工作表

Sheets(2).UsedRange.ClearContents '清空数据

[a1].Resize(UBound(A), UBound(A, 2)) = A '以a1为左上角写入数组内容

Range("b:b,j:k").Delete '删除b列，jk列

Columns("A:B").Insert 'a列前插入两列

Sheets(1).Activate '设置活动工作表

A = Sheets(2).[a1:k5] '把第二个表的a1：k5装入数组

For i = 1 To UBound(A) '循环

A(i, 1) = [z1] '数组A第一列全等于z1

A(i, 2) = [c4] '数组A第二列全等于c4

Next i '结束循环

Call test2(A) '调用test2，数组A作为参数

Range("a1:q10").SpecialCells(xlCellTypeConstants).ClearContents '清理常量

End Sub '结束

Private Sub test2(A) '声明过程

Dim p, f, r '声明变量

p = ThisWorkbook.Path & "\" '本文件的路径

f = "提取保存的数据.xls" '文件名

Call test3(f) '调用test3，f作为参数

Workbooks.Open p & f '打开工作簿

Sheets(1).Activate '设置活动工作表

r = Cells(Rows.Count, 1).End(xlUp).Row + 1 'a列最后一个有数据的单元格行号+1

Cells(r, 1).Resize(UBound(A), UBound(A, 2)) = A '把数组A内容写入到当前工作表，接在原有数据的下面

ActiveWorkbook.Close 1 '保存并关闭文件

End Sub '结束

Private Sub test3(f) '定义过程

On Error Resume Next '以下代码出现错误则执行下一条语句

Workbooks(f).Close 0 '不保存关闭文件

On Error GoTo 0 '禁止当前过程中已启动的错误处理程序

End Sub '结束

---