質問編集履歴
3
情報の追加の指摘を受けて追加しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -60,4 +60,6 @@
|
|
|
60
60
|
2番目シート名：NameOfSheet5
|
|
61
61
|
4番目シート名：NameOfSheet2
|
|
62
62
|
5番目シート名：NameOfSheet3
|
|
63
|
-
シートの名前が実際の順番とばらばらである事と、3をインデックスに指定するとエラーが起こるようです。
|
|
63
|
+
シートの名前が実際の順番とばらばらである事と、3をインデックスに指定するとエラーが起こるようです。
|
|
64
|
+
|
|
65
|
+
前回、2016で同様のコードを動かした時は問題なく動いていました。
|
2
実験結果の追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -41,4 +41,23 @@
|
|
|
41
41
|
|
|
42
42
|
どなたか、お力添えいただけませんでしょうか？
|
|
43
43
|
|
|
44
|
-
追記：Excelのバージョンは2016です。
|
|
44
|
+
追記：Excelのバージョンは2016です。
|
|
45
|
+
|
|
46
|
+
追記：以下のコードを実行したところ以下のような結果になりました
|
|
47
|
+
Public Sub Count()
|
|
48
|
+
|
|
49
|
+
On Error Resume Next
|
|
50
|
+
Dim i As Integer
|
|
51
|
+
|
|
52
|
+
For i = 1 To Worksheets.Count
|
|
53
|
+
Debug.Print i & "番目シート名：" & Worksheets(i).Name
|
|
54
|
+
Next i
|
|
55
|
+
|
|
56
|
+
End Sub
|
|
57
|
+
|
|
58
|
+
結果：
|
|
59
|
+
1番目シート名：NameOfSheet4
|
|
60
|
+
2番目シート名：NameOfSheet5
|
|
61
|
+
4番目シート名：NameOfSheet2
|
|
62
|
+
5番目シート名：NameOfSheet3
|
|
63
|
+
シートの名前が実際の順番とばらばらである事と、3をインデックスに指定するとエラーが起こるようです。
|
1
Excelのバージョンを明記しましまた。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -39,4 +39,6 @@
|
|
|
39
39
|
と出てしまいます。
|
|
40
40
|
i=1の時は名前を取得できていますが、２になったときにエラーが出ています。
|
|
41
41
|
|
|
42
|
-
どなたか、お力添えいただけませんでしょうか？
|
|
42
|
+
どなたか、お力添えいただけませんでしょうか？
|
|
43
|
+
|
|
44
|
+
追記：Excelのバージョンは2016です。
|