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 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024