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

tony0938

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

研習題目

4 Select Case…End Select

檢查儲存格內容，如果是1右邊出現海角七號，如果是2右邊出現投名狀，如果是3右邊出現色戒，如果是4右邊出查無此片

Public SubFilmSelect()

Select CaseActiveCell.Value

Case 1

     ActiveCell.Offset(0, 1) = "海角七號"

Case 2

     ActiveCell.Offset(0, 1) = "投名狀"

Case 3

     ActiveCell.Offset(0, 1) = "色戒"

Case Else

     ActiveCell.Offset(0, 1) = "查無此片"

End Select

     

End Sub

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

5 Do…Loop Until

利用VBA設計巨集可以計算安打數，同時將安打數放在D11位址。

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

Do

　Statement

Loop Until condition

如果condition條件符合時，整個執行動作才會結束，如果condition條件一直不符合，則迴圈將一直執行（相當於一直執行statement敘述）。

Public Sub HitTotal()

Dim total AsInteger, index As Integer

index = 5

total = 0

Do

     total = Cells(index, 4).Value + total

     index = index + 1

Loop Until index> 10

Cells(index,4).Value = total

End Sub

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

6 Do…Loop While

請利用VBA設計一個巨集ScoreMax可以計算國文成績的最高分，將計算結果設在C9儲存格

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

Do

　Statement

Loop while Condition

如果Condition條件符合則迴路繼續執行，如此可重複執行Statement敘述。如果Condition條件不符合則迴圈執行結束。

Public SubScoreMax()

Dim index AsInteger, Maxs As Integer

index = 4

Maxs = 0

Do

     If Cells(index, 3).Value > Maxs Then

          Maxs = Cells(index, 3)

     End If

     index = index + 1

Loop While index<= 8

Cells(index,3).Value = Maxs

End Sub

  

範例檔案： (歡迎下載)

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

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

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

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

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

1030906