No.3ベストアンサー
- 回答日時:
次のマクロを実行すると、ご希望の置換え状態になるかと思います。
宜しかったら、新規ブックでテストしてみてください。
一応、ご存知とは思いますが、操作手順を詳しく書いておきます。
1.Alt + F11 で VBE(Visual Basic Editor)を開きます。
2.VBE のメニューから[挿入] -->[標準モジュール] を指定します。
3.モジュールウィンドウに下記コードをコピーして貼り付けます。
4. コードの 3~5 行目の「設定事項」を実情に合わせて変更します。
(今は、例えばの =int(sum(a1:a10))→=int(average(a1:a10))にしています。)
5.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
6.もし、保存して何回か使用するときは、メニューから[ツール]-->[マクロ]-->
[セキュリティ]で「セキュリティレベル」を「中」にして[OK]します。
7.実行するときは、Alt + F8 (メニューから[ツール]-->[マクロ]-->[マクロ])で
「フォルダ内全ブック全シート計算式置換え」を指定し、[実行]ボタンを押します。
これで、フォルダ内の全ブックの計算式が指定したものに全部置換えになると思います。
・ 検索対象ブックのシート内で、他ブックのセル参照が設定されている場合は、
その旨のダイアログボックスが表示されます。(手動で対応)
・ ブックやシートが保護によって書き換えられない状態が、無いものとします。
・ 検索を終了すると、検索対象ブック数と、置換え総件数が表示されます。
Sub フォルダ内全ブック全シート計算式置換え()
'--- 設定事項 -----------------
Const Mypath = "C:\DATA\" ' <--- 検索フォルダ名を指定
Const OldStr = "=INT(SUM(A1:A10))" ' <--- 置換え旧計算式(部分可)
Const NewStr = "=INT(AVERAGE(A1:A10))" ' <--- 置換え新計算式(部分可)
'-----------------------------
Dim WB As Workbook
Dim Rng As Range
Dim FName As String
Dim Bcnt As Integer
Dim Dcnt As Integer
Dim Scnt As Integer
Dim N As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
FName = Dir(Mypath & "*.xls", vbNormal)
Do While FName <> ""
Set WB = Workbooks.Open(Mypath & FName)
Bcnt = Bcnt + 1
Scnt = 0
Windows(WB.Name).Visible = False
For N = 1 To WB.Worksheets.Count
Set Rng = WB.Worksheets(N).Cells.Find(OldStr)
If Not Rng Is Nothing Then
Scnt = Scnt + 1
Do
Rng.Formula = Replace(Rng.Formula, OldStr, NewStr)
Dcnt = Dcnt + 1
Set Rng = WB.Worksheets(N).Cells.FindNext(Rng)
Loop Until Rng Is Nothing
End If
Next N
If Scnt = 0 Then
WB.Close SaveChanges:=False
Else
Windows(WB.Name).Visible = True
WB.Close SaveChanges:=True
End If
FName = Dir
If FName = ThisWorkbook.FullName Then FName = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
If Bcnt = 0 Then
MsgBox "指定したフォルダに、ブックは見つかりませんでした。", , "検索完了"
Else
MsgBox Bcnt & " のブックを検索し " & Dcnt & " 箇所を置換えました。", , "置換え完了"
End If
Set WB = Nothing
Set Rng = Nothing
End Sub
まず最初にお礼が遅くなりまして申し訳ございません。週末は自宅に不在でしたのでさきほどこちらのサイトをみました。
このマクロを実行すると、驚きました。一部を改正しただけで複数のファイルが一度で置き換えを行うことができました。勉強になりました。ありがとうございました。
No.2
- 回答日時:
[Ctrl]+[G](ジャンプ)→[ジャンプ]→[セル選択]→[選択オプション]→[数式]をチェック→[OK]
数式の入っているセルが選択される。
[Ctrl]+[H](置換)→[検索と置換]→[置換]→[検索する文字列]→「sum」と入力→[検索後の文字列]→「average」と入力→[すべて置換]→[閉じる]
これで可能かと思いますが、お試し下さい。
まず最初にお礼が遅くなりまして申し訳ございません。Sakemanさんがおっしゃてるのは、たぶん単独のファイルの置き換えだと思います。私の質問は、数千もある大量のエクセルファイルを一度の操作で簡単に関数の数式を置き換えしたかったのです。私の質問がわかりにくかったもしれません。すいませんでした。何かありましたらよろしくお願いします。ありがとうございました。
No.1
- 回答日時:
そういう業務向けのオンラインソフトがあります。
こちらが簡単そうです。
OfficeGrep
http://www.vector.co.jp/soft/win95/util/se190183 …
--
VBAを利用して操作を自動化することも可能です。
[ツール]-[マクロ]-[新しいマクロの記録]で個人用マクロブックに記録、それぞれのファイルを開いて実施とか、ファイルを開く~保存までもVBAで記述とか。
参考URL:http://www.vector.co.jp/soft/win95/util/se190183 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) エクセル関数についてお教えください 3 2023/07/24 12:33
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- HTML・CSS HTMLタグのあるCSVファイルを利用する方法 4 2023/03/19 14:41
- Excel(エクセル) セルの値からファイルを複数作りたい 2 2022/10/06 12:42
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excelで複数ブックの同一セルに同じ値を入力するにはどうすればよいですか?
Excel(エクセル)
-
Excelで外部のファイルの場所を毎回聞かれる
その他(Microsoft Office)
-
エクセル 複数ファイルの一括セル入力
Excel(エクセル)
-
-
4
フォルダ内ブックの数式を全て値に変換するマクロ?
Excel(エクセル)
-
5
エクセルのセル内の「数式」の一括変更をVBAなどで行いたいです!
Visual Basic(VBA)
-
6
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
7
複数のexcelファイル 同一セルの値を一気に変更するには、
Excel(エクセル)
-
8
エクセル 複数のブックを一度で編集する方法
Excel(エクセル)
-
9
Excelの計算式内の文字列の一括置換は出来ますか
Excel(エクセル)
-
10
ブックを開かずに、フォルダ内にある複数ブックの、特定セルの値を抽出した
Excel(エクセル)
-
11
フォルダ内の全てのファイルに貼り付けを行うマクロを作りたい
Visual Basic(VBA)
-
12
複数のExcelファイルにある同名シートを1つのシートに一括でまとめるには?
Excel(エクセル)
-
13
excelでのすべて置換をしたら・・・
Excel(エクセル)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
複数ファイルにある特定のシートを一度に印刷したい
Excel(エクセル)
-
16
数式中の参照先のシート名の置換について
その他(Microsoft Office)
-
17
フォルダ内の全てのBookに同じ処理を繰り返す
Excel(エクセル)
-
18
フォルダ内の複数ファイルから、特定セルだけを抽出し、並び替えて集約したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
excelで直前に参照していたブッ...
-
【Excel】マクロの保存先について
-
マクロの保存先、開いてるすべ...
-
EXcelのマクロで相対パスでファ...
-
【Excel VBA】マクロでExcel自...
-
エクセル;相対パスを絶対パスへ...
-
エクセルVBAで作成した別ブック...
-
EXCELブックが勝手に開いて困っ...
-
エクセルのvbaにて thisworkboo...
-
EXCELのボタンによるマクロの登...
-
[フィルターオプションの設定]...
-
【Excel】特定セルの内容をテキ...
-
複数のExcelファイルの印刷設定...
-
複数のbookから特定のセル(行...
-
ファイル名変更後も、マクロを...
-
EXCELマクロで、開いてはいるが...
-
【マクロ】マクロが保存されて...
-
複数のCSVファイルを自動でエク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
マクロの保存先、開いてるすべ...
-
【Excel VBA】マクロでExcel自...
-
【Excel】マクロの保存先について
-
複数のExcelファイルの印刷設定...
-
エクセル;相対パスを絶対パスへ...
-
excelで直前に参照していたブッ...
-
EXcelのマクロで相対パスでファ...
-
エクセルVBAで作成した別ブック...
-
エクセルで未保存に対するメッ...
-
EXCELブックが勝手に開いて困っ...
-
EXCELのボタンによるマクロの登...
-
エクセルのvbaにて thisworkboo...
-
EXCELマクロで、開いてはいるが...
-
名前の変わるブックをアクティ...
-
[フィルターオプションの設定]...
-
エクセルVBA 個人用マクロブッ...
-
ファイル名変更後も、マクロを...
-
個人用マクロブックが消えました
おすすめ情報