次の方法で共有

実行可能ステートメントを作成する

  • [アーティクル]

実行可能ステートメントはアクションを開始します。 このステートメントを使用して、メソッドや関数を実行したり、コード ブロックのループ処理や分岐処理を行ったりできます。 多くの場合、実行可能ステートメントには算術演算子または条件付き演算子が含まれます。

次の例では 、For Each..を使用しています。次 のステートメントを使用して、作業中の Microsoft Excel ブックの Sheet1 の MyRange という範囲の各セルを反復処理します。 変数 c は、MyRange に含まれるセル コレクション内の 1 つのセルです。

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 プロパティが設定されます。 If...Then...Else ステートメントは End If で終了します。 With ステートメントは、含まれるステートメントが With キーワードの後のオブジェクトで自動的に実行されるため、型指定を保存できます。

Next ステートメントは、MyRange に含まれるセルのコレクション内にある次のセルを呼び出します。

MsgBox 関数 (組み込みの Visual Basic ダイアログ ボックスが表示されます) には、Sub プロシージャの実行が完了したことを示すメッセージが表示されます。

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。