質問編集履歴

3

情報の追加の指摘を受けて追加しました。

2015/10/26 16:44

投稿

syusuke9999
syusuke9999

スコア13

test CHANGED
File without changes
test CHANGED
@@ -123,3 +123,7 @@
123
123
  5番目シート名:NameOfSheet3
124
124
 
125
125
  シートの名前が実際の順番とばらばらである事と、3をインデックスに指定するとエラーが起こるようです。
126
+
127
+
128
+
129
+ 前回、2016で同様のコードを動かした時は問題なく動いていました。

2

実験結果の追記

2015/10/26 16:44

投稿

syusuke9999
syusuke9999

スコア13

test CHANGED
File without changes
test CHANGED
@@ -85,3 +85,41 @@
85
85
 
86
86
 
87
87
  追記:Excelのバージョンは2016です。
88
+
89
+
90
+
91
+ 追記:以下のコードを実行したところ以下のような結果になりました
92
+
93
+ Public Sub Count()
94
+
95
+
96
+
97
+ On Error Resume Next
98
+
99
+ Dim i As Integer
100
+
101
+
102
+
103
+ For i = 1 To Worksheets.Count
104
+
105
+ Debug.Print i & "番目シート名:" & Worksheets(i).Name
106
+
107
+ Next i
108
+
109
+
110
+
111
+ End Sub
112
+
113
+
114
+
115
+ 結果:
116
+
117
+ 1番目シート名:NameOfSheet4
118
+
119
+ 2番目シート名:NameOfSheet5
120
+
121
+ 4番目シート名:NameOfSheet2
122
+
123
+ 5番目シート名:NameOfSheet3
124
+
125
+ シートの名前が実際の順番とばらばらである事と、3をインデックスに指定するとエラーが起こるようです。

1

Excelのバージョンを明記しましまた。

2015/10/26 05:31

投稿

syusuke9999
syusuke9999

スコア13

test CHANGED
File without changes
test CHANGED
@@ -81,3 +81,7 @@
81
81
 
82
82
 
83
83
  どなたか、お力添えいただけませんでしょうか?
84
+
85
+
86
+
87
+ 追記:Excelのバージョンは2016です。