Excelのマクロについてご教授ください

Question

現在のExcelのセルにある数字（例；C5　「2023」）を拾って、Excelファイル名に付与して、新しいファイルとして、保存するマクロを教えてください。

１．	現在のExcelファイル、「決算書2022」があります。
２．	このうち、写真のように、セルC５にある「2023」の数字を拾って、「2022」と入れ替えて、新しいファイル「決算書2023」を作成して保存をします。
３．	旧ファイル「決算書2022」と新ファイル「決算書2023」がともに、フォルダーに残ります。
４．	上記No.2の処理の前に、条件式で、もし、C4＝C５ならば、「年度が同じなので、繰越できませんでした」とのメッセージを表示して、マクロは終了します。
５．	もし、C4＝C５でなければ、上記No.2の処理をして、「知年度の繰越が完了しました」と表示して。マクロは終了します。

なお、セルC５：「2023」は、C5=YEAR(TODAY())　により、現在の年度を表示しています。
よろしくお願いいたします。

kamerabeginner · Accepted Answer

Sub CreateNewFile()

' 現在のExcelファイル名を取得
    Dim CurrentFileName As String
    CurrentFileName = ActiveWorkbook.Name
    
    ' セルC4とC5を比較し、年度が同じ場合はメッセージを表示して終了
    If Range("C4").Value = Range("C5").Value Then
        MsgBox "年度が同じなので、繰越できませんでした"
        Exit Sub
    End If
    
    ' 新しいファイル名を作成
    Dim NewFileName As String
    NewFileName = Left(CurrentFileName, Len(CurrentFileName) - 8) & Range("C5").Value & ".xlsx"
    
    ' 新しいファイルを作成して保存
    ActiveWorkbook.SaveCopyAs NewFileName
    
    ' メッセージを表示して終了
    MsgBox "新年度の繰越が完了しました"

End Sub

kantansi · Answer

以下は、要件に基づいたExcelマクロの例です。実行前に必要に応じてファイルパスなどを適宜変更してください。

VBネット
Copy code
Sub SaveNewFile()
    Dim currYear As String, newYear As String, currFileName As String, newFileName As String, folderPath As String
    currYear = Range("C4").Value
    newYear = Range("C5").Value
    currFileName = ActiveWorkbook.Name
    folderPath = "C:\Users\UserName\Documents\Excel Files\" ' フォルダーパスを適宜変更
    If currYear = newYear Then
        MsgBox "年度が同じため、繰越できませんでした。", vbInformation, "処理終了"
        Exit Sub
    Else
        newFileName = Left(currFileName, Len(currFileName) - 8) & newYear & ".xlsx"
        ActiveWorkbook.SaveCopyAs folderPath & newFileName
        MsgBox "新年度の繰越が完了しました。", vbInformation, "処理終了"
    End If
End Sub
注意事項:

ファイルの保存場所 (folderPath) は必ず変更してください。
フォルダーパスには、フォルダー名の間にバックスラッシュ () を使用してください。
実行前に、必ず旧ファイルを保存してください。

Excelのマクロについてご教授ください

Sub CreateNewFile()

以下は、要件に基づいたExcelマクロの例です。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング