Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33613 / 76807

←次へ　｜　前へ→


	【48410】文字列の検索について

とし - 07/4/16(月) 19:02 -


	引用なし

	パスワード

似たような質問が多数あったのですが、どれを読んでもうまく
いかなかったので、改めて質問させて頂きます。

＊＊＊＊＊＊＊＊＊＊＊＊＊　質　問　内　容　＊＊＊＊＊＊＊＊＊＊＊＊＊

表が用意されているのですが、表の行数が２００前後と多いため、
文字列による検索をかけます。

Ｆ列に表の各行の文字列を全て表示させ、
ユーザーフォームの入力欄（ＴｅｘｔＢｏｘ１）にて入力した文字列があれば、
隣（Ｇ列）のセルに「１」を立てて、後にＧ列に「１」が立っている行について
オートフィルタにて結果を出します。

表の行数は、変動します。

私が考えた結果は、下記の通り

　Dim a
　a = TextBox1
　Dim x As Long, y
　　x = Range("F3").CurrentRegion.Rows.Count
　　y = x - 4
　Dim i As Integer
　　For i = 4 To y
　　　　Cells(i, 6).Select
　　　Dim s As Range
　　　Set s = ActiveCell.Find(what:=a, lookat:=xlPart)
　　　　If s Is Nothing Then
　　　　　 ActiveCell.Offset(0, 1).Value = 1
　　　　Else
　　　　　 ActiveCell.Offset(0, 1).Value = ""
　　　　End If
　　Next

これだと、表の中に一致する文字列があれば
Ｇ列の全ての行に「１」を立ててしまうようです。

どこが間違っているのか分かりません。
どうかご教示願います。

1 hits

▼

【48410】文字列の検索について とし 07/4/16(月) 19:02

≪