第七部分 第二個(gè)excel vba實(shí)例

實(shí)際上,，經(jīng)過前面的一二三四五。我們已完成了VBA的入門知識(shí)學(xué)習(xí)了。能解決大部份的日常工作,。為了鞏固相應(yīng)的知識(shí)。我們?cè)賮硪黄饛?fù)習(xí)一下這一段程序,。你能總結(jié)出它其中的知識(shí)點(diǎn)與寫作規(guī)律嗎,？

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

再來一段稍微復(fù)雜點(diǎn)，請(qǐng)將下列代碼寫上注釋,。大意是如果排名在前20%為A,；前50%為B;否則為C。

Sub 排序定級(jí)()

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是一個(gè)便捷的選擇,，其使用方法為：Call 程序名。比如：

Sub 求和排序定級(jí)()

Call 代碼.排序定級(jí)

End Sub

其實(shí)excel vba入門并不難,，讀懂上面所有的代碼與文字,。你就能做自己的辦公小軟件了。