教學第90題-Visual Basic巨集模組程式初階研習5

tony0938

學習題目： Visual Basic巨集模組程式研習

研習題目

7 For…Next

請利用VBA設計一個聚集HomeRun可以算出誰是全雷打王，同時將全雷打王姓名放在B11儲存格內。

「For…Next」也是一種重複迴圈，它的使用格式如下：

For counter=start To end [step value]

  Statement

Next counter

上述格式中，如果省略[stepvalue]，則每次迴圈執行後，counter的值將加1，當counter的值等於end的值時，則代表迴圈結束執行。此外，希望每次執行完迴圈時，counter的值以異於1方式遞增時，則可以設定stepvalue的value值。

Public SubHomeRun()

Dim counter AsInteger, Maxs As Integer

Dim index AsInteger

index = 0

Maxs = 0

For counter = 5 To10

     If Cells(counter, 6).Value > Maxs Then

          Maxs = Cells(counter, 6).Value

          index = counter

     End If

Next counter

Cells(11, 2).Value= Cells(index, 2).Value

End Sub

…………………………………………………..

8 清除儲存格內容

「ClearContents」屬性主要是用於清除儲存格的內容，此屬性常常配合下列兩個物件使用。

Selection. ClearContents（清除所選儲存格的內容）

ActiveCell. ClearContents（清除目前工作儲存格的內容）

Public SubSelectionClear()

With Selection

     .ClearContents

     With .Font

          .Size = 15

          .Name = "標楷體"

     End With

End With

End Sub

……………………………………………………

9 列出對話方塊MsgBox

當執行HelpContext巨集時，螢幕將出現簡短訊息的對話方塊。

設計VBA程式時，您可以使用MsgBox函數令在螢幕上出現對話方塊，MsgBox函數的基本使用格式如下：

Result=MsgBox（MsgText[,Buttonoptions][,Titletext] [,Helpfile,Context]）

MsgText是指將在對話方塊內出現的訊息

Buttonoptions是一個數值供指出此對話方塊應出現那一個功能鈕，可參考下表。

Public SubHelpContext()

Dim txtOut AsString, txtTitle As String

Dim Result AsInteger

txtOut = "洪錦魁在北極海"

txtTitle ="Excel實例ch18_9"

Result =MsgBox(txtOut, vbOKOnly, txtTitle)

End Sub

範例檔案：應用題研習-5 (歡迎下載)

應用題研習-5做完的同學請把檔案回傳給我，以方便老師幫你們做檢查喔！

同樣歡迎其他班別學員一起學習喔！

若是還有不了解之處學員們可利用回覆視窗與我聯絡喔！

新加入學員可以將已經上線的學習作業檔、線上教育訓練檔、作品呈現檔、原創檔下載下來

聯成電腦  版主位置：職訓多媒體&網頁設計班  tony黃正升老師

1030906