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

tony0938

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

研習題目

1 VBA撰寫初登場

執行插入/模組指令

執行插入程序PublicSub

選取儲存格的關鍵字Selection

設定所選儲存格字型大小20，粗體樣式

Public SubFontSet()

WithSelection.Font

     .Size = 20

     .FontStyle = "Bold"

End With

End Sub

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

2 原數值的平方

設定第2列與第3欄儲存格的值為原來的平方

使用Cells指名所要參考的儲存格

Val為資料型態

Public SubSquareVal()

Dim val

val = Cells(2,3).Value

Cells(2, 3).Value= val * val

End Sub

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

3 If…Then…End If

檢查儲存格內容，如果是大於或等於60，則輸出及格否則輸出不及格

語法 Ifcondition Then Statements1 Else Statements2 End If

Public SubRating()

IfActiveCell.Value >= 60 Then

     ActiveCell.Offset(0, 1).Value = "及格"

Else

     ActiveCell.Offset(0, 1).Value = "不及格"

End If

End Sub

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

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

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

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

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

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

1030906