| |
▼ほり さん：
こんにちは！
お先に質問なのですが、
>A列 |B列 |C列 |D列 |E列 |F列 |G列 |
>判定1|判定2|判定3 |ファルダパス|ファイル名|サイズ|時間|
>○ | | | |あ |1 |9:01|
>○ | | |C:\a |あ |1 |9:01|
この部分ですが、これだと判定2に数字入っちゃいませんか？
本題に入る前に、
>>今のままでは、コードを提示されてもメンテナンスなど難しくないですか？
>>だからといって、あきらめたら？というわけではないのですが・・・
>>ここの掲示板は、Ｑ＆Ａであって、作成依頼を請負う場所ではないことをご一考
>>いただければと思います。
>判定2と判定3を作成をする為に図のような表を作成してこういうのを作りたいです。というアピールなのですが、それでもダメでしょうか？
>作成を依頼しているように思えましたら場違いですので消しますが・・・
解釈の違いかもしれませんが、始めに少しでも出来るところから
マクロを作成してみてはどうですか？ということを言いたかったのだと思います^^;
マクロ記録という便利な機能もありますしね。
本題に入りますと、まず「どの部分に目を向けていけばいいのか」わからない
状況なのではないかと思います。
またこれだけの処理ですと人それぞれ色々な考え、回答があると思います。
そこで、「判定2」と「判定3」を別々に考えていくとして。
お先に「判定2」だけですと、
１、 まず何行目まで文字（表？）があるのか取得する
例、RowE = Range("E" & Rows.Count).End(xlUp).Row
２、 D列を参照し「空白」の時を探す
If文を使って
３、 ２で「空白」の時さらにB列も「空白」かどうか判定する
同じくIf文を使う
４、 ２と３の条件の時と同じ行の「ファイル名」を取得する
例、FileNm = Range("E2").Value
５、 ４で取得したファイル名と同じ「ファイル名」をすべて探す
「Find」や「Like」などを使用
６、 ５で探した「ファイル名」と同じ行数のB列に「１」をすべてに記入
例、変数を使って
j = j + 1
Range("B2").Value = j
７、 ６の操作が終わったら「１」に+1して２〜６の作業を１で取得した
行数目まで繰り返す。
２〜６の作業をFor Nextなどでループ
と、私はこのように考えましたがどうでしょう？
今記載した関数などを調べてみると色々わかると思います^^
|
|
にぃ
- 08/12/12(金) 14:23 -
