質問編集履歴
3
kousinn
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,9 +1,3 @@
|
|
|
1
|
-
####すみません、どうしてもセルの値を配列に格納することで、つまずいてしまいます。
|
|
2
|
-
|
|
3
|
-
####型が一致しないエラーです。何か良い参考資料はありませんでしょうか？
|
|
4
|
-
|
|
5
|
-
|
|
6
|
-
|
|
7
1
|
追記依頼:: Function IsContained(target, filename) As Booleanに配列にセルの値を格納するコードを書いています。以下でエラーがでます。
|
|
8
2
|
|
|
9
3
|
myarray2(1, i) = Workbooks(filename).Worksheets("説明").vbDate(1, i)
|
2
更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,6 +4,18 @@
|
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
|
|
7
|
+
追記依頼:: Function IsContained(target, filename) As Booleanに配列にセルの値を格納するコードを書いています。以下でエラーがでます。
|
|
8
|
+
|
|
9
|
+
myarray2(1, i) = Workbooks(filename).Worksheets("説明").vbDate(1, i)
|
|
10
|
+
|
|
11
|
+
参考資料 https://excel-ubara.com/excelvba1/EXCELVBA414.html
|
|
12
|
+
|
|
13
|
+
http://yumem.cocolog-nifty.com/excelvba/2010/11/post-de50.html
|
|
14
|
+
|
|
15
|
+
https://officevba.info/cellstoarray/
|
|
16
|
+
|
|
17
|
+
https://www.moug.net/tech/exvba/0100049.html
|
|
18
|
+
|
|
7
19
|
|
|
8
20
|
|
|
9
21
|
170近くの数のファイルを配列Sheetに格納して、配列に入っているファイルを一つづつ取り出します。
|
|
@@ -170,6 +182,36 @@
|
|
|
170
182
|
|
|
171
183
|
|
|
172
184
|
|
|
185
|
+
|
|
186
|
+
|
|
187
|
+
Dim s As String
|
|
188
|
+
|
|
189
|
+
|
|
190
|
+
|
|
191
|
+
'配列にセルの値を入れる処理
|
|
192
|
+
|
|
193
|
+
s = ("CC10:" & "CC" & CStr(this_line))
|
|
194
|
+
|
|
195
|
+
Dim vbDate As Variant
|
|
196
|
+
|
|
197
|
+
Dim myarray2
|
|
198
|
+
|
|
199
|
+
|
|
200
|
+
|
|
201
|
+
vbDate = Range(s)
|
|
202
|
+
|
|
203
|
+
ReDim myarray2(1, 1 To 200)
|
|
204
|
+
|
|
205
|
+
For i = LBound(vbDate, 1) To UBound(vbDate, 1)
|
|
206
|
+
|
|
207
|
+
'ここでエラー
|
|
208
|
+
|
|
209
|
+
myarray2(1, i) = Workbooks(filename).Worksheets("説明").vbDate(1, i)
|
|
210
|
+
|
|
211
|
+
Next i
|
|
212
|
+
|
|
213
|
+
|
|
214
|
+
|
|
173
215
|
Do While this_line / 2 > i 'データ数分だけ繰り返し セルが結合してあるので2で割る
|
|
174
216
|
|
|
175
217
|
|
1
更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,3 +1,11 @@
|
|
|
1
|
+
####すみません、どうしてもセルの値を配列に格納することで、つまずいてしまいます。
|
|
2
|
+
|
|
3
|
+
####型が一致しないエラーです。何か良い参考資料はありませんでしょうか？
|
|
4
|
+
|
|
5
|
+
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
|
|
1
9
|
170近くの数のファイルを配列Sheetに格納して、配列に入っているファイルを一つづつ取り出します。
|
|
2
10
|
|
|
3
11
|
取り出したファイルのCC列のセルのデータを取得し、現在開いているAファイルと、取り出したデータを照合し、Aファイルと同じデータがあれば[一致]を、なければ、どんどんファイルを取り出していき、全てのファイルに同じデータがなければ、[不一致]を入力するプログラムを書いています。
|