質問編集履歴
3
kousinn
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,6 +1,3 @@
|
|
|
1
|
-
####すみません、どうしてもセルの値を配列に格納することで、つまずいてしまいます。
|
|
2
|
-
####型が一致しないエラーです。何か良い参考資料はありませんでしょうか？
|
|
3
|
-
|
|
4
1
|
追記依頼:: Function IsContained(target, filename) As Booleanに配列にセルの値を格納するコードを書いています。以下でエラーがでます。
|
|
5
2
|
myarray2(1, i) = Workbooks(filename).Worksheets("説明").vbDate(1, i)
|
|
6
3
|
参考資料 https://excel-ubara.com/excelvba1/EXCELVBA414.html
|
2
更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,6 +1,12 @@
|
|
|
1
1
|
####すみません、どうしてもセルの値を配列に格納することで、つまずいてしまいます。
|
|
2
2
|
####型が一致しないエラーです。何か良い参考資料はありませんでしょうか？
|
|
3
3
|
|
|
4
|
+
追記依頼:: Function IsContained(target, filename) As Booleanに配列にセルの値を格納するコードを書いています。以下でエラーがでます。
|
|
5
|
+
myarray2(1, i) = Workbooks(filename).Worksheets("説明").vbDate(1, i)
|
|
6
|
+
参考資料 https://excel-ubara.com/excelvba1/EXCELVBA414.html
|
|
7
|
+
http://yumem.cocolog-nifty.com/excelvba/2010/11/post-de50.html
|
|
8
|
+
https://officevba.info/cellstoarray/
|
|
9
|
+
https://www.moug.net/tech/exvba/0100049.html
|
|
4
10
|
|
|
5
11
|
170近くの数のファイルを配列Sheetに格納して、配列に入っているファイルを一つづつ取り出します。
|
|
6
12
|
取り出したファイルのCC列のセルのデータを取得し、現在開いているAファイルと、取り出したデータを照合し、Aファイルと同じデータがあれば[一致]を、なければ、どんどんファイルを取り出していき、全てのファイルに同じデータがなければ、[不一致]を入力するプログラムを書いています。
|
|
@@ -84,6 +90,21 @@
|
|
|
84
90
|
|
|
85
91
|
Application.ScreenUpdating = False
|
|
86
92
|
|
|
93
|
+
|
|
94
|
+
Dim s As String
|
|
95
|
+
|
|
96
|
+
'配列にセルの値を入れる処理
|
|
97
|
+
s = ("CC10:" & "CC" & CStr(this_line))
|
|
98
|
+
Dim vbDate As Variant
|
|
99
|
+
Dim myarray2
|
|
100
|
+
|
|
101
|
+
vbDate = Range(s)
|
|
102
|
+
ReDim myarray2(1, 1 To 200)
|
|
103
|
+
For i = LBound(vbDate, 1) To UBound(vbDate, 1)
|
|
104
|
+
'ここでエラー
|
|
105
|
+
myarray2(1, i) = Workbooks(filename).Worksheets("説明").vbDate(1, i)
|
|
106
|
+
Next i
|
|
107
|
+
|
|
87
108
|
Do While this_line / 2 > i 'データ数分だけ繰り返し セルが結合してあるので2で割る
|
|
88
109
|
|
|
89
110
|
|
1
更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,3 +1,7 @@
|
|
|
1
|
+
####すみません、どうしてもセルの値を配列に格納することで、つまずいてしまいます。
|
|
2
|
+
####型が一致しないエラーです。何か良い参考資料はありませんでしょうか？
|
|
3
|
+
|
|
4
|
+
|
|
1
5
|
170近くの数のファイルを配列Sheetに格納して、配列に入っているファイルを一つづつ取り出します。
|
|
2
6
|
取り出したファイルのCC列のセルのデータを取得し、現在開いているAファイルと、取り出したデータを照合し、Aファイルと同じデータがあれば[一致]を、なければ、どんどんファイルを取り出していき、全てのファイルに同じデータがなければ、[不一致]を入力するプログラムを書いています。
|
|
3
7
|
|