| |
>シート名をその日の日付にした場合にすべてのシートから
>その日のシートを見つけるには・・・。
全シートをループして探してもよいのですが、エラートラップを利用する方法も
よく利用されます。
サンプルを挙げておきます。
同じブックから特定の名前のシートを探して、存在しなければSheet1をコピーします。
Sub test()
Dim ws As Worksheet
Dim strDate As String
strDate = Format(Date, "m月d日")
On Error Resume Next
Set ws = ThisWorkbook.Worksheets(strDate)
On Error GoTo 0
If ws Is Nothing Then
ThisWorkbook.Worksheets("Sheet1").Copy _
After:=Worksheets(ThisWorkbook.Worksheets.Count)
Set ws = ActiveSheet
ws.Name = strDate
End If
ws.Cells(1, 1).Value = "test"
Set ws = Nothing
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 04/8/5(木) 21:57 -
