Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43246 / 76732 ←次へ | 前へ→

【38536】Re:配列を使用し変数をセルに代入
発言  roxy  - 06/6/6(火) 9:50 -

引用なし
パスワード
   ▼Kein さん:

説明が悪くてすいません。
コードを全部書くと結構長々としてしまうので、一部訂正し省略もして、シンプルなコードに変えて書き込んでみました。
読込み&内容の処理の部分は変えたくなかったので、あえてコードは載せませんでした。


intFF = FreeFile                
Open strInFile For Input As #intFF
Do Until EOF(1)
Line Input #intFF, strBUFF
a = Mid(strBUFF, i + 6, 2)
b = Mid(strBUFF, i + 10, 2)
c = Mid(strBUFF, i + 13, 10)
d = Mid(strBUFF, i + 25, 5)
e = Mid(strBUFF, i + 30, 10)
f = Mid(strBUFF, i + 42, 5)
g = Mid(strBUFF, i + 50, 5)
Cells(nCNT, 2).Value = a
Cells(nCNT, 3).Value = b
Cells(nCNT, 4).Value = c
Cells(nCNT, 5).Value = d
Cells(nCNT, 6).Value = e
Cells(nCNT, 7).Value = f
Cells(nCNT, 8).Value = g
nCNT = nCNT + 1
Loop
Close #intFF


実際はstrBUFFからMid関数で必要な情報を処理している箇所はもっと複雑です。
セルにa〜gを書き込んでいる部分だけを修正したいのです。
a〜gに代入後配列に渡し、処理だけを先にしてから書き込みだけ配列から値をもらいまた別のループにするということは可能でしょうか?

よろしくお願いします。

4 hits

【38519】配列を使用し変数をセルに代入 roxy 06/6/5(月) 17:36 質問
【38522】Re:配列を使用し変数をセルに代入 Kein 06/6/5(月) 18:02 回答
【38523】Re:配列を使用し変数をセルに代入 roxy 06/6/5(月) 18:06 発言
【38525】Re:配列を使用し変数をセルに代入 Kein 06/6/5(月) 18:24 発言
【38536】Re:配列を使用し変数をセルに代入 roxy 06/6/6(火) 9:50 発言
【38539】Re:配列を使用し変数をセルに代入 Jaka 06/6/6(火) 10:40 発言

43246 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free