Excel VBA質問箱 IV

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

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


33525 / 76734 ←次へ | 前へ→

【48426】Re:文字列の検索について
発言  ウッシ  - 07/4/17(火) 11:02 -

引用なし
パスワード
   こんにちは

>表が用意されているのですが、表の行数が200前後と多いため、
行数としては、それほど多いとは思えません。

>F列に表の各行の文字列を全て表示させ、
数式を使っているのでしょうか?

> Dim a
Variant型になります。

> a = Me.TextBox1.text
> Dim x As Long, y
yがVariant型になります。

>  x = Range("F3").CurrentRegion.Rows.Count
>  y = x - 4
4引いてるという事は結局、表は1行目からあるのでは?

>    Cells(i, 6).Select
>   Set s = ActiveCell.Find(what:=a, lookat:=xlPart)
Cells(i, 6)という単一セルに「a」が含まれているかどうか判定してます。

>    If s Is Nothing Then
>      ActiveCell.Offset(0, 1).Value = 1
含まれていない場合に「1」を立てる?

もしループ処理するなら、

  Dim a As String
  Dim x As Long
  Dim i As Long
  
  a = Me.TextBox1.text
  With Worksheets("Sheet1") '対象シートに変更要
    x = .Range("F65536").End(xlUp).Row
    For i = 4 To x
      If InStr(1, .Cells(i, 6).Value, a) > 0 Then
        .Cells(i, 7).Value = 1
      Else
        .Cells(i, 7).ClearContents
      End If
    Next
  End With

F列のセルに「a」の値が含まれているかどうかだけで判定出来ると思います。

2 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 お礼

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