programing:vba
差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン次のリビジョン両方とも次のリビジョン | ||
programing:vba [2018/06/08 06:57] – [繰り返し処理3] 202.214.231.181 | adobe:adobe_photoshop:programing:vba [2021/05/03 19:17] – ↷ programing:programing:vba から adobe:adobe_photoshop:programing:vba へページを移動しました。 ochiaimitsuo | ||
---|---|---|---|
行 71: | 行 71: | ||
<code vb> | <code vb> | ||
Option Explicit | Option Explicit | ||
- | Sub sample() | + | Dim i As Long ' |
- | Dim i As Long ' | + | For i=1 To 10 |
- | For i=1 To 10 Step 1' | + | |
Cells(i, 1).value = i & " | Cells(i, 1).value = i & " | ||
- | Next | + | Next i |
- | End Sub | + | |
</ | </ | ||
- | |||
- | Stepは省略する事ができる。省略した場合は「Step 1」として処理される。Stepの後の数字を変えることでカウンタ変数の値の増減量を宣言できる。 | ||
- | |||
- | ==== 繰り返し処理2 ==== | ||
- | コレクションや配列のようにオブジェクトの集まりに対して繰り返し処理を行うにはFor Eachを使用する。 | ||
- | <code vb> | ||
- | Option Explicit | ||
- | Sub sample() | ||
- | Dim i As Long ' | ||
- | Dim o As Object ' | ||
- | i = 1 | ||
- | For Each o In Worksheets ' | ||
- | Cells(i, 1).value = o.Name | ||
- | i = i+1 | ||
- | Next o | ||
- | End Sub | ||
- | </ | ||
- | |||
- | ==== 繰り返し処理3 ==== | ||
- | 繰り返し処理の回数が決まっていない場合は、Do Loopを使用する。 | ||
- | |||
- | 下記のようにA列に値が入っている場合、値が入っているセル回数分処理する。 | ||
- | |||
- | ^A^B^ | ||
- | |1| | | ||
- | |2| | | ||
- | |3| | | ||
- | |4| | | ||
- | |5| | | ||
- | | | | | ||
- | |||
- | <code vb> | ||
- | Option Explicit | ||
- | Sub sample() | ||
- | Dim i As Long ' | ||
- | i = 1 | ||
- | Do While Cells(i, 1).Value <> "" | ||
- | Cells(i, 2).value = i & " | ||
- | i = i+1 | ||
- | Loop | ||
- | End Sub | ||
- | </ | ||
- | |||
行 184: | 行 139: | ||
===== Excel VBA テクニック ===== | ===== Excel VBA テクニック ===== | ||
- | - [[office: | + | - [[microsoft:office: |
==== Excel VBAでセルの背景色を変える方法 ==== | ==== Excel VBAでセルの背景色を変える方法 ==== |
programing/vba.txt · 最終更新: 2021/05/06 18:37 by 207.46.13.61