Excel VBA質問箱 IV

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

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


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

10885 / 76734

←次へ　｜　前へ→


	【71394】Re:ワイルドカード

AoYasu - 12/2/28(火) 14:49 -


	引用なし

	パスワード

▼hint さん：

　　 TextBoxに入力して　抽出条件を次のようにしました
　　　Dim 検索文字 As String
　　　Dim 文字 As String

　　　検索文字 =Userform.TextBox場所 ---検索文字値 =東
　　　文字 ="*" & 検索文字 & "*"　　----文字 =*東*

　　Set Ran = sht3.Range("B" & Mgyou).CurrentRegion
　　Set Ran = Intersect(Ran, Ran.Offset(, 1))
　　　抽出条件が　*東*　を選択
　　Ran.AdvancedFilter Action:=xlFilterCopy, _
　　CriteriaRange:=sht2.Range("B" & Mgyou & ":" & "M" & Mgyou1), _
　　CopyToRange:=sht1.Range("B" & WriteGyou), Unique:=False

　　これで行うと東の前後に文字があるものも拾われます
　　これは理解できるのですが、ここで東京のみを拾うのは
　　やはり無理のようですね
　　　東京　のみを拾うためには
　　もう一つ完全一致の為のTextBoxから東京を入力して
　　完全一致の検索をしなければだめのようですね

9 hits

▼

【71382】ワイルドカード AoYasu 12/2/28(火) 9:17