- Excel VBA 質問スレ Part33
419 ：デフォルトの名無しさん[sage]：2014/03/17(月) 04:12:41.18 ID:NI0yZz+J - 以前こちらでマクロを作っていただき、とても重宝して使わせていただいていたのですが
少し仕様の変更が出てきてしまったため、再度作成か手直しをしていただきたいのですが
お願いできますでしょうか。
以下のマクロで月初から月末の所を、月初から翌月の３日までにしたいのです。
どうか宜しくお願い致します。
|
- Excel VBA 質問スレ Part33
420 ：デフォルトの名無しさん[sage]：2014/03/17(月) 04:15:10.22 ID:NI0yZz+J - Sub SheetCopy()
Dim firstDay As Date
Dim lastDay As Date
Dim targetDay As Date
On Error GoTo Error_Handler
With ThisWorkbook
'月初日を取得
firstDay = .Sheets("1日").Range("B1").Value
'月末日を取得
lastDay = DateSerial(Year(firstDay), Month(firstDay) + 1, 0)
|
- Excel VBA 質問スレ Part33
421 ：デフォルトの名無しさん[sage]：2014/03/17(月) 04:18:35.64 ID:NI0yZz+J - '月初日のシートは既に存在しているので、
'先にシート名とシート色を設定してしまう。
'.Sheets(Sheet1.Name).Name = Format(.Sheets(Sheet1.Name).Range("B1").Value, "m月d日")
If Not .Sheets("祝日").Cells.Find(firstDay, LookAt:=xlWhole) Is Nothing Or _
Weekday(firstDay) = vbSunday Then
.Sheets("1日").Tab.ColorIndex = 3
End If
|