田源内训：零基础学VBA——第二个VBA实例

第七部分 第二个excel vba实例

实际上，经过前面的一二三四五。我们已完成了VBA的入门知识学习了。能解决大部份的日常工作。为了巩固相应的知识。我们再来一起复习一下这一段程序。你能总结出它其中的知识点与写作规律吗？

Sub 求和()

Dim p As Worksheet

Set p = Worksheets('考核表')

 

Dim R As Integer

R = p.Range('A65536').End(xlUp).Row

 

For R2 = 2 To R Step 1

p.Cells(R2,1)=

Application.WorksheetFunction.Sum(p.Range('D' & R2 & ':J' & R2))

Next

End Sub

再来一段稍微复杂点，请将下列代码写上注释。大意是如果排名在前20%为A；前50%为B;否则为C。

Sub 排序定级()

Dim p As Worksheet

Set p = Worksheets('考核表')

 

Dim R As Integer

R = p.Range('A65536').End(xlUp).Row

 

For R2 = 2 To R Step 1

p.Cells(R2,12)=Application.WorksheetFunction.Rank(p.Cells(R2,11), p.Range('K2:K' & R))

 

If p.Cells(R2, 12) <= (R - 1) * 0.2 Then

p.Cells(R2, 13) = 'A'

ElseIf p.Cells(R2, 12) <= (R - 1) * 0.5 Then

p.Cells(R2, 13) = 'B'

Else

p.Cells(R2, 13) = 'C'

End If

Next

End Sub

如果你想多处引用特定的代码，那么使用CALL是一个便捷的选择，其使用方法为：Call 程序名。比如：

Sub 求和排序定级()

Call 代码.排序定级

End Sub

其实excel vba入门并不难，读懂上面所有的代码与文字。你就能做自己的办公小软件了。