回答編集履歴
1
追記しました。
test
CHANGED
|
@@ -136,4 +136,26 @@
|
|
|
136
136
|
|
|
137
137
|
End Sub
|
|
138
138
|
|
|
139
|
+
'ワークシートの存在チェック
|
|
140
|
+
|
|
141
|
+
Public Function ExistsWorkSheet(ByVal sheetName As String) As Boolean
|
|
142
|
+
|
|
143
|
+
Dim ws As Worksheet
|
|
144
|
+
|
|
145
|
+
ExistsWorkSheet = False
|
|
146
|
+
|
|
147
|
+
For Each ws In Worksheets
|
|
148
|
+
|
|
149
|
+
If UCase(ws.name) = UCase(sheetName) Then
|
|
150
|
+
|
|
151
|
+
ExistsWorkSheet = True
|
|
152
|
+
|
|
153
|
+
Exit Function
|
|
154
|
+
|
|
155
|
+
End If
|
|
156
|
+
|
|
157
|
+
Next ws
|
|
158
|
+
|
|
159
|
+
End Function
|
|
160
|
+
|
|
139
161
|
```
|