Excel VBA質問箱 IV

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

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


16520 / 76734 ←次へ | 前へ→

【65679】曖昧検索で結果を表示したい
質問  Zoo  - 10/6/21(月) 17:28 -

引用なし
パスワード
   以下の件について教えてください。

B列に"ABC"をという文字があった時に、4列右隣に"★"
という文字を出すものを作りました。
この時、検索するものを"ABC"ではなく、A〜始まるものは"★"
にしたいのですが、Left をどうやってうまく入れたらよいですか。

コードは以下のように作っています。
5行目のFindの部分の条件をA〜始まるものに修正する方法を教えてください。

1Sub 仕分()
2  Dim myKekka As Range
3  Dim myFirst As String
4  With Range("B:B")
5    Set myKekka = .Find(What:="ABC")
6    If Not myKekka Is Nothing Then
7      myFirst = myKekka.Address
8      Do
9        myKekka.Offset(, 4).Value = "★"
10        Set myKekka = .FindNext(After:=myKekka)
11      Loop Until myKekka.Address = myFirst
12      Else
13        myKekka.Offset(, 4).Value = ""
14      End If
15    End With
16End Sub

2 hits

【65679】曖昧検索で結果を表示したい Zoo 10/6/21(月) 17:28 質問
【65680】Re:曖昧検索で結果を表示したい Yuki 10/6/21(月) 17:51 発言
【65681】Re:曖昧検索で結果を表示したい Zoo 10/6/21(月) 18:24 お礼

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