授课范围 EXCEL技術雜壇(16764878) EXCEL+SQL综合运用(64021637) OFFICE应用挖掘(48866293) OFS四小龙-_-EXCEL (22593384) OFFICE技術雜壇(22593292) Excel交友新群(145818272) Excel知识新群(51612212) Excel交友群(2350248)(此群将迁移至Excel交友新群) Excel知识群(11092081)( 此群将迁移至Excel交友新群) leaf.VBA(122465618) 授课群 呱呱视频房间id: 337216 解答群 Excel进步群(82051780) 授课时间 2011-04-12 20:00 讲师 leaf 助教 授课形式 视频授课 Excel VBA
第二讲VB语法基础
Excel VBA 第二讲VB语法基础 0. 感谢
感谢獨箛勼劍提出培训想法，小新组织此次网络培训。 感谢锅在各群内发消息公告。
特别感谢辉姑娘提供超级群作为授课解答群。
1. 关于群内授课
为方便各Excel爱好者更好地将Excel应用于实际工作，群授课主办方将不定期为大家提供相关课题的培训。
此组织是几个Excel忠实爱好者为提升广大爱好者Excel使用技能水平而自发建立，并希望以此会友共同享受其乐趣。
对于授课形式、授课地点、讨论形式等一切与授课相关点均欢迎大家提出好的建议，也欢迎您的加入！
2. 请参与投票：您最希望听的5个课题？（截止21号）
http://user.qzone.qq.com/896063470/vote/1044883474 投票结果会决定安排讲解哪些课程及讲课的优先顺序
3. 关于本次课题
本次课题VB语法基础会让您了解VBA的基本语法规则，让您明白原来VBA是这样运行程序的。。。
4. 适合听众
对VBA感到很神奇，想知道到底VBA能做什么 想系统学习VBA的朋友
1
Excel VBA 第一讲VB语法基础 5. 目标
了解VB基本语法规则 可以编写简单的代码
6. 一切从宏开始
录制的宏是由Sub定义的子过程
[Private | Public | Friend] [Static] Sub name [(arglist)]
[statements] [Exit Sub] [statements] End Sub
Sub Macro1() With Selection.Font .Color = -16776961 .TintAndShade = 0 End With End Sub
将子过程修改为有返回值的函数
[Public | Private | Friend] [Static] Function name [(arglist)] [As type]
[statements]
[name = expression] [Exit Function] [statements]
[name = expression] End Function
‘ 返回指定单元格的字体颜色 Funcion GetFontColor(Target As Range) As Long Dim lCellColor As Long If IsNumeric(Target.Value) Then lCellColor = Target.Font.Color End If GetFontColor = lCellColor Excel VBA 第一讲VB语法基础 End Sub
几何运算函数
‘ 计算圆的面积 Function CircleArea(R As Double) As Double Const PI As Double = 3.14159265358979 CircleArea = PI * R ^ 2 End Function
子过程的调用方式
‘ 自动计算当前单元格为半径的圆的面积 Sub AutoCalculateCircleArea() ActiveCell.Offset(0,1).Value = CircleArea(ActiveCell.Value) End Function
7. 变量和常量、数据类型
变量声明方式
Public | Private | Friend | Dim | Static [WithEvents] varname[([subscripts])] [As [New] type] [,[WithEvents] varname[([subscripts])] [As [New] type]] . . . Dim lLoopRow As Long
常量声明方式
[Public | Private] Const constname [As type] = expression
基本数据类型
字符串型、数值型数据、字节型、货币性、对象型、日期型、布尔型和变体数据类型 String, Byte, Integer, Long, Single, Double, Currency, Object, Date, Boolean, Variant
命名规则 ⑴ 名字只能由字母、数字和下划线组成； ⑵ 名字的第一个字母必须是英文字母，最后一个字符可以是类型说明符； ⑶ 名字的字符的最长长度是255个； ⑷ 不能使用VBA的保留字为变量名