回答編集履歴
2
Test_Sample_Miniature部分
test
CHANGED
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
|
|
44
44
|
|
|
45
|
-
Sub Sample
|
|
45
|
+
Sub Test_Sample_Miniature()
|
|
46
46
|
|
|
47
47
|
Open "C:\Data.txt" For Input As #1
|
|
48
48
|
|
1
<code>へ変更
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
Excelで作りましたがAccessでも同じ筈です。
|
|
8
8
|
|
|
9
|
-
|
|
9
|
+
```ここに言語を入力
|
|
10
10
|
|
|
11
11
|
Option Explicit
|
|
12
12
|
|
|
@@ -84,7 +84,7 @@
|
|
|
84
84
|
|
|
85
85
|
Next
|
|
86
86
|
|
|
87
|
-
|
|
87
|
+
|
|
88
88
|
|
|
89
89
|
End Sub
|
|
90
90
|
|
|
@@ -117,6 +117,8 @@
|
|
|
117
117
|
Do Until EOF(1)
|
|
118
118
|
|
|
119
119
|
If Left(buf, 2) = "CC" Then
|
|
120
|
+
|
|
121
|
+
'
|
|
120
122
|
|
|
121
123
|
intCountRec = intCountRec + 1
|
|
122
124
|
|
|
@@ -152,4 +154,4 @@
|
|
|
152
154
|
|
|
153
155
|
End Sub
|
|
154
156
|
|
|
155
|
-
|
|
157
|
+
```
|