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


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


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


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

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


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

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

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2016/11/06 04:46:01
  • 終了:2016/11/08 07:59:37

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4623ベストアンサー獲得回数19582016/11/06 09:49:17

ポイント500pt

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

    ' データの切り出し方の定義
    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 列に書き込みます。
コメントのやり取りを追っかけた感じでは、円マークが全角か半角かの区別がつかなかったので、どちらでも良いようにしてあります。

他5件のコメントを見る
id:naranara19

ありがとうございます!その方法でいかせていただきます。いつも誠にありがとうございます。

2016/11/08 07:59:15
id:a-kuma3

何度も繰り返して使うのであれば、サブルーチンの最後に以下の処理を入れてください。

    ' AI 列の表示形式を「標準」にする
    Columns("AI:AI").NumberFormatLocal = "G/標準"

End Sub
2016/11/08 08:39:50

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません