質問編集履歴
2
誤字
test
CHANGED
File without changes
|
test
CHANGED
@@ -20,7 +20,7 @@
|
|
20
20
|
|
21
21
|
|
22
22
|
|
23
|
-
Sub Bookinfo(loop1 As Integer)
|
23
|
+
Sub Bookinfo(loop1 As Integer)
|
24
24
|
|
25
25
|
|
26
26
|
|
1
文言修正、プログラムの流れを記載
test
CHANGED
File without changes
|
test
CHANGED
@@ -4,14 +4,48 @@
|
|
4
4
|
|
5
5
|
|
6
6
|
|
7
|
-
|
7
|
+
まず、エクセルファイルのRange("B4:D4")にある値を、
|
8
8
|
|
9
|
-
|
9
|
+
自分のファイルに出力させたいです。
|
10
|
-
|
11
|
-
2:読み込みファイルから、Range("B4:D4")、Range("E7:G7")にある文字を抽出。
|
12
10
|
|
13
11
|
|
14
12
|
|
15
|
-
|
13
|
+
以下の3点についてアドバイス頂けると助かります。
|
16
14
|
|
15
|
+
①処理の流れがあっているか
|
16
|
+
|
17
|
+
②Sub Bookinfo(loop1 As Integer)の引数の設定の仕方は大丈夫か
|
18
|
+
|
19
|
+
③datename に値が入力されない
|
20
|
+
|
21
|
+
|
22
|
+
|
23
|
+
Sub Bookinfo(loop1 As Integer) '
|
24
|
+
|
25
|
+
|
26
|
+
|
17
|
-
|
27
|
+
Dim datename As String '作成日
|
28
|
+
|
29
|
+
Dim loop1 As Integer '繰り返し
|
30
|
+
|
31
|
+
|
32
|
+
|
33
|
+
For loop1 = 2 To 4 'B4からD4の値を検索
|
34
|
+
|
35
|
+
if Cells(loop1,4) <> "" '値があれば
|
36
|
+
|
37
|
+
datename = Cells(loop1, 4) '変数に値を入力
|
38
|
+
|
39
|
+
Exit For
|
40
|
+
|
41
|
+
End If
|
42
|
+
|
43
|
+
Next
|
44
|
+
|
45
|
+
Cells(1, 1) = subjectname '値を出力
|
46
|
+
|
47
|
+
End Sub
|
48
|
+
|
49
|
+
|
50
|
+
|
51
|
+
宜しくお願いします。
|