全体表示

[ リスト ]

For Each Nextステートメントで配列を処理
に、ついては・・
・・
ネットを見ても
あまりピンと来る
コードが無かったので
自前でナントカ・・

コード
Sub 例()

'配列に データを 格納し、 For Each Next ステートメントで
' 配列のデータを ワークシート上に 出力する。

'*** ただし、途中で For Each Next ステートメントから抜け出す。

' A1セル を 選択する
Range("A1").Select

'変数宣言 変(1〜3) は 文字列型
Dim 変(1 To 3) As String

 '個々の変数に データを 格納する
    変(1) = "a"  
    変(2) = "b"
    変(3) = "c"

'変数宣言 各データ は Variant型・・・配列を For Each  Next で処理するときは、
'  ここを Variant型 にしないと 受け付けない。
Dim 各データ As Variant
'以下、各(For Each)  変 (当配列の変数) の個々のデータの かわりに 各データ を使う
For Each 各データ In 変
'   稼働中セルの値=各データ
    ActiveCell.Value = 各データ
'   もし 稼働中セルの値="b" なら For Each Nextから抜け出す。
    If ActiveCell.Value = "b" Then Exit For
'    稼働中セル の 1つ下のセル を 選択する。
    ActiveCell.Offset(1, 0).Select
'次の 各データへ
Next 各データ

End Sub

実行結果
実行前
イメージ 1



実行後
イメージ 2




この記事に


.


みんなの更新記事