Forループのもう一つのタイプは、For Nextループです。 For Nextループは、整数の範囲をループすることができます。 このコードでは、1から10までの整数をループして、それぞれをメッセージボックスで表示します。Sub ForLoop() Dim i As Integer For i = 1 To 10 MsgBox i Next i End...
Add("すぺらんかー") Dim vData As Variant For Each vData In cll Debug.Print TypeName(vData) & ":" & vData Next Set cll = Nothing End Sub また、以下のように連想配列としても使用可能だ。Public Sub CollectionTest002() Dim cll As New Collection Call cll.Add("りんご", "赤") ...
' ↑で見つけたら oCtlはそのままで、ループを抜ける。 Exit For End If End If Next 'コピー(Excelから)と貼り付け(Outlookへ)処理 Range("A10:F14").Select 'Excel Selection.Copy DoEvents oCtl.Execute '↑で見つけたoCtl 貼り付けコマンド(outlook)を実行←ここでエラー ...
Fori=1To10Nexti その後、iの値が5と等しいかどうかをIfコマンドでチェックします。もし値が5なら、Forループを抜けて、ループの後の最初の行に進みます。 Ifi=5ThenExitForEndIf 条件を満たさない場合は、次の文でiを1つ増やして、再びForループに入ります。
For i = Len(dbName) To 1 Step -1 If Mid(dbName, i, 1) = "\ Then Exit For '￥だったら抜ける Next i 'C:\xxxx\yyyy\zzz.mdb --> C:\xxxx\yyyy\ にする dbShortPath = Mid(dbName, 1, i) 'ファイルの存在をチェックする ...