エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150527131720]]: #score: 9211; @digest: bf4194890b094b2141b7128495b3d0b3; @id: 68088; @mdate: 2015-05-28T08:11:33Z; @size: 4884; @type: text/plain; #keywords: 100ml5s (65413), ニパ (61991), ムニ (41788), オム (41248), ク30 (38655), ウシ (26243), ジ50 (24510), チウ (22887), uff9f (20449), ジ10 (18033), u30a0 (15497), uff65 (15497), uff76 (15497), u30f0 (15497), 100mlx5v (15241), 200mlx20sb (15241), 50ml (14536), イヨ (13483), イ→ (12255), ヨウ (9437), キイ (9051), フク (4532), pattern (4213), ョウ (4137), カイ (4131), イリ (4073), 抜出 (3919), シリ (3470), ンジ (3387), ュウ (3372), マキ (2963), エキ (2649); 『指定した文字(単位)と数字を抜き出したい』（たけさん）
以前の担当の方が辞めてしまい、アクセスで組まれたマクロが動きません。新たにエクセルVBAで何とかならないかと考えています。 L列に下記の品名がありますオムニパーク300チュウ 100MLX5V→100MLX5V ガスコンドロップナイヨウエキ2%300ML→300ML グリセノンチウ 200MLX30フクロ→200MLX30フクロ KN3ゴウユエキ 200MLX20SB→200MLX20SB カロナールジョウ 300 100T→100T クラリスロマイシンDS10%ショウニ B100G→B100G Aベンジン(ポリ) 500CC →500CC C.DIFF QUIK CHEKコンプリ25S→25S BINAXNOW ハイエンキュウキン 12テスト→12テスト検索窓に『ML』と単位を入れると →の右側のように単位を含む数字をVBAで抜出たいのです ML(ミリリットル) T(タブレット) G(グラム) などなど書ききれないほどありますまた数字と単位の間にスペースがあるかというと必ずしもそういうことではありませんお力をかして頂けると助かります＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 動いている実績があるのであれば、ACCESSのマクロを提示できないでしょうか。アプリケーション固有機能でなければ、ほとんどそのまま移植できると思いますが。 （Mook） 2015/05/27(水) 14:04 ---- Mookさんありがとうござます担当の方にお話してみますお時間下さい!!! _(_^_)_ （たけさん） 2015/05/27(水) 14:11 ---- 結果和M列に表示 Sub test() Dim r As Range With CreateObject("VBScript.RegExp") .Pattern = "[A-Z]?(¥d+[A-Z¥u30A0-¥u30F0¥uFF76-¥uFF9F]+)+$" For Each r In Range("L1", Range("L" & Rows.Count).End(xlUp)) If .test(Trim(r.Value)) Then r(, 2).Value = .Execute(Trim$(r.Value))(0) End If Next End With End Sub （seiya） 2015/05/27(水) 23:04 ---- seiyaさんありがとうございます!!!!!!! _(_^_)_ 思っていた通りの動きで感激ですが、4行目のコードの意味がまったくわからず。。。また。。。ベギンクリーム10% 20GX10→20GX10 アネトカインゼリー2% 50MLX3→50MLX3 ヘパリンNAロック10E/ML 5LX10S→5LX10S などが抜き出せず、空白になりますお時間ある時に、ご指導ください（たけさん） 2015/05/28(木) 11:58 ---- .Pattern = "[A-Z]?(¥d+[A-Z¥u30A0-¥u30F0¥uFF76-¥uFF9F]+)+$" ^ .Pattern = "[A-Z]?(¥d+[A-Z¥u30A0-¥u30F0¥uFF76-¥uFF9F]*)+$" ^ に変更してみてください（seiya） 2015/05/28(木) 12:05 ---- seiyaさん早々のお返事ありがとうございますほぼ抜出できました!!!!!! 感謝、感謝ですおかげさまで、270件あるデータが処理できましたアロンアルファA 0.5GX5→0.5GX5A(5GX5になってしまう) バイアグラジョウ50MG 10TX2シート→10TX2シートツロブテロールテープ2MG 70マイ→70マイリボテストマイコプラズマ 10カイヨウ→10カイヨウロシュ PTテストストリップ 24マイ→24マイロールシ CL5840 5マキイリ→5マキイリジクロフェナクNAザザイ25 CH100コ→CH100コ(H100コになってしまう) 残りはコレです。。。（たけさん） 2015/05/28(木) 13:23 ---- .Pattern = "[A-Z]*(¥d+(¥.¥d+)?[A-Z¥uFF65-¥uFF9F]*)+$ で良さそうかな? （seiya） 2015/05/28(木) 13:58 ---- seiyaさんありがとうございました!!!! 一部抜けてしまう部分があります品名の入力が複数人による手入力のため、半角24文字という文字数制限がある(帳票のレイアウトの関係上??)のですが空白に対してなど決まりはなく、個々に入力しているのが現状です何度もすいませんオムニパーク300チウシリンジ50ML 5S→50ML(5Sになってしまう) オムニパーク300チウシリンジ100ML5S→100ML5S(300チウシリンジ100ML5Sになってしまう) 前任が急にいなくなり、途方にくれています。。。ホントにすいません（たけさん） 2015/05/28(木) 14:29 ---- .Pattern = "[A-Z]*¥d+(¥.¥d+)?([A-Z]+¥d*)*(¥d*[¥uFF65-¥uFF9F]+)?$" でもう一度... やはり、オムニパーク300チウシリンジ50ML 5S このパターンは他とは矛盾するので 5S が抽出される。 (seiya) 2015/05/28(木) 15:14 修正 15:55 ---- seiyaさんありがとうございますオムニパーク300チウシリンジ50ML 5S オムニパーク300チウシリンジ100ML5S 上記はそれぞれ 5S 100ML5S と表示されます空白の問題??かなと思い空白を全て置き換えて実行しても変わりませんでした (-"-) （たけさん） 2015/05/28(木) 16:10 ---- >オムニパーク300チウシリンジ100ML5S→100ML5S(300チウシリンジ100ML5Sになってしまう) 100ML5S が抽出されますよね? 問題はオムニパーク300チウシリンジ50ML 5S で最後の5Sの前にスペースがあるので 5S になってしまいます。（seiya） 2015/05/28(木) 16:20 ---- 苦肉の策でPatternを2段階にすると... Sub test2() Dim r As Range Columns("m").ClearContents With CreateObject("VBScript.RegExp") For Each r In Range("L1", Range("L" & Rows.Count).End(xlUp)) .Pattern = "(¥d+(¥.¥d+)?[A-Z]+) ¥d+(¥.¥d+)?[A-Z]+$" If .test(Trim(r.Value)) Then r(, 2).Value = .Execute(Trim$(r.Value))(0).submatches(0) Else .Pattern = "[A-Z]*¥d+(¥.¥d+)?([A-Z]+¥d*)*(¥d*[¥uFF65-¥uFF9F]+)?$" If .test(Trim$(r.Value)) Then r(, 2).Value = .Execute(Trim$(r.Value))(0) End If Next End With End Su （seiya） 2015/05/28(木) 16:37 ---- seiyaさんありがとうございます早速、確認してみます(うれし泣き) _(_^_)_ （たけさん） 2015/05/28(木) 17:11 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201505/20150527131720.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ