VBAマクロ いくつかのプログラム

VBAマクロ いくつかのプログラム

<1>同じフォルダ内へ、”年月日時分秒”+”E_”+”今のファイル名” の名前でバックアップを作る。

Sub バックアップE()
Dim MyName As String
MyName = ThisWorkbook.Path & _
"\" & _
Format(Now, "yyyymmddhhmmss") & "E_" & _
ThisWorkbook.Name
ThisWorkbook.SaveCopyAs Filename:=MyName
End Sub

<2>現在アクティブなファイル内の各セルが、科目細分類表シートの”H2″に入れた文字列と完全一致する場合は、”J2″の文字列へ置き換える。

Sub 文字列の置き換え()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.UsedRange.Replace What:=Worksheets("科目細分類表").Range("H2").Value, Replacement:=Worksheets("科目細分類表").Range("J2").Value, LookAt:=xlWhole
Next ws
End Sub