質問編集履歴

1

コード貼り付け

2019/07/28 04:55

投稿

kkk6
kkk6

score15

test CHANGED
File without changes
test CHANGED
@@ -1,8 +1,58 @@
1
- Sheet7のA1からA7に下記画像のようにシート名を書き、これらのシートが存在するかチェックし、存在しない場合はSheet1に結果を表示したくて、下記画像のコードを書いたのですが、本当はSheet1のA1にSheet8は存在しませんSheet1のA2にSheet9は存在しませんと表示したいのですが、下記画像のようにSheet9は存在しませんといっぱい表示されてしまいます。どのように直したらいいでしょうか
1
+ Sheet7のA1からA7に下記画像のようにシート名を書き、これらのシートが存在するかチェックし、存在しない場合はSheet1に結果を表示したくて、下記のようにコードを書いたのですが、本当はSheet1のA1にSheet8は存在しませんSheet1のA2にSheet9は存在しませんと表示したいのですが、下記画像のようにSheet9は存在しませんといっぱい表示されてしまいます。どのように直したらいいでしょうか
2
2
 
3
3
 
4
4
 
5
5
 
6
+
7
+ ```ここに言語を入力
8
+
9
+
10
+
11
+ Sub 存在シートチェック
12
+
13
+
14
+
15
+ Dim i As Long
16
+
17
+ Dim trgsheet As String
18
+
19
+ Dim ws As Worksheet
20
+
21
+ Dim Row As Long
22
+
23
+ Dim d As Long
24
+
25
+
26
+
27
+ Row = Worksheets("Sheet7").Cells(Rows.Count, 1).End(xlUp).Row
28
+
29
+ d = 0
30
+
31
+ For i = 1 To Row
32
+
33
+ trgsheet = Worksheets("Sheet7").Cells(Rows.Count, 1).End(xlUp).Value
34
+
35
+
36
+
37
+ For Each ws In Worksheets
38
+
39
+ If ws.Name <> trgsheet Then
40
+
41
+ Worksheets("Sheet1").Range("A1").Offset(d, 0) = trgsheet & "は存在しません"
42
+
43
+ d = d + 1
44
+
45
+ End If
46
+
47
+ Next
48
+
49
+ Next i
50
+
51
+ End Sub
52
+
53
+
54
+
55
+ ```
6
56
 
7
57
 
8
58