r_s_SK
@r_s_SK (まく まく)

Are you sure you want to delete the question?

If your question is resolved, you may close it.

Leaving a resolved question undeleted may help others!

We hope you find it useful!

Excel「数式を値に変換して名前を付けて保存」が出来るVBA

解決したいこと

複数Sheetが存在するExcelBookがあります。
出来ればボタン一つで数式が入っているところを値に変換したのち、日付と変更時間と変更者名が入った名前で別Bookとして保存したいです。

自分で試したこと

日付と時間が名前に入るVBAまでは調べて分かりました。
ただ、数式を値に変更する式が分かりません。
また、変更者名もどのように入れたらいいか分からないのでアドバイスいただけますとありがたいです。

Sub TEST2()

    a = "TEST" 'ファイル名
    b = Format(Now(), "yyyymmdd-hhmmss") '日付
    c = a & "_" & b & ".xlsm" 'ファイル名(拡張子付き)
    d = ThisWorkbook.Path & "\" & c 'ファイルパス

    '名前を付けて保存
    ThisWorkbook.SaveAs FileName:=d

End Sub
0

2Answer

各セルの値が数式かチェックして数式ならValueを上書きでどうですか?

0Like

Your answer might help someone💌