No.4ベストアンサー
- 回答日時:
; をつけないと改行されてしまうようです。
for i=0 to 100
for k=0 to 199
write #1,a(i,k);
next k
write #1,a(i,200)
next i
これでどうでしょうか?
No.6
- 回答日時:
Writeは必ず改行が入るので、Printを使ってください。
for i=0 to 100
for k=0 to 200
Print #1, a(i,k);
If k = 200 Then
Print #1, ""
Else
Print #1, ",";
End if
next k
next i
No.5
- 回答日時:
#2のものです。
#1の補足の>するとデータがすべて縦に並んでしまいました
私のも縦に並びます。メモ帳などで見ると縦に
配列1つずつ並んで見えると言うことでしょうが
これは「縦に並ぶ」とは言いません。復帰改行コード
(vbCrLf)がWrite#ステートメント発行時毎に入ると言うことです。
(完成ごエクセルの表のセルに読みこませたいとは、書いてないですね。)
それでそうしたいのであれば、仮にsと言うStringを定義し
For k=1 to 200
s=""
For i=1 to 100
s=s & a(k,i) & ","
next i
s=s & vbCrLf
Print #1,s
next k
のように100まで溜め込み、復帰改行と共に書き出せばよい。
No.3
- 回答日時:
Open "test.csv" For Output As #1
for i=0 to 100
for j=0 to 199
write #1,a(i,j),
next j
write #1,a(i,200)
next i
close #1
end
No.2
- 回答日時:
大事なことで、処理のスタートは、どこなんでしょうか。
と言うのは、(1)プログラムの途中で、配列a(x,y)の
dim a(100)にデータが出来ていて、それをテキスト
ファイルに落としたいのか(2)紙の上にデータがあって
いまから(多分キーボードインプットで)入力して、読みこんだ時にa(x,y)の形に出きる、テキストファイルを作るのかです。
#1のお答えは(1)を前提にしているようです。
(2)で有れば、配列名aは当然入力不要で、x,yはペア
で入れることになるでしょう。また配列要素x、yはデータの中に持たなくても良いでしょうね。
x1,y1,x2,y2,x3・・・でも良いし、x1;y1,x2;y2,x3;・
でも良い。後者はセパレータは,,/,;,-など、どれか決めて
おけば良いと思う。入力手数は前者後者とも同じですが、
読み込んだ時、前者はx$,Y$で受けられる。後者はセパレータで分割せねばならない。しかし1データ飛ばして全体がずれる恐れは少ない。後者の例。テスト済み。
Sub test01()
Dim a As String
Open "c:\My Documents\aa2.txt" For Output As #1
For i = 1 To 1000
a = InputBox("(x,y)=")
If a = "end" Then GoTo ed
Write #1, a
Next i
ed:
Close #1
End Sub
復帰改行(レコード区切り)を要素1個1個に入れるかも
配列要素数がもっと多ければ、考える余地があろう。
No.1
- 回答日時:
ファイルをオープンしてある状態で、出力するところだけです。
for i=0 to 100
for k=0 to 199
write #1,a(i,k) & ","
next k
write #1,a(i,200)
next i
上記のように二重ループにすればいいかと思います。
ファイルに出力する部分は、ちょっと違うかもしれませんが・・・。
ま、参考程度に。
この回答への補足
ありがとうございます。
実際に試してみました。
するとデータがすべて縦に並んでしまいました。
私の説明が悪かったとは思いますがやりたいことは、
この回答を例に取ると、
for k=0 to 200 のデータを横一列にならべて、
for i=0 to 100 のデータを縦一列にならべて、
100*200のセルに当てはめるやり方が知りたいのです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 任意の列数で分割する方法 3 2022/07/31 14:58
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- 写真・ビデオ iPhoneファイルでの形式について 1 2022/05/18 12:12
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB6で配列を引数にするときの2...
-
2次元配列のデータをファイルへ...
-
Excel VBAでsub,dimは何の略?
-
三項でたとえば交換って
-
ドラゴン曲線を再帰で書く
-
他のフォームから別のフォーム...
-
レコードセットにnullの場合
-
VBA public変数はどのようなこ...
-
ボールが壁に当たって跳ね返る...
-
エクセルVBAでテキストボッ...
-
VBAでcallで呼び出したsubを終...
-
チェックボックスを操作できな...
-
C言語のサフィックスについて
-
マウスポインタの変更
-
画像処理について。(移動)
-
[VB6] SQLの作成について
-
プロシージャまたは関数の引数...
-
【VB6.0】 あるフォームから他...
-
ClickとChangeイベントの違いは...
-
C#のループでtextboxに値を入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
三項でたとえば交換って
-
Excel VBAでsub,dimは何の略?
-
Functionの戻り値を配列にした...
-
xmlの値を配列変数に格納し...
-
配列に複数の値があるか簡潔に...
-
VB6で配列を引数にするときの2...
-
2次元配列のデータをファイルへ...
-
ExcelVBAで他のファイル(proje...
-
全組合せの洗い出しプログラム...
-
Pascalでの選択ソート
-
VBA public変数はどのようなこ...
-
C#のループでtextboxに値を入れ...
-
エクセルVBAでテキストボッ...
-
VBAでcallで呼び出したsubを終...
-
sublimit textっていうエディタ...
-
他のフォームから別のフォーム...
-
VB.NETでのイベントの途中終了
-
C言語のサフィックスについて
-
【VB6.0】 あるフォームから他...
-
アクセスできない保護レベルエ...
おすすめ情報