こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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


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


ここから、%や+、-といった記号を
1~9の数字に置き換え、ファイル名の変更をしたいのです。

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

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

よろしくお願いします。

投稿日時 - 2018-02-01 06:14:44

QNo.9424393

困ってます

質問者が選んだベストアンサー

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

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

投稿日時 - 2018-02-01 08:17:05

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

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

また、ファイル名に使用できない文字列は以下の通りです。
¥(円マーク)、/(スラッシュ)、:(コロン)、*(アスタリスク)、?(クエスチョン)、”(ダブルコーテーション)、<>(山括弧)、|(パイプ)
#半角では正確に表示出来ない可能性があるので全角にしています。

投稿日時 - 2018-02-01 09:22:06

上の方を見てください。

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

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

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

msgbox "345"

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

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


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

投稿日時 - 2018-02-01 08:11:59

あなたにオススメの質問