エクセル VBA

質問

XP　microsoft visual basic 6.0　を使い下記のことをやろうと考えたのですがダメでした

やりたいことです　　　　　　　　　　　　　　　　　　補足です

指定場所の検索　　　　　 　　　　　 　　　　　　（B2からE2）※１
文字が入力されていれば 　　　　　　　　　 　（入力されている文字は不定）
一段下に移動して※１と同じ列を検索　　　（B3からE3）
繰り返し　　　　　　　　　　　　　　　　　　　　　　（繰り返しは2行目から9行目まで）　　
空白であれば文字を入力　　　　　　　　　　　（入力場所はC列の検索した行。9行目までに空白がなければ何もしない）

ご教授ください
お願いします

回答No.3

KURUMITO · ベストアンサー

回答Ｎｏ１です。
Cells(i,3)="空白の行" の次にExit ForまたはExit Sub　を入れることで最初の空白の行だけで操作は終了します。

For i = 2 To 9
If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), ">*") = 0 Then
'文字列が入力されているかどうかを調べます
'文字列及び数値が入力されているかどうかを調べるとしたら
'If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), ">*") + WorksheetFunction.Count(Range(Cells(i, 2), Cells(i, 5))) = 0 Then
Cells(i, 3) = "空白の行"
Exit For
End If
Next

お礼

一言付け加えれば出来たんですね

Exit For を知らず Do ～ loop Until を用い試行錯誤してました

こちらの方がずっとスマートなので教えていただいたものを利用させていただきます

度々ありがとうございました

回答No.2

KURUMITO

回答1です。
If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), "*") = 0 Then
ここで"*"では式が入力されて空白の場合にもカウントされますので、">*"とするのがよいでしょう。

補足

返答が遅れてすみません

質問に対する完璧な回答ありがとうございました

しかし私の伝え損ねで想像していたものと少し違う仕様となってしまいました
こちらの不備を修正すべく手を加えようとしたのですが完成させられませんでした

もしよろしければ
　「上から順に検索し、書き込みをしたらそこで処理を終了。」　　（例えば４行目が空白であればそこに書き込み、５行目以降の空白には書き込まない）
を付け加えてはいただけないでしょうか

よろしくお願いします

回答No.1

KURUMITO

次のようなマクロでどうでしょう。

For i = 2 To 9
If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), "*") = 0 Then
'文字列が入力されているかどうかを調べます
'文字列及び数値が入力されているかどうかを調べるとしたら
'If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), "*") + WorksheetFunction.Count(Range(Cells(i, 2), Cells(i, 5))) = 0 Then

Cells(i, 3) = "空白の行"
End If
Next