撰寫可執行檔語句

可執行檔 語句 會起始動作。 它可以執行 方法 或函式，而且可以迴圈或分支程式碼區塊。 可執行檔語句通常包含數學或條件運算子。

下列範例使用 For Each...下一 個語句，用來逐一查看使用中 Microsoft Excel 活頁簿 Sheet1 上 MyRange 範圍中的每個儲存格。 變數 c 是 MyRange中所包含儲存格集合中的儲存格。

Sub ApplyFormat() 
Const limit As Integer = 33 
For Each c In Worksheets("Sheet1").Range("MyRange").Cells 
    If c.Value > limit Then 
        With c.Font 
            .Bold = True 
            .Italic = True 
        End With 
    End If 
Next c 
MsgBox "All done!" 
End Sub

If...然後。。。范例中的 Else 語句會檢查儲存格的值。 如果值大於 33，With語句會設定該儲存格之Font物件的Bold和Italic屬性。 如果。。。然後。。。Else 語句以 End If 結尾。 With 語句可以儲存輸入，因為它包含的語句會自動在With關鍵字後面的物件上執行。

Next 語句會呼叫MyRange中所包含儲存格集合中的下一個儲存格。

MsgBox函式 (會顯示內建的 Visual Basic 對話方塊) 會顯示訊息，指出Sub程式已完成執行。

另請參閱

• 陳述式
• Visual Basic 概念主題

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。