Replaceメソッドでシート全体を置換する

Replaceメソッドでシート全体を指定した文字列に置換ます。VBAで置換と元に戻すマクロを2個作成します。

Excel検索方法のメニューに戻る

スポンサードリンク



実行画面

各支店の月別売上表です。月が英語で記入されているので日本語に置換ます。
各支店の月別売上表

作成した2つのマクロです。
月を日本語に置き換えるマクロと、英語に戻すマクロがあります。
作成した2つのマクロ

日本語に置換したシートです。
日本語に置換したシート

スポンサードリンク



プログラムソース

Option Explicit

Sub 月を日本語()
    Cells.Replace what:="January", Replacement:="1月"
    Cells.Replace what:="February", Replacement:="2月"
    Cells.Replace what:="March", Replacement:="3月"
End Sub

Sub 月を英語()
    Cells.Replace what:="1月", Replacement:="January"
    Cells.Replace what:="2月", Replacement:="February"
    Cells.Replace what:="3月", Replacement:="March"
End Sub

Excel検索方法のメニューに戻る

スポンサードリンク





■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved