VBAでファイル名の記号文字を一括で変更したい

質問

VBAマクロで、ボタンを押すと以下の動作をさせるには、どうしたらいいですか？

ファイルの保存先は
別のシートのC19に記載してあり、

ファイル名がエクセル上に次のように並んでいます。
A　　　　　　 　B　　　　　　　　 C
fhuo5%ju.jpg shuy4#jhu+.jpg shujty5-hsa.jpg
husfa++k.jpg hugyg5%dd.jpg jiysre-yyhar.jpg
…

ここから、％や＋、-といった記号を
１～９の数字に置き換え、ファイル名の変更をしたいのです。

マクロの知識が無く、
どの関数を使ったらいいか不明です。

お力をお貸しいただけると幸いです。

よろしくお願いします。

回答No.2

bunjii · ベストアンサー

>どの関数を使ったらいいか不明です。
Replace関数で良いと思います。
構文は次のようになります。
Replace(Expression, Find, Replace, Start, Count, Compare)
Expression 置換元の文字列式を指定　[省略不可]
Find 検索する文字列を指定　[省略不可]
Replace 置換する文字列を指定　[省略不可]
Start 検索開始位置を指定。省略時は1　[省略可能]
Count 置換する回数を指定。省略時は全て置換　[省略可能]
Compare 比較モードを指定（表参照）　[省略可能]

検索すれば簡単に見つかります。

回答No.3

mt2015

今一何をしたいのか解りにくかったのですが、変更したいのはセル上の文字列ですか？
実際に「ファイルの保存先」に存在するファイルの名前ですか？

また、ファイル名に使用できない文字列は以下の通りです。
￥（円マーク）、／（スラッシュ）、：(コロン）、＊(アスタリスク）、？（クエスチョン）、”(ダブルコーテーション）、＜＞(山括弧）、｜（パイプ）
＃半角では正確に表示出来ない可能性があるので全角にしています。

回答No.1

noname#232800

上の方を見てください。

ホーム　挿入　ページレイアウト　数式・・・・開発

通常、「開発タブをリボンに表示する」がＯＦＦなので、表示されてません。
リボン、Excelオプション、でチェックを入れることで「開発」が表示されます。

開発、挿入、AcitivX、ボタンをクリックします。
バブルクリックで、編集できます。ここに

msgbox "345"

と書くと、コマンドボタンをクリックする「きっかけ」でメッセージボックスが出てきます。

Windows　はイベントドリブン・・・きっかけが無いと発動しません。

そして、％、＋、ー　は予約文字といって、ファイル名の一部には使えません。
！　も　＆　も記号は使ってはいけません。