質問編集履歴
2
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -9,7 +9,7 @@
|
|
|
9
9
|
②Sub Bookinfo(loop1 As Integer)の引数の設定の仕方は大丈夫か
|
|
10
10
|
③datename に値が入力されない
|
|
11
11
|
|
|
12
|
-
Sub Bookinfo(loop1 As Integer)
|
|
12
|
+
Sub Bookinfo(loop1 As Integer)
|
|
13
13
|
|
|
14
14
|
Dim datename As String '作成日
|
|
15
15
|
Dim loop1 As Integer '繰り返し
|
1
文言修正、プログラムの流れを記載
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,9 +1,26 @@
|
|
|
1
1
|
複数のフォルダ内にあるエクセルファイルの中身を参照して、特定範囲内にある情報を抽出したいです。
|
|
2
2
|
具体的に参照したいエクセルファイルの該当箇所は、Range("B4:D4")、Range("E7:G7")範囲内でその範囲に文字列があった場合、その文字列を読み取るようにしてほしいです。
|
|
3
3
|
|
|
4
|
-
処理の流れとしては、以下の流れを考えてます。
|
|
5
|
-
1:読み込み対象のファイルを開く
|
|
6
|
-
|
|
4
|
+
まず、エクセルファイルのRange("B4:D4")にある値を、
|
|
5
|
+
自分のファイルに出力させたいです。
|
|
7
6
|
|
|
8
|
-
|
|
7
|
+
以下の３点についてアドバイス頂けると助かります。
|
|
8
|
+
①処理の流れがあっているか
|
|
9
|
+
②Sub Bookinfo(loop1 As Integer)の引数の設定の仕方は大丈夫か
|
|
10
|
+
③datename に値が入力されない
|
|
11
|
+
|
|
12
|
+
Sub Bookinfo(loop1 As Integer) '
|
|
13
|
+
|
|
9
|
-
|
|
14
|
+
Dim datename As String '作成日
|
|
15
|
+
Dim loop1 As Integer '繰り返し
|
|
16
|
+
|
|
17
|
+
For loop1 = 2 To 4 'B4からD4の値を検索
|
|
18
|
+
if Cells(loop1,4) <> "" '値があれば
|
|
19
|
+
datename = Cells(loop1, 4) '変数に値を入力
|
|
20
|
+
Exit For
|
|
21
|
+
End If
|
|
22
|
+
Next
|
|
23
|
+
Cells(1, 1) = subjectname '値を出力
|
|
24
|
+
End Sub
|
|
25
|
+
|
|
26
|
+
宜しくお願いします。
|