programing:vba
差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン最新のリビジョン両方とも次のリビジョン | ||
programing:vba [2018/06/08 19:21] – [繰り返し処理] 163.49.202.116 | programing:vba [2021/05/03 19:22] – ↷ adobe:adobe_photoshop:programing:vba から programing:vba へページを移動しました。 ochiaimitsuo | ||
---|---|---|---|
行 67: | 行 67: | ||
Dim num As Long ' | Dim num As Long ' | ||
</ | </ | ||
- | |||
- | ==== 条件分岐処理 ==== | ||
- | If | ||
- | |||
- | ==== 条件分岐処理2 ==== | ||
- | Select Case | ||
- | |||
==== 繰り返し処理 ==== | ==== 繰り返し処理 ==== | ||
<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| | | ||
- | | | | | ||
- | |||
- | === Do Whileサンプル === | ||
- | <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 | ||
- | </ | ||
- | |||
- | === Do Untilサンプル === | ||
- | <code vb> | ||
- | Option Explicit | ||
- | Sub sample() | ||
- | Dim i As Long ' | ||
- | i = 1 | ||
- | Do Until Cells(i, 1).Value = "" | ||
- | Cells(i, 2).value = i & " | ||
- | i = i+1 | ||
- | Loop | ||
- | End Sub | ||
- | </ | ||
- | |||
行 205: | 行 139: | ||
===== Excel VBA テクニック ===== | ===== Excel VBA テクニック ===== | ||
- | - [[office: | + | - [[microsoft:office: |
==== Excel VBAでセルの背景色を変える方法 ==== | ==== Excel VBAでセルの背景色を変える方法 ==== | ||
行 269: | 行 203: | ||
| Ucase() | 小文字アルファベットを大文字にする。 | | | Ucase() | 小文字アルファベットを大文字にする。 | | ||
|Mid(引数1, | |Mid(引数1, | ||
- | |Len(文字列)|文字列の長さを返す。| | ||
- | |Replace(文字列, | ||
- | |InStr(文字列, | ||
- | |StrCov(文字列, | ||
programing/vba.txt · 最終更新: 2021/05/06 18:37 by 207.46.13.61