ホーム ▷ ブログ記事 ▷ 一覧表で指定した文字列を一度に一括していくつでも瞬時に変換するマクロ（VBA）プログラムを紹介
ブログ記事｜一覧表で指定した文字列を一度に一括していくつでも瞬時に変換するマクロ（VBA）プログラムを紹介
一覧表で指定した文字列を一度に一括していくつでも瞬時に変換するマクロ（VBA）プログラムを紹介
マクロ（VBA）の入ったプログラムファイルのA列に変換したい文字列、B列にはA列で抽出した文字列を希望の変換後の文字を入力します。
数に制限はなく、いくでも、A列とB列に文字を入力して構いません。
（マクロの入ったものではない方の）一般のエクセルファイルから、表示 → マクロ → マクロの表示 の順に選択します。
自身にマクロが内蔵されていなくても、もう一つの開いているエクセルファイルのマクロが表示され、これに実行するよう命令すると、マクロが内蔵されていないエクセルファイルに命令が行われ、一瞬で指定した何組かの、組み合わされた変換が完了します。
マクロ（VBA）を書き込んてある命令文は、このような感じです。
全文を載せておきますので、必要な方は、コピペして使って下さい。
----------------------------------------------
Sub 一覧表による文字一括変換002()
'
' 一覧表による文字一括変換002 Macro
'
'
'他のイベント（他のマクロ）の自動実行を中止させる
Application.EnableEvents = False
'命令を記述したブックと変更処理を行うブックの方向性を定める
Dim マクロBook一覧表一括変換0020 As Workbook 'マクロを記述したブック
Dim 変更一覧表一括変換0020 As Workbook '変更処理を行うブック
Set マクロ一覧表一括変換0020 = ThisWorkbook 'マクロを記述したブック
Set 変更一覧表一括変換0020 = ActiveWorkbook '変更処理を行うブック
'画面ちらつき防止スタート
Application.ScreenUpdating = False
'マクロを記述したブックに命令する
マクロ一覧表一括変換0020.Activate
'MsgBoxを出して処理続行の確認をする
Dim 確認一覧表一括変換0021
確認一覧表一括変換0021 = MsgBox("リストに従い一括変換しますが、誤動作を起こしてしまう関係のないエクセルファイルを開いていることはないでしょうね？全ての準備が大丈夫ならばマクロを実行して下さい。", vbYesNo + vbQuestion + _
vbDefaultButton2, "作業開始の確認")
If 確認一覧表一括変換0021 = vbYes Then
'A列を変換前の文字列、B列を変換後の文字列と定義する
i = 2
Do
x1 = Sheets("変換リスト").Cells(i, 1)
x2 = Sheets("変換リスト").Cells(i, 2)
'変更処理を行うブックに命令する
変更一覧表一括変換0020.Activate
'変更処理の命令
ActiveSheet.Cells.Replace _
What:=x1, Replacement:=x2, _
SearchOrder:=xlByColumns, MatchCase:=True
'マクロを記述したブックに命令する
マクロ一覧表一括変換0020.Activate
'ゼロになるまで、この命令を繰り返す
i = i + 1
Loop Until Sheets("変換リスト").Cells(i, 1) = ""
'他のイベント（他のマクロ）の自動実行を中止を解除させる
Application.EnableEvents = True
'完了メッセージを出す
MsgBox "処理を完了しました。", , "一括変換作業完了報告"
'画面ちらつき防止終了
Application.ScreenUpdating = True
'マクロを記述したブックに命令する
マクロ一覧表一括変換0020.Activate
'このワークブックを上書保存しないで閉じる
ThisWorkbook.Close SaveChanges:=False
'他のイベント（他のマクロ）の自動実行を中止を解除させる
Application.EnableEvents = True
End If
End Sub
----------------------------------------------
最後に、このプログラムの注意事項を載せておきます。
・ ブック全体ではなくシート単位で 一括変換 を行います。
意図しないシートをアクティブな（開いている）状態でマクロを実行すると、その（意図しない）シートが文字変換されるので、注意して下さい。
・ スペースやアルファベットは半角にも全角にも対応しますが、数字だけは未対応なのでご了承お願いします。
・ 置換のやり直し（元の戻す）処理は出来ませんので、注意して下さい。
・ マクロ処理が終了うすると、このプログラムファイルは自動的に閉じられます。
シリーズ
「エクセルの便利メモ」 Excelを極めるにはVLOOKUP関数を使ってはいけない
の他の記事（目次）は下記のURLとなります。
http://blog.goo.ne.jp/pizzica0912/e/2d6c432428b6d6f4708f239c9af2ffd5
このBLOGの他の連載中、連載完了の各シリーズは下に紹介したURLまたは画像をクリックすると、該当するシリーズのBLOG記事の一覧に行きます。
－－－ 連 載 中 －－－
シリーズ
世の中に物申す
http://blog.goo.ne.jp/pizzica0912/e/5daf02cffe9da5b480f3820aa21dd756
どのような不利益が降りかかったとしても、世の中に発信していかなくては‥‥と
私の心が揺れ動くことを微力ながらも発信しています。
シリーズ
認知症の父の自宅介護
http://blog.goo.ne.jp/pizzica0912/e/357b83df4b2f1613c2fa5e366d6d96e3
育ててくれた親が病気になれば、介護をするのは人として当たり前のことです。（写真は大昔に父が箱根へ連れていってくれた時の写真です）
そんな父への介護のピークは、どの施設からも（病状が酷く）受け入れを断られ、2002年～2011年までの間に朝5時～夜中の2時まで毎日続けた自宅介護でした。
シリーズ
全ての説得を拒否した芸能人の子供が多く通っている誰もが名前を知っている有名私立小学校の教師をしている兄の悪業
http://blog.goo.ne.jp/pizzica0912/e/ca82c30d916dba8ba415de28051e33a7
16年に及ぶ介護放棄を行って上、未だに父親の墓を知らず、その事実を保護者の方たち関係者に隠し、何食わぬ顔で教師を続けている人間です。
シリーズ
教師に道徳的指導は行わないと私に語った校長
http://blog.goo.ne.jp/pizzica0912/e/11b4e5673c18af2b8cbeb1cf3726222d
民法第877条違反の懸念が強い教師がいることを保護者に隠し、道徳的な指導を教師に行わないと言った有名私立小学校の校長の話です。
シリーズ
エクセル便利メモ エクセルの便利メモ Excelを極めるにはVLOOKUP関数を使ってはいけない
http://blog.goo.ne.jp/pizzica0912/e/2d6c432428b6d6f4708f239c9af2ffd5
エクセルに限定せず、素人の私が便利だと思った事などを備忘録的に掲載していきます
シリーズ
唯一の被爆国 日本の戦争について
http://blog.goo.ne.jp/pizzica0912/e/fdaa79c8088b9c248a8b233e824576cf
唯一の被爆国である日本の戦争について様々な角度から自分の思うことを記していきたいと思います。
シリーズ
心の偏差値
http://blog.goo.ne.jp/pizzica0912/e/cb3273f5b779ad947160f885015d4e38
頭デッカチ、頭がいくら良くても、本当に大切なのは心の豊かさ、その思いを綴っております。
シリーズ
音楽の素晴らしさ
http://blog.goo.ne.jp/pizzica0912/e/7e3b92fd45e0082610ac0f53b1c957c1
音楽の素晴らしさを私の拙い文章でどこま表現できるかわかりませんが、記していきたいと思います。
シリーズ
世界が実力を認めたピアニスト 川上敦子さん
http://blog.goo.ne.jp/pizzica0912/e/ab144349ca849a6e6f7e8514a704a86e
大成功のカーネギーホールのリサイタルと同じ演奏を聴きました！
既にシリーズ掲載を完了している 伝説のピアニスト 川上敦子さん（全25話）の続編にあたります。
シリーズ
日本を思う
http://blog.goo.ne.jp/pizzica0912/e/405be3999114db53c15c40c8f9074e75
私が生まれ育った日本。 この日本を思う心を綴っていきたいと思います。
シリーズ
歴史あれこれ
http://blog.goo.ne.jp/pizzica0912/e/2e5b20b732b5089016301b0f7c860a53
学校の授業で教わる歴史とは違った切り口で、歴史の話を伝えていければ ‥‥ と思っています。
ランダムで古今東西の話が飛び出してくると思いますので、ご了承下さい。
シリーズ
DIY 自分で作ったり修理したりする
http://blog.goo.ne.jp/pizzica0912/e/4234d39dbee719b1c82d8ec942361b29
下手ですが、私の趣味のＤＩＹ関係を載せていきます。（写真は自作した立水栓です）
シリーズ
風水より仏事（ほとけごと）
http://blog.goo.ne.jp/pizzica0912/e/ab37d0d7c9acb16caa0d647b5541617c
ご先祖を大切にする日々のことを載せていきます。
シリーズ
花や野菜の魅力
http://blog.goo.ne.jp/pizzica0912/e/f062dde5f866923a99549713ea022672
庭の花や野菜を載せていきたいと思います。
シリーズ
スピチュアルや超常現象的なもの（現時点で人類が解明できないだけ ‥‥ ）
http://blog.goo.ne.jp/pizzica0912/e/197f6045042ab5d365c80c8abb98a006
簡単に目では見えない、耳で見えない、現時点での人類の力で科学的に解明できないだけで、きっと存在するだろう ‥‥ と、私が思うものについて載せていくシリーズとなります。
シリーズ
お勧めの本
http://blog.goo.ne.jp/pizzica0912/e/fe93d4fd3e51353a24e82ed31f06fdc9
私が読んで印象に残っている本を紹介するシリーズとなります。
シリーズ
アニメや絵本など、子供のものから学ぶものが多くあります！
http://blog.goo.ne.jp/pizzica0912/e/a59682f062a7f4d84e440c3cb53c22c9
子供番組や絵本、アニメなど、決して馬鹿になど出来ず、逆に、大人の方が、その内容から大いに学ぶ場合も多くあり、そのようなものを取り上げていくシリーズとなります。
シリーズ
遠き日の思い出
http://blog.goo.ne.jp/pizzica0912/e/1fd8827372937ffcaeff5020c130d363
発掘された小学校三年生（1975年）の日記や写真を中心に子供の頃の楽しかった想い出を振り返ります。
（馬が子供の頃より大好きだった私がポニーに乗っている写真です）
シリーズ
美味しいものシリーズ
http://blog.goo.ne.jp/pizzica0912/e/d50801e93535e5d591d2f926236429cf
私が巡り遭えた美味しいものを載せていきます。
シリーズ
名言集より
http://blog.goo.ne.jp/pizzica0912/e/0d382c14b035772f8f566c8b8cf12fde これは！ と感じた 名言 を載せていきたいと思います。
一話完結・番外編・その他
http://blog.goo.ne.jp/pizzica0912/e/6fb93531a650944a79df8f17953f0b2f
シリーズものでない一話完結の話を掲載しております。
Facebookのダイジェスト
http://blog.goo.ne.jp/pizzica0912/e/b3416c4cddea8f8ef7dd0788fcd1aa47
私がFacebookで掲載している記事をダイジェストで載せています。
－－－ フォトチャンネル －－－
様々な写真集を掲載したフォトチャンネルへの入口のURLとなります。
http://blog.goo.ne.jp/pizzica0912/e/c9ced1117c86eb51aea4177123b57118
－－－ 既に掲載完了済み －－－
伝説のピアニスト 川上敦子さん （全25話）
http://blog.goo.ne.jp/pizzica0912/e/425e60748dfa331bec8b445953003a7a
演奏不可能と言われたリストの超絶技巧練習曲（1837年版）を日本で初演したピアニスト
川上敦子さんのことを掲載したシリーズです。
最終話：2015年3月11日掲載
川上敦子さんから頂戴したお心
祖母の思い出 （全第14話 最終話を掲載）
http://blog.goo.ne.jp/pizzica0912/e/4816511909af978673200140e1fbc228
4人の祖父母の中で唯一、長い交流のあった私が32歳の時に他界した祖母の思い出を記したシリーズとなります。
最終話：2015年6月10日掲載
多くの教えと思い出をありがとう。（シリーズ最終話）
重度の介護が必要だた父の緊急入院から納骨まで （全21話）
http://blog.goo.ne.jp/pizzica0912/e/c203e74471097ecc448cff62eae56542
重度の介護状態で自宅介護を受けていた父が緊急入院して他界してしまった話を記したものです。
最終話：2014年11月29日掲載
認知症でも、まだ手が動かせていた頃の父が描いた絵
愛犬パークの15年の生涯 （全18話）
http://blog.goo.ne.jp/pizzica0912/e/a8ccdc94c043ada8644af3606c3c34a5
保健所で殺処分されるところを助けられた生命。我が家に様々な想い出を残してくれた愛犬パークの15年の生涯を綴ります。
最新話：2015年11月30日掲載
母の腕の中で静かに天国へ旅立って逝ったパーク
音楽(クラシック) ブログランキングへ 
福祉・介護 ブログランキングへ 
にほんブログ村
2016/12/7 0:00:32