特定のVBAコードの学習

質問

こちらのサイトに掲載されているVBAがとても便利だったので、これをとりかかりにExcel VBAの学習をしたいと思っています。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1230707792

行ごとに何を意味するものが書かれているのか、調べながら学習したいのですが、適当なサイトや書籍がありましたら教えてください。

コードも下記に記します。
Sub sample()
Const READYSTATE_COMPLETE = 4
Dim ie As Object
Dim r As Long
Set ie = CreateObject("InternetExplorer.Application") 'ie
'ie.Visible = True 'ieを表示する場合
r = 1 '注目行の初期値
Do While Range("A" & r) <> "" 'A列が空白でない間
ie.navigate Range("A" & r).Value '注目行のA列のURlにアクセス
Do While ie.busy Or (ie.readystate <> READYSTATE_COMPLETE): DoEvents: Loop '表示完了待ち
Range("B" & r).Value = ie.document.Title '注目行のB列にurlのタイトル書き込み
r = r + 1 '注目行+1
Loop
ie.Quit 'ieを閉じる
Set ie = Nothing
End Sub

回答No.1

めとろいと（@naktak） · ベストアンサー

全部日本語化しました。用語は調べればすぐ分かると思います。

戻り値のない関数sample(引数なし)
定数READYSTATE_COMPLETEを定義、値は4
Object型変数ieを定義
長整数型変数rを定義
InternetExplorerオブジェクトのインスタンスを生成し、ieに代入
'ieオブジェクトのVisibleプロパティをTrueに設定
rの値を1に設定
A＋rの値(A1、A2など)のセルの値が空じゃない間繰り返す(※)
ieオブジェクトによって、A＋rの値(URI)にページを表示する
ieオブジェクトのbusyプロパティがTrue、またはieオブジェクトのreadystateプロパティがREADYSTATE_COMPLETEでない間、Windowsに制御を戻す（※１）
B＋rのセルの値に、表示されたページのタイトルを設定する
rの値を1加算する
繰り返す(※とセットの文法)
ieオブジェクトを開放する(メモリを占有する為、オブジェクトは不要になったら開放するもの)
終わり

※１の部分は、完全にページが表示できるまで次の処理へ行かせないようにしてます。
busy(ビジー状態、つまり今まさに頑張ってる状態)、READYSTATE_COMPLETE(ページ表示が完了した状態)
http://3rd.geocities.jp/kaito_extra/Source/InternetExplorerCtrl.html
http://www.atmarkit.co.jp/fwin2k/tutor/cformwsh11/cformwsh11_03.html

これはどちらかというとVBAというよりInternetExplorerオブジェクト操作の毛色が強いので、
いきなりこれを基準にして学習するより、セルに値を設定するにはどうすればいいのか、
取得するためには？コピーは？保存は？といったExcel特有の操作から覚えた方が
いいと思います。
（それ自体もオブジェクト操作に変わりはないですが、意識せずコードできるはずです）

http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/
調べればExcel VBAとかってキーワードで色々出てきますし、ピンポイントで調べたいことが
あればVBA 並び替え、VBA 最終行とかって調べればいいです。

お礼

想像もしないほどていねいな回答を頂いて驚いています。ありがとうございました。とてもよくわかりました。