(vb基础编程100例)(vb程序设计实例100)

'VBA的常见数据类型

'整形 integer 简写(%)

'单精度 single 简写(!)

'双精度 double 简写(#)

'长整型 long 简写（&）

'字符型 string 简写($)

'货币型 currency 简写(@)

'exit for 表示退出for循环，相当于php的break;

'goto line 100 跳转到100标记的地方

'on error resume next 当出现错误的时候继续执行，就是自动忽略错误

'with 当某个对象执行一系列语句时，不用重复指出对象名；

'iif的作用相当于php里的三元运算

'vba一句话的结束符是':'冒号，不过比较少用，一般一句话写一行就不需要了；

'只有在2句话要写在一行时才有

''''''''''''''''''''''''''''''''''''''''''

''''vba颜色的表示方法，方法1和2是color，而3是colorindex

'[a1].Interior.Color = &H2ACB2A ''''方法1，用16进制的方法

'[a1].interior.color = vbred ''''方法2，用vb颜色常数

'[a1].interior.colorindex = 4 ''''方法3，用数字表示只有1-56

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Sub dd()

' a = Range("a10").Address

' b = Range("a10").Parent.Name

' Range("a10") = "xxxxx"

'End Sub

'这种写法比较麻烦，可以采用下面的方法

'Sub xx()

' With Range("a11")

' a = .Address

' b = .Parent.Name

' .Value = "wwwww"

' End With

'End Sub

' MsgBox "xxxxx" ''''msgbox的作用相当于JS里的alert

'End Sub

'Function bianl(s As Integer) As Double

' Dim a% '表示变量a是整型

' a = s * 22

' bianl = a

'End Function

'Function hs(dyg As Range) As String

' 'range是单元格类型

'End Function

'Function zhang() As Double 'for循环的方法

' For i = 1 To 5 Step 1

' zhang = zhang + 3

' Next

'End Function

Function countStr(s$, x$) As String '统计各个等级有几个，并合成nA、nB、nC、nD的形式，如果系数是0不显示

Dim a%, str$

a = Len(s) - Len(Replace(s, x, ""))

If a <> 0 Then '系数为0的不要

str = a & x

End If

countStr = str

End Function

'最后进行合并nAnBnCnD的形式

Function getGrade(ParamArray a()) '参数可以是任意个

Dim i%, tmp As Range, s$

For i = LBound(a) To UBound(a)

For Each tmp In a(i)

s = s + IIf(i = 0, yw(tmp.Value), IIf(i = 1 Or i = 2, sx(tmp.Value), qt(tmp.Value)))

Next

Next

getGrade = countStr(s, "A") + countStr(s, "B") + countStr(s, "C") + countStr(s, "D")

End Function

Function countNum(s$, x$) As Integer '统计各个等级有几个，并合成等级分

Dim a%, num%

a = Len(s) - Len(Replace(s, x, ""))

If a <> 0 Then '系数为0的不要

num = IIf(x = "A", 10, IIf(x = "B", 1, IIf(x = "D", -100, 0))) '类似于php的三元运算

End If

countNum = a * num

End Function

Function getGF(ParamArray a()) '最后进行合并总的等级分

Dim i%, tmp As Range, s$

For i = LBound(a) To UBound(a)

For Each tmp In a(i)

s = s + IIf(i = 0, yw(tmp.Value), IIf(i = 1 Or i = 2, sx(tmp.Value), qt(tmp.Value)))

Next

Next

getGF = countNum(s, "A") + countNum(s, "B") + countNum(s, "C") + countNum(s, "D")

End Function

'''''Sub shows()

'''''

'''''Dim arr(1 To 7)

'''''For Each my In [a1:a7]

''''' n = n + 1

''''' arr(n) = my

'''''Next

'''''MsgBox arr(3)

'''''

'''''End Sub

'

'Function shows(ParamArray a()) As Integer ''''for each循环

' Dim i%, s%

' For i = LBound(a) To UBound(a)

' For Each t In a(i)

' s = s + t

' Next

' Next

' shows = s

'End Function

Sub wbs()

' MsgBox Workbooks().Parent '''''工作簿对象

' MsgBox Workbooks(1).Name '''''目前打开的第一个工作簿的名称

' MsgBox Workbooks().Count '''''目前打开的工作簿有几个

'

' MsgBox Worksheets(3).Name ''''工作表的名字

' MsgBox Sheets(3).Name ''''工作表的名字

[a2].Resize(3, 3).Select

End Sub

'''''变量的类型声明不声明都是可以的，但是最好声明，只要是可以避免有的版本不兼容''''''

'''''但是如果在模块的前面加上一句代码Option explicit，声明变量就必须有类型

'Function zhang(x As Range) As Double

' zhang = Val(x) + 1 ''''''单元格的值加1

'End Function

'apace(n) 函数返回n个空格

'string(n,s)函数返回n个s字符串里的第一个字符

'len()函数是技术字符串的长度

'Format(expression[,format[,firstdayofweek[,firstweekofyear]]])格式化字符串

' strOut = Format("8888888", "(@@@)&&&-&&&&") '返回( )888-8888

'replace替换字符串

Sub zhang()

' Dim MyString

' MyString = String(5, "2") ' 返回 "*****"

' MsgBox MyString

' Dim s$

' s = "xxxwwwww"

' MsgBox Len(s)

' Dim str$

' str = "abcde"

' MsgBox Replace(str, "c", "p")

'''''单元格的表示用range("b5")或者用cells(5,2)是一样的，哪一种写法都没关系''''

''''复制单元格''''

'Range("a1").Copy Destination:=Range("a3") ''''a3单元格复制a1单元格的值

'Range("a1").Copy Range("a10") ''''这两种写法都一样

'''''背景颜色'''''

'Range("a1").Interior.ColorIndex = 43 ''''单元格的背景颜色用1-56表示

''''''字体的颜色'''''''

'Cells(1, 1).Font.ColorIndex = 2

'' Dim n%, cel As Range

'' For Each cel In [a1:a50]

'' n = n + 1

'' cel.Value = n

'' Next

''Dim i%

''

''For i = 1 To 100

'' Cells(i, 3) = i

'' 'Range("c" & i) = i '''''这2种方法一样

''Next

'Dim i%

'For i = 1 To 100

' If i Mod 5 = 0 Then ''''' vba的求余用mod '''''

' Cells(i, 3) = ">>>><<<<"

' Else: Cells(i, 3) = i

' End If

'Next

'Dim i%

'For i = 1 To 50

' Cells(i, 5) = IIf(i Mod 5 = 0, "<<<>>>", i)

'Next

'Dim i%, arr(1 To 5) As Integer '''''循环向数组添加元素

'For i = 1 To 5

' arr(i) = i

'Next

'

'For i = 1 To 5

' MsgBox arr(i)

'Next

'Dim i%, j%

'For i = 1 To 100

' For j = 1 To 5

' Cells(i, j) = i

' Next

'Next

'Dim i%, j%

'For i = 1 To 100

' For j = 1 To 5

' Cells(i, 6) = Cells(i, 6) + Cells(i, j) '''''第6列单元格的值等于同一行前5列的和

' Next

'Next

'Range("g5") = "=SUMIF(a10:f10,10,c10:f10)" '''''直接使用excel自带的函数

'' Dim i%

'' For i = 1 To 100

'' Debug.Print i '''''debug.print 是把正在执行的过程显示在立即窗口

'' Next

''''for each ... in进行的是对象的循环''''''''

''do...loop循环

Dim i%, sr$

100:

sr = Application.InputBox("请输入数字", "输入提示")

If Len(sr) = 0 Or sr = 5 Then GoTo 100

End Sub