
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も見ています
-
それもChatGPT!?と驚いた使用方法を教えてください
仕事やプライベートでも利用が浸透してきたChatGPTですが、こんなときに使うの!!?とびっくりしたり、これは画期的な有効活用だ!とうなった事例があれば教えてください!
-
何回やってもうまくいかないことは?
みなさんには、何回やってもうまくいかないことはありますか?
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
コーピングについて教えてください
皆さんはストレスを感じたとき、どのような方法や手段、テクニックで対処していますか?
-
【お題】斜め上を行くスキー場にありがちなこと
運営も客も一流を通り越して斜め上を行くスキー場にありがちなことを教えて下さい。
-
配列からのCSVファイルの作成に関して
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Functionの戻り値を配列にした...
-
Excel VBAでsub,dimは何の略?
-
VBA public変数はどのようなこ...
-
エクセルVBAでテキストボッ...
-
レコードセットにnullの場合
-
visual basic初心者です。 visu...
-
プロシージャまたは関数の引数...
-
VB6でForm_Load中にイベントを...
-
テキストボックスかラベル上の...
-
チェックボックスを操作できな...
-
String型の値にスラッシュをつ...
-
TEXTBOXの表示形式の変...
-
プロシージャを呼び出したプロ...
-
【VBScript】変数のスコープ
-
テキストボックス1の値に対する...
-
C#のループでtextboxに値を入れ...
-
ボールが壁に当たって跳ね返る...
-
EXCEL2010 VBA SelectionChange...
-
VBでの入力値制限について
-
他のフォームから別のフォーム...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでsub,dimは何の略?
-
Functionの戻り値を配列にした...
-
2次元配列のデータをファイルへ...
-
VB6で配列を引数にするときの2...
-
全組合せの洗い出しプログラム...
-
xmlの値を配列変数に格納し...
-
xmlの値を配列に格納したいんで...
-
ExcelVBAで他のファイル(proje...
-
texで図と表を並べたい
-
エクセルVBAでテキストボッ...
-
VBA public変数はどのようなこ...
-
他のフォームから別のフォーム...
-
VB.NETでのイベントの途中終了
-
【VB.NET】テキストボックスに...
-
レコードセットにnullの場合
-
チェックボックスを操作できな...
-
テキストボックスかラベル上の...
-
C#のループでtextboxに値を入れ...
-
アクセスできない保護レベルエ...
-
VBAでcallで呼び出したsubを終...
おすすめ情報