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) ・・・ ・・・ NextSpecialCellsの定数一覧
・コメント 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 計算式解析・他解析| 積分の定義・積分の記号の意味の研究| |