人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

以前のマクロ結果を修正したい。

http://q.hatena.ne.jp/1458532793


で質問して回答をいただいたものですが、追加のお願いができないため、再度質問します。


4行目の
商品代金 ¥2000(4)

をAI列に\マークをとった2000を数値のみで挿入できるようにしていただきたいのです。
なお、最後の(4)は便宜上つけたのみで、実際にはございません。


当時ベストアンサーいただいた方以外のご回答にも、【マクロ回答】であっている場合は金額を分配いたします。
なお、一度回答者を特定しての質問で取り消されてしまったので、そのときのコメントを確認
できておりません(申し訳ございません)

どうかよろしくお願いいたします。

●質問者: naranara19
●カテゴリ:はてなの使い方
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3
●500ポイント ベストアンサー

何度か追記した回答のマクロのうち、最後のコードの先頭部分を以下のように変更してください。

  ' データの切り出し方の定義
 Dim def(6, 2)  ' ★ 5 → 6 に増やす
 def(0, 0) = "0": def(0, 1) = "BI": def(0, 2) = "(.*)"
 def(1, 0) = "2": def(1, 1) = "BJ": def(1, 2) = "(.*)"
 def(2, 0) = "9": def(2, 1) = "L": def(2, 2) = "〒(\d{3}-\d{4})"
 def(3, 0) = "9": def(3, 1) = "M": def(3, 2) = "〒\d{3}-\d{4} ([^都道府県]+[都道府県])"
 def(4, 0) = "9": def(4, 1) = "N": def(4, 2) = "〒\d{3}-\d{4} [^都道府県]+[都道府県](.*)"
 def(5, 0) = "10": def(5, 1) = "F": def(5, 2) = "(.*)( 様$)"
 def(6, 0) = "3": def(6, 1) = "AI": def(6, 2) = "[¥\\](\d+)"  ' ★ これを追加

一行を修正して、一行を追加です。

D列の四行目から、円マークに続く複数の数字を切り出して、AI 列に書き込みます。
コメントのやり取りを追っかけた感じでは、円マークが全角か半角かの区別がつかなかったので、どちらでも良いようにしてあります。


a-kuma3さんのコメント
>> なお、一度回答者を特定しての質問で取り消されてしまったので、そのときのコメントを確認 できておりません << メール通知を ON にしておいても、回答内容はメールに載ってきませんもんね。 非公開になった質問に回答したんだっけな... 速攻で非公開になったのは覚えてます。

naranara19さんのコメント
ありがとうございます!! どうも、¥2,000 と区切りが入る仕様にかわったようでして、 この場合、2となってしまいます。 こちらを修正お願いしてもよろしいでしょうか?もちろん加算します。 ほんと、いつもすみません。感謝しております。

a-kuma3さんのコメント
>> どうも、¥2,000 と区切りが入る仕様にかわったようでして、 この場合、2となってしまいます。 << 追加した行を、以下のように変えてください。 >|vb| def(6, 0) = "3": def(6, 1) = "AI": def(6, 2) = "[¥\\]([\d,]+)" ~~~~~ ここが変わります ||<

naranara19さんのコメント
たびたびすみません。読み込みのときが¥2,000なのですが、そのままファイル自体には2000と,が入らない半角数字のみの形にしたいのです。お手数ですが何卒よろしくお願いいたします。

a-kuma3さんのコメント
>> ファイル自体には2000と,が入らない半角数字のみの形にしたいのです。 << マクロを動かした後に、AI 列を選択して、表示形式を「標準」にする、では駄目ですか?

naranara19さんのコメント
ありがとうございます!その方法でいかせていただきます。いつも誠にありがとうございます。

a-kuma3さんのコメント
何度も繰り返して使うのであれば、サブルーチンの最後に以下の処理を入れてください。 >|vb| ' AI 列の表示形式を「標準」にする Columns("AI:AI").NumberFormatLocal = "G/標準" End Sub ||<
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ