Excel VBA質問箱 IV

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

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


2913 / 13646 ツリー ←次へ | 前へ→

【65321】VBAで曖昧検索 isausa 10/5/11(火) 17:07 質問[未読]
【65325】Re:VBAで曖昧検索 りん 10/5/11(火) 21:03 発言[未読]
【65326】Re:VBAで曖昧検索 neptune 10/5/11(火) 21:37 回答[未読]

【65321】VBAで曖昧検索
質問  isausa  - 10/5/11(火) 17:07 -

引用なし
パスワード
   こんなのって可能でしょうか
シート1のB列に日付C列に得意先D列にオーダーE列に品名、F列に単価G列に数量H列に金額というようになっています。
オーダーというのは5桁で、01001、02001、03001、04001,05001、06001からそれぞれ始まるものです。
オーダーは、はじめの0が2010年の0で次の数字が分類を表す数字なのです。ランダムに約1500件の入力があります。
そこでお聞きしたいのです。シート2にオーダーで二桁目が1のものだけを抽出したいのです。曖昧検索で*1***で抽出しようと思ったら、1を含むものがすべて抽出されてしましました。こんなときにシート2でマクロボタンを押すと、二桁目が1のものだけ、抽出できるVBAって出来ますか。また、曖昧検索で*1***と等しくないという検索もできるかどうか知りたいです。
5桁のオーダー番号を入れて、そのデータを抽出するというのは出来ています。
シート2のD2にオーダーを入れて、抽出ボタンをおすと、A16行目以降にデータが抽出されます。
Sub データー抽出()
'
' データー抽出 Macro
' マクロ記録日 : 2009/12/11 ユーザー名 : 鉄道機器
'

'
  Sheets("data").Range("A8:BC15000").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("D1:D2"), CopyToRange:=Range("A16"), Unique:=False
End Sub

【65325】Re:VBAで曖昧検索
発言  りん E-MAIL  - 10/5/11(火) 21:03 -

引用なし
パスワード
   isausa さん、こんばんわ。

マクロじゃないですが。
>そこでお聞きしたいのです。シート2にオーダーで二桁目が1のものだけを抽出したいのです。曖昧検索で*1***で抽出しようと思ったら、1を含むものがすべて抽出されてしましました。
オートフィルタのオプションのウィンドウにも書いてありますが、

?1???

でフィルタリングするとお望みの結果になると思います。

【65326】Re:VBAで曖昧検索
回答  neptune  - 10/5/11(火) 21:37 -

引用なし
パスワード
   ▼isausa さん:
>こんなのって可能でしょうか
>シート1のB列に日付C列に得意先D列にオーダーE列に品名、F列に単価G列に数量H列に金額というようになっています。
>オーダーというのは5桁で、01001、02001、03001、04001,05001、06001からそれぞれ始まるものです。
>オーダーは、はじめの0が2010年の0で次の数字が分類を表す数字なのです。ランダムに約1500件の入力があります。

不明点
数字と書いているが本当に数字(文字列)なのか、それとも数値なのか

恐らく数字(文字列)のような気がするがそれならmid関数を調べてみると
吉。

数値なら10代だけを抽出すればよいので9以上20以下?
target > 9 and target < 20
の条件で良いです。

>二桁目が1のものだけ、抽出できるVBAって出来ますか。
>また、曖昧検索で*1***と等しくないという検索もできるかどうか知りたいです。

VBAなら
例え1500件程度なら1個のセルを全部探しても大して時間はかからない。
という事でどんな方法でも良かったら2つの質問はyesです。

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