Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16524 / 76738

←次へ　｜　前へ→


	【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

0 hits

▼

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

≪