苦手分野の・・・マスターできるように

質問

苦手分野の課題を出していただける方いませんか？
LoopとFor文が苦手でどうしてもマスターしたいのでよかったら答え合わせ的なこともしてくれて間違いも指摘してくれる方、よろしくおねがいします。

課題は2007バージョンと2003バージョンいただけるとありがたいです。

暇なときでいいのでここからご指導、ご教授お願いします。

回答No.5

pkh4989

例題1)
例えば、フォルダ「C:\TEST」の内に以下のようなファイルあるとします。
名前　　　　　　サイズ　　　　　更新日付
Book1.xls　　　　40 KB　　　　　2007/01/01　10:21
Book2.xls　　　　42 KB　　　　　2007/03/25　12:10
Book3.xls　　　　38 KB　　　　　2007/07/15　14:25
data.dat　　　　　1 KB　　　　　2008/10/01　13:21
test.vbs　　　　　1 KB　　　　　2008/10/03　17:55

この全てのファイルを検索して、EXCEL Sheet1のA列、B列、C列へ以下のように展開します。

A列　　　　　　　B列　　　　 　　　　　　　　C列
Book1.xls　　　　2007/01/01　10:21　　40　KB
Book2.xls　　　　2007/03/25　12:10　　42　KB
Book3.xls　　　　2007/07/25　14:25　　38　KB
data.dat　　　　 2008/10/01　13:21　 　1　KB
test.vbs　　　　 2008/10/03　17:55　 　1　KB

※ ファイル名称のみでも「Do While ～ Loop」で検索が出来れば良いと思います。

例題2)
上記の例題1)で検索された、ファイル名称「EXCEL Sheet1のA列」を
ワークテーブル「Wk_TBL(?)」 へ設定します

Wk_TBL(1) = Book1.xls　　　→ Sheet1.Cells(1,1)
Wk_TBL(2) = Book2.xls
Wk_TBL(3) = Book3.xls
Wk_TBL(4) = data.dat
Wk_TBL(5) = test.vbs

※　EXCEL Sheet1のA列のデータ件数は、何件か分からないので
A列のデータ件数を調べて、変数に設定してから「For ～ Next」で回す

★これ以上詳しく説明は出来ませんので、分からないのがあれば
自分で分析してくださいね。

回答No.4

hallo-2007

過去スレですが、参考になりましたらどうぞ
http://oshiete1.goo.ne.jp/qa3806317.html

回答No.3

pkh4989

おはようございます。

良かったら以下の例題を作成してみてください。
言語：EXCEL VBA

例題1)
フォルダ→ C:\TEST\
上記のフォルダ内にある全てのファイルを検索して、EXCEL シート("Sheet1")へ順に展開する
但し、A列には「ファイル名称」、B列には「ファイルの更新日付」、C列には「ファイルのサイズ」
必ず、「Do While ～ Loop」を利用

例題2)
ワークテーブル→ Dim WkTBL() AS STRING
例題1)より展開されたファイル名称のみ(A列)ワークテーブルへ設定する
("Sheet1")のA列の件数を調べてサイズを確保する
必ず、「For　～ Next」を利用
※もし、例題2)が解けたら、次は 2次元テーブルへ設定してみましょう。
　Dim WkTBL(?,3) AS STRING
　WkTBL(?,1) → A列
　WkTBL(?,2) → B列
　WkTBL(?,3) → C列

出来る限り、人に聞かず自分一人で調べながら作成する事。
以上、頑張ってくださいね。

補足

こんばんわ。
お返事遅くなり申し訳ありません。

もう少し詳しく問題を書いていただけませんか？

仕事があるので土日の返信になります。

回答No.2

n-jun

直の回答ではないですけど。

他の方の質問に回答してみては如何でしょう。
私はそのようにして覚えていきました。（無論他の回答者のコードを大変参考に致しました。）

ところで2007と2003ではLoop＆Forは違いがあるのでしょうか？
2007は所持していない物で。

補足

違いというより２００３でやったものを２００７の方では確認が出来ないため両方といっています。

主にこの２つを使用していますので・・・

かなりの初心者ですので・・・

回答まではいけません・・・

せっかく教えていただいたのに申し訳ありません・・・

答えられるものは答えていこうと思います。

回答No.1

tatsu99

言語は何ですか？

補足

EXCEL VBAです。