Excel VBA テクニック集
For Each 〜 Next





Excel VBA テクニック集


「For Each 〜 Next」の機能を説明します。

たとえば、セルの範囲内のすべてのセルに対し、同じ処理を繰り返す方法です。
下記のプログラムは、セルの範囲A1:C20の中で、フォントサイズが11ならば13にするというものです。
    Dim (セル1個) As Object
    For Each (セル1個) In ActiveSheet.Range("A1:C20")
        If (セル1個).Font.Size = 11 then
            (セル1個).Font.Size = 13
            End If
        Next
その他にも使い方があります。

・計算式のあるセル
    Dim (セル1個) As Object
    For Each (セル1個) In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
        ・・・
        ・・・
        Next
SpecialCellsの定数一覧
xlCellTypeConstants定数が含まれているセル
xlCellTypeBlanks空白セル
xlCellTypeVisibleすべての可視セル
xlCellTypeFormulas数式が含まれているセル
xlCellTypeCommentsコメントが含まれているセル
xlCellTypeAllFormatConditions条件付き書式が設定されているセル
xlCellTypeAllValidation入力規則が設定されているセル

・コメント
    Dim (コメント1個) As Object
    For Each (コメント1個) In ActiveSheet.Comments
        ・・・
        ・・・
        Next
・OLEオブジェクト
    Dim (OLEオブジェクト1個) As Object
    For Each (OLEオブジェクト1個) In ActiveSheet.OLEObjects
        ・・・
        ・・・
        Next
・グラフ
    Dim (グラフ1個) As Object
    For Each (グラフ1個) In ActiveSheet.ChartObjects
        ・・・
        ・・・
        Next
・オートシェイプ(注:コメント・OLEオブジェクト・グラフオブジェクトもオートシェイプとして抽出されます。)
    Dim (オートシェイプ1個) As Object
    For Each (オートシェイプ1個) In ActiveSheet.Shapes
        ・・・
        ・・・
        Next


・ハイパーリンク
    Dim (リンク1個) As Object
    For Each (リンク1個) In ActiveSheet.Hyperlinks
        ・・・
        ・・・
        Next
・条件付書式
    Dim (条件1個) As Object
    For Each (条件1個) In ActiveSheet.Cells.FormatConditions
        ・・・
        ・・・
        Next
・名前定義
    Dim (名前1個) As Object
    For Each (名前1個) In ActiveWorkbook.Names
        ・・・
        ・・・
        Next
・シート
    Dim (シート1個) As Object
    For Each (シート1個) In ActiveWorkbook.Worksheets
        ・・・
        ・・・
        Next
・VBAオブジェクト
    Dim (VBA1個) As Object
    For Each (VBA1個) In ActiveWorkbook.VBProject.VBComponents
        ・・・
        ・・・
        Next

「こだわりハウス」写真館| 数学公式集| ピンポイントストリートビュー| FaceBook| Excel Vba テクニック集| Excel 計算式解析・他解析| 富山の建築家| Excel 計算式解析・他解析| 積分の定義・積分の記号の意味の研究|