Excel VBA質問箱 IV

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

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


7288 / 76732 ←次へ | 前へ→

【75032】Re:文字列検索をするには
発言  kanabun  - 13/11/16(土) 19:08 -

引用なし
パスワード
   ▼Sugano さん:

> ただ、検索したい文字列は固定ではなく、毎回変わりますので、検索条件を
>入力する機能を追加したいですが、その方法は分からなくて

Inputbox関数というのがありますから、これで検索ワードの入力をさせたら
どうでしょう

Sub Sample3()
  Dim ss As String
  Dim FoundCell As Range
  
  ss = InputBox("検索語")
  If StrPtr(ss) = 0& Then Exit Sub
  If Len(ss) < 1 Then Exit Sub
  
  Set FoundCell = Range("A1").CurrentRegion _
    .Find(ss, , xlValues, xlPart)
       '↑可変値
  If FoundCell Is Nothing Then
    MsgBox "検索に失敗しました"
  Else
    FoundCell.Select
  End If
End Sub

335 hits

【75031】文字列検索をするには Sugano 13/11/16(土) 18:10 質問
【75032】Re:文字列検索をするには kanabun 13/11/16(土) 19:08 発言
【75035】Re:文字列検索をするには Sugano 13/11/16(土) 22:12 質問
【75037】Re:文字列検索をするには kanabun 13/11/16(土) 23:33 発言
【75038】Re:文字列検索をするには kanabun 13/11/17(日) 8:34 発言
【75039】Re:文字列検索をするには Sugano 13/11/17(日) 11:55 質問
【75040】Re:文字列検索をするには kanabun 13/11/17(日) 16:25 発言
【75056】Re:文字列検索をするには Sugano 13/11/22(金) 21:15 お礼
【75034】Re:文字列検索をするには kanabun 13/11/16(土) 21:12 発言
【75036】Re:文字列検索をするには Sugano 13/11/16(土) 22:13 回答

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