お奨め本の目次を見るだけでも勉強になったり
＜オブジェクトのループはFor Each In でループさせる＞
こんにちは、三流プログラマーＫｅｎ３です。 今回は、 オブジェクトやコレクションのループは、 いつものカウンタ添字じゃなく、 For Each In でループさせるです。/* * １．今回のキッカケ */
In message "リンク クリック", しょうもさん wrote... >[ ＶＢＡで楽しくプログラミング No.071 ] 2003/05/06 火曜日 より > >> 読者からの要望は、広告自動クリックソフトだったけど > >その名の通り、Clickメソッドが使えますよ。 >今回も、IHTMLElementオブジェクトを操っています。 >「Microsoft HTML Object Library」参照設定です。 > >'----------- > Dim objElement As IHTMLElement > Dim strTempText As String > > For Each objElement In objIE.Document.all.tags(tagName:="a") > strTempText = objElement.getAttribute _ > (strAttributeName:="href") > Debug.Print strTempText > If InStr(strTempText, "top10") Then > objElement.Click > Exit For > End If > Next >'----------- --- と、サンプルプログラムを読者より送ってもらった。 ありがたいなぁ。 人によってプログラムって書き方いろいろなんだけど、 私の悪いクセで、 For Each XXXX In XXXXX のループを避ける傾向がある。。。 今回は、これについて、少々自分にお灸をすえる意味で発行します。 ※一部の読者に人気かあるＩＥ使った不正なクリック処理は、 また今度ね。興味あるひとは直接メールで送ってね（爆）/* * ２．いろいろあるけど、自分にあった方法で、できればＯＫかなぁ。 */
ループ処理って、よく聞くのが、 １〜１０までのループ For n=1 To 10 Call 処理（BOX(n)） Next n なんて感じですよね。 これは、カウンタ変数ｎを使用して配列の変数を使う場合、 よくみかけるパターンですよね、配列のｎ番目を参照するって感じで。 オブジェクトやコレクションも配列になっているので、 オブジェクトのｎ番目を参照して、処理を行うって書き方ができます。 ちょっと前に作った、リンクを書き出す処理 [No.71 IE操作 リンク先を取出す .Document.links(i).href] http://www.ken3.org/backno/backno_vba15.html#71 では、 'リンク数分まわす For i = 1 To objIE.Document.links.Length Cells(nYLINE, "A") = "'" & objIE.Document.links(i).outerText Cells(nYLINE, "B") = "'" & objIE.Document.links(i).href Cells(nYLINE, "C") = "'" & objIE.Document.links(i).outerHTML nYLINE = nYLINE + 1 'セット位置を＋1する Next i と、 カウンタ変数ｉを１からobjIE.Document.links.Lengthの数回してました。 チョット、イメージ沸きにくいなぁ。 えっと、シートの名前を全て表示するには、 まずは、シートの数が必要、、 Debug.Print ActiveWorkbook.Sheets.Count と、アクティブなブックのシートのカウントは？とプロパティを参照。 で、私のいつものパターンだと、
Sub Ken3_TAKO()
Dim n As Integer カウンター変数のｎを定義、
For n = 1 To ActiveWorkbook.Sheets.Count
Debug.Print n & "番目のシート名は" & ActiveWorkbook.Sheets(n).Name
Next n
End Sub |
Sub HELP_SAMPLE()
Dim objSHEET As Object
For Each objSHEET In ActiveWorkbook.Sheets
Debug.Print "シート名は" & objSHEET.Name
Next
End Sub |
Sub Main()
Call CHK_1000(Range("B2:F4"))
End Sub |
Sub CHK_1000(Target As Range) 判定処理 End Sub |
Sub Macro1()
Range("B3:D6").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("H9").Select
End Sub |
Sub CHK_1000(Target As Range)
Target.Interior.ColorIndex = 0 'エリアの背景をクリア
Dim n As Integer
For n = 1 To Target.Count 'ターゲットのカウント分ループ
If Target.Cells(n) < 1000 Then 'n番目の値のチェック
Target.Cells(n).Interior.ColorIndex = 6 'n番目のセルを黄色にする
End If
Next n
End Sub |
では、パラメータを変えて、テストを続けるか。
call CHK_1000(Range("B2:B4,D2:D4,F2:F4"))
と、飛び飛びの範囲を設定してみるか。
あれ、動かないよ、Ｂ列の下を見に行ってるよ。
動作不良の実行結果↓、オイオイ、、、
実は、ここが落とし穴だったんですね。
Target.Cells(n)で参照しているのですが、
範囲をRange("B2:B4,D2:D4")みたいに指定されると動作不良をおこします。
そこで、１つ１つオブジェクトを取り出しループさせる
For Eachに変更します。
Sub CHK_1000(Target As Range)
Target.Interior.ColorIndex = 0 'エリアの背景をクリア
Dim objRANGE As Range
For Each objRANGE In Target 'オブジェクトを取り出しながらループ
If objRANGE.Value < 1000 Then '取り出したオブジェクトの値をチェック
objRANGE.Interior.ColorIndex = 6 'セルを黄色にする
End If
Next
End Sub |
|
あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧 |
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |