質問編集履歴
3
追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -145,3 +145,13 @@
|
|
145
145
|
|
146
146
|
|
147
147
|
よろしくお願いいたします。
|
148
|
+
|
149
|
+
|
150
|
+
|
151
|
+
|
152
|
+
|
153
|
+
追記
|
154
|
+
|
155
|
+
皆様回答ありがとうございました
|
156
|
+
|
157
|
+
一番シンプルに解決したものをBAにさせていただきました
|
2
ついき
test
CHANGED
File without changes
|
test
CHANGED
@@ -13,6 +13,10 @@
|
|
13
13
|
```VBA
|
14
14
|
|
15
15
|
Do Until EOF(txtnum)
|
16
|
+
|
17
|
+
'2行目よみこみ
|
18
|
+
|
19
|
+
Line Input #txtnum, line1
|
16
20
|
|
17
21
|
If InStr(line1, "東京") > 0 Then
|
18
22
|
|
1
henshuu
test
CHANGED
File without changes
|
test
CHANGED
@@ -26,11 +26,11 @@
|
|
26
26
|
|
27
27
|
|
28
28
|
|
29
|
-
'
|
29
|
+
'2行目が空
|
30
30
|
|
31
31
|
If line1 = "" Then
|
32
32
|
|
33
|
-
MsgBox "
|
33
|
+
MsgBox "不正なデータが含まれているため処理を終了します"
|
34
34
|
|
35
35
|
End
|
36
36
|
|
@@ -42,7 +42,7 @@
|
|
42
42
|
|
43
43
|
|
44
44
|
|
45
|
-
'
|
45
|
+
'2行目日付を取得
|
46
46
|
|
47
47
|
data = getdata(line1, data)
|
48
48
|
|
@@ -52,7 +52,7 @@
|
|
52
52
|
|
53
53
|
If line2 = "" Then
|
54
54
|
|
55
|
-
MsgBox "
|
55
|
+
MsgBox "不正なデータが含まれているため処理を終了します"
|
56
56
|
|
57
57
|
End
|
58
58
|
|