質問編集履歴
1
ご指摘ありがとうございます。修正致しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,7 +25,7 @@
|
|
|
25
25
|
まだVBAを始めたばかりなので、詳しい方がいればご教授ください。
|
|
26
26
|
|
|
27
27
|
### 該当のソースコード
|
|
28
|
-
|
|
28
|
+
```
|
|
29
29
|
Sub fileinput()
|
|
30
30
|
Dim buf As String, n As Long
|
|
31
31
|
Open "C:\data.txt" For Input As #1
|
|
@@ -36,6 +36,8 @@
|
|
|
36
36
|
Loop
|
|
37
37
|
Close #1
|
|
38
38
|
End Sub
|
|
39
|
+
```
|
|
39
40
|
|
|
41
|
+
|
|
40
42
|
### 試したこと
|
|
41
43
|
該当のソースコードには試しに一行ずつのデータを書き出すことができましたが、条件付きで書き出すにはどうすればいいか分からないので、ご教授ください。
|