回答編集履歴

2

こちらかがいいかも

2020/07/30 10:32

投稿

mako1972
mako1972

スコア383

answer CHANGED
@@ -2,5 +2,27 @@
2
2
 
3
3
  If ws = "レポート" Then
4
4
 
5
-
5
+
6
- if ws.name = "レポート" then
6
+ if ws.name = "レポート" then
7
+
8
+ ```VBA
9
+ sub test()
10
+
11
+ dim i as doubule
12
+ dim str as string
13
+
14
+ For i = 1 To Worksheets.Count
15
+
16
+ str = Sheets(i).Name
17
+    
18
+   if str="レポート" then
19
+ 処理
20
+ else
21
+     処理
22
+ end if
23
+
24
+ next
25
+
26
+ end sub
27
+
28
+ ```

1

こちらかがいいかも

2020/07/30 10:32

投稿

mako1972
mako1972

スコア383

answer CHANGED
@@ -2,4 +2,5 @@
2
2
 
3
3
  If ws = "レポート" Then
4
4
 
5
+
5
- ws.name
6
+ if ws.name = "レポート" then