回答編集履歴
1
追記しました。
answer
CHANGED
|
@@ -67,4 +67,15 @@
|
|
|
67
67
|
Set Mm = Nothing
|
|
68
68
|
Erase Base, Aary, Mary
|
|
69
69
|
End Sub
|
|
70
|
+
'ワークシートの存在チェック
|
|
71
|
+
Public Function ExistsWorkSheet(ByVal sheetName As String) As Boolean
|
|
72
|
+
Dim ws As Worksheet
|
|
73
|
+
ExistsWorkSheet = False
|
|
74
|
+
For Each ws In Worksheets
|
|
75
|
+
If UCase(ws.name) = UCase(sheetName) Then
|
|
76
|
+
ExistsWorkSheet = True
|
|
77
|
+
Exit Function
|
|
78
|
+
End If
|
|
79
|
+
Next ws
|
|
80
|
+
End Function
|
|
70
81
|
```
|