Excel VBA質問箱 IV

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

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


33540 / 76734 ←次へ | 前へ→

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

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


************* 質 問 内 容 *************

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

F列に表の各行の文字列を全て表示させ、
ユーザーフォームの入力欄(TextBox1)にて入力した文字列があれば、
隣(G列)のセルに「1」を立てて、後にG列に「1」が立っている行について
オートフィルタにて結果を出します。

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

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

 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

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

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

【48410】文字列の検索について とし 07/4/16(月) 19:02 質問
【48426】Re:文字列の検索について ウッシ 07/4/17(火) 11:02 発言
【48429】Re:文字列の検索について とし 07/4/17(火) 11:51 質問
【48430】Re:文字列の検索について ウッシ 07/4/17(火) 11:59 発言
【48432】Re:文字列の検索について とし 07/4/17(火) 13:25 発言
【48433】Re:文字列の検索について とし 07/4/17(火) 13:36 発言
【48434】Re:文字列の検索について ウッシ 07/4/17(火) 13:47 発言
【48435】Re:文字列の検索について ウッシ 07/4/17(火) 13:54 発言
【48436】Re:文字列の検索について とし 07/4/17(火) 14:19 お礼

33540 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free