カレンダーの土・日・祝日の文字を変更するプログラム。 祝日の定義のシート。 ＜祝日の定義＞ 祝日名 月 日 指定週 指定曜日 説明 元日 1 1 年のはじめを祝う。 成人の日 1 2 2 1月の第2月曜日。おとなになったことを自覚し、みずから生き抜こうとする青年…

１週間分だけ保持するように変更。 Private Sub trushClear(backupPath As String, objFSO As Object) 'バックアップフォルダの存在チェック If Dir(backupPath, vbDirectory) = "" Then MkDir backupPath End If '指定したフォルダパスとファイル名をセット…

ボタンを押すとファイルをバックアップするプログラム。 ＜プログラム＞ Private Sub BackUp_Click()On Error Resume Next ThisWorkbook.Save If Err.Number <= 0 Then 'デスクトップにバックアップフォルダを作成した場合 Dim backupPath As String backupP…