質問編集履歴
1
変数に値を入れていることを追記しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -17,10 +17,20 @@
|
|
|
17
17
|
Dim days(6), uriagekin(6) As String
|
|
18
18
|
Dim i As Long
|
|
19
19
|
Dim term,code as String
|
|
20
|
+
i= 3
|
|
21
|
+
days(0) = "20190101"
|
|
22
|
+
days(1) = "20190102"
|
|
23
|
+
uriagekin(0) = "10000"
|
|
24
|
+
uriagekin(1) = "15000"
|
|
25
|
+
|
|
20
|
-
|
|
26
|
+
call pasteInfo(term,code,days(),uriagekin(),i)
|
|
27
|
+
|
|
21
28
|
End Sub
|
|
29
|
+
|
|
22
30
|
Sub pasteInfo(ByVal term As String, ByVal code As String, ByRef days() As String, ByRef uriage() As String, ByVal i As Long)
|
|
23
31
|
|
|
32
|
+
処理（省略）
|
|
33
|
+
|
|
24
34
|
End Sub
|
|
25
35
|
```
|
|
26
36
|
|