質問編集履歴
3
日本語の誤字修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
|
|
3
3
|
現在、きまった形のデータを作成するために、コピーandペースト作業時のミスをなくすためエクセルとVBAを使いフォーマットを作成しました。
|
|
4
4
|
エクセルに決まった通りにデータを入力したら、後はVBAで自動的に決まった形のテキストデータを出力してくれるというマクロであります。
|
|
5
|
-
当初、データ数がそこまで多くなく軽快に作業が進んでいたのですが、データ数と繰り返しステップ数が増えると作業終了までにかなりの時間がかかるようになりました。それこそ、列ごとに
|
|
5
|
+
当初、データ数がそこまで多くなく軽快に作業が進んでいたのですが、データ数と繰り返しステップ数が増えると作業終了までにかなりの時間がかかるようになりました。それこそ、列ごとにテキストエディタに書きこんだ方が早いかもしれないと思うようにもなりました。（実際に試したのですが、途中で選択範囲を間違えたり、重複で張り付けたりで散々でしたが…）。
|
|
6
6
|
|
|
7
7
|
セルに(下記はセル番地を示す)
|
|
8
8
|
B2 C2 D2 ・・・ XX2
|
|
@@ -102,7 +102,7 @@
|
|
|
102
102
|
|
|
103
103
|
で「出力ファイル = outputPath & ファイル名 & ".dat"」
|
|
104
104
|
に現在記述していますが、
|
|
105
|
-
それを列
|
|
105
|
+
それを列単位で
|
|
106
106
|
「出力ファイル = outputPath & ファイル名 & ".dat"」
|
|
107
107
|
に書き出せないかという事です。
|
|
108
108
|
|
2
タグで括りました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -43,7 +43,7 @@
|
|
|
43
43
|
各列の終了行数は全部同じであります。(つまり2行目から始まり、5万行データなら5万行まで、70万行なら70万行まで全列データがある矩形型)
|
|
44
44
|
|
|
45
45
|
今現在のコードを記載します。
|
|
46
|
-
|
|
46
|
+
```vba
|
|
47
47
|
Sub 結果作成()
|
|
48
48
|
Application.ScreenUpdating = False
|
|
49
49
|
Dim ファイル名 As String
|
|
@@ -83,6 +83,7 @@
|
|
|
83
83
|
Close #IntFlNo '書き込み終了
|
|
84
84
|
Application.ScreenUpdating = True
|
|
85
85
|
End Sub
|
|
86
|
+
```
|
|
86
87
|
という状況であり、やっていることは単純に、列ごとにその列の最終行までのデータを
|
|
87
88
|
Print #IntFlNo, Cells(Ψ, Ξ)
|
|
88
89
|
で書き出してるマクロであります。
|
1
誤字の修正をしました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,25 +16,30 @@
|
|
|
16
16
|
B4
|
|
17
17
|
・
|
|
18
18
|
B500000
|
|
19
|
+
-1, 0.,
|
|
19
20
|
C2
|
|
20
21
|
C3
|
|
21
22
|
C4
|
|
22
23
|
・
|
|
23
24
|
C500000
|
|
25
|
+
-1, 0.,
|
|
24
26
|
D1
|
|
25
27
|
D2
|
|
26
28
|
D3
|
|
27
29
|
・
|
|
28
30
|
D500000
|
|
29
|
-
|
|
31
|
+
-1, 0.,
|
|
32
|
+
|
|
30
|
-
|
|
33
|
+
この間繰り返し
|
|
34
|
+
|
|
31
35
|
XX1
|
|
32
36
|
XX2
|
|
33
37
|
XX3
|
|
34
38
|
・
|
|
35
39
|
XX500000
|
|
36
|
-
|
|
40
|
+
-1, 0.,
|
|
41
|
+
-1
|
|
37
|
-
とテキスト形式の文字が列ごとに繋がっていく感じであります。
|
|
42
|
+
とテキスト形式の文字が列ごとに繋がっていく感じであります。(各列のデータの区切りに-1, 0.,という終了フラグが付きまして、EOFの時には -1というフラグが付きます)
|
|
38
43
|
各列の終了行数は全部同じであります。(つまり2行目から始まり、5万行データなら5万行まで、70万行なら70万行まで全列データがある矩形型)
|
|
39
44
|
|
|
40
45
|
今現在のコードを記載します。
|