VBA程序设计基础
1、数据类型的概念
在计算机中,数据也是按不同的类别进行运算和保存的,人们称之为数据类型。同种类型的数据占用相同大小的存储空间,相互之间可以进行计算、比较或赋值等操作;不同类型的数据占用的存储空间大小不一定相同,且相互之间不能进行计算和比较等操作 。
2、VBA的数据类型
(1)常量
数值常量 ,如:1,2,65,98.65等
字符及字符串常量
字符类型的常量称为字符常量,字符常量要用定界符双引号(“ ”)界定。例如,“d”、“5”、“A”等都是字符常量。
符号常量
Const 常量名=常量值
例如,Const PI=3.14,Const ABC="OK ! China! "
2)变量
变量是在程序运行期间其值可以发生变化的数据。
例如:
1 Dim A,B As Integer
2 A=1
3 B=2
4 A=4+b
5A=3
●
A在本程序段中有3个不同的值,这就是变!
字符串类型
在VBA中有两种类型的字符串,变长与定长的字符串。
Dim s1 As String //变长类型
Dim s2 As String *10 //定长类型
s1="dddkdk "
s2="d1234567890sssss "
布尔类型
布尔类型是比较运算或逻辑运算的结果值,它只有两个取值:True和False。True是比较结果为真时的值,False是比较结果为假时的值
Dim A As Boolean
Dim B As Boolean
A=3>5
B=True
日期类型
日期型数据用于保存日期,占8个字节的存储空间,以浮点数值形式保存日期,可以表示的日期范围从公元100年1月1日到公元9999 年12月31日,而时间可以从0:00:00 到 23:59:59。
日期文字以“#”作界定符。
Dim d1,d2 As Date
d1=# 1 Jul 98 # 'D1的取值是1998年7月1号
d2=# 12/2/2000 # 'D2的值是2000年12月2号
对象、属性和方法
宏代码中的对象
Sub 宏4()
1 Range("E6").Select
2 ActiveCell.FormulaR1C1 = "eqw"
3 Range("E6:E7").Select
4 Selection.Font.Bold = True
5 Selection.Font.Italic = True
6 With Selection.Font
7 .Name = "华文楷体"
8 .Size = 12
9 .Shadow = False
10 .Underline = xlUnderlineStyleNone
11 .ColorIndex = xlAutomatic
12 End With
13 Selection.Font.ColorIndex = 3
14 End Sub
条件语句
n计算折扣的函数
Function d(s)
If s >= 1000 Then
d = 0.1
ElseIf s >= 750 Then
d = 0.07
ElseIf s >= 500 Then
d = 0.05
ElseIf s >= 250 Then
d = 0.02
Else
d = 0
End If
End Function
分情况选择语句
编写的Seclect 函数
Function AddSalary(职称) '职称作为一个参数
Select Case 职称
Case "教授", "高级工程师"
AddSalary = 150
Case "副教授"
AddSalary = 130
Case "讲师"
AddSalary = 100
Case "助教"
AddSalary = 80
Case "工程师"
AddSalary = 140
Case "助工"
AddSalary = 90
End Select
End Function
【例 】 某教师讲授了一门考查课程,他平时及期末考试都用百分制衡量学生的成绩,设该教师的成绩表如图 所示。学校要求最后的成绩都用等级制。百分制与等级制的转换规则为:60分以下为不及格,60~70分为及格,70~80分为中等,80~90分为良,90~100分为优。编写一个百分制与等级制的转换函数实现成绩的等级转换。
n编写的成绩转换函数
Function change(score)
Select Case score
Case Is >= 90
change = "优"
Case Is >= 80
change = "良"
Case Is >= 70
change = "中"
Case Is >= 60
change = "及格"
Case Else
change = "不及格"
End Select
End Function
今天就到这里了,评论区欢迎留言哦、