Excel VBA質問箱 IV

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

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


33517 / 76734 ←次へ | 前へ→

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

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

F列に「1」ですか?
前提のコードと一つずれてますね。

  Dim a As String
  Dim x As Long
  Dim i As Long
  
  a = Me.TextBox1.Text
  With Worksheets("Sheet1")
    x = .Range("E65536").End(xlUp).Row
    For i = 4 To x
      If InStr(1, .Cells(i, "E").Value, a) > 0 Then
        .Cells(i, "F").Value = 1
      Else
        .Cells(i, "F").ClearContents
      End If
    Next
  End With

とか

  Dim a As String
  Dim f As Range
  Dim r As Range
  Dim s As Range
  
  a = Me.TextBox1.Text
  With Worksheets("Sheet1")
    Set r = Intersect(.Range("A3").CurrentRegion, .Range("A4:D65536"))
    For Each s In r.Rows
      Set f = s.Find(a, , xlValues, xlPart)
      If f Is Nothing Then
        .Cells(s.Row, "F").ClearContents
      Else
        .Cells(s.Row, "F").Value = 1
      End If
    Next
  End With

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

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