- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
271 ：初心者A[]：2016/01/06(水) 20:04:38.71 ID:tBMwYmRt - 初歩的な質問で、すいません。配列とかFor〜Nextのとこなんですが、
うまくいかなくて、悩んでます。
■■■■質問
'SH2のE列に、次のように出力するためには、どのようにコードしたら
いいか教えてもらえませんでしょうか？
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
272 ：初心者A[]：2016/01/06(水) 20:05:11.36 ID:tBMwYmRt - -----
2
3
4
5
-----
1
3
4
5
-----
1
2
4
5
-----
1
2
3
5
-----
1
2
3
4
-----
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
273 ：初心者A[]：2016/01/06(水) 20:06:39.51 ID:tBMwYmRt - ■■■■前置き（その１）
No(1)=1
No(2)=2
No(3)=3
No(4)=4
No(5)=5
の配列を、違うシート（シート名：sheet2name）に出力したい。
動的配列ですが、NUM1=5として考えやすくしてみました。
計算結果を出力するシートを、
Set SH2 = Worksheets(sheet2name)とする。
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
274 ：初心者A[]：2016/01/06(水) 20:07:07.71 ID:tBMwYmRt - ■■■■前置き（その２）
1
1
1
1
-----
2
2
2
2
-----
3
3
3
3
-----
4
4
4
4
-----
5
5
5
5
-----
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
275 ：初心者A[]：2016/01/06(水) 20:07:24.26 ID:tBMwYmRt - ■■■■前置き（その３）
と出力するために、次のようにコードしました。
--------------------------------------------------
r = 0
t = 1
For s = 1 To NUM1
For q = r + 1 To r + NUM1 - 1
SH2.Cells(q + 2, 4).Value = No(t) 'SH2のD列にデータ出力
r = r + 1
Next q
t = t + 1
Next s
--------------------------------------------------
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
279 ：初心者A[]：2016/01/06(水) 21:15:55.49 ID:tBMwYmRt - >277
やってみます。ありがとうございます。
http://ww10.puny.jp/uploader/download/1452081929.xls
パスワード：abc
Module1で試行錯誤中です。
SH2（シート名：計算結果）の【F列】
SH2.Cells(u + 2, 6).Value=
にデータ出力したいです。
初心者なんで難しいです(>_<)
時間かかりそうです。
|
- Excel VBA 質問スレ Part39 [転載禁止]©2ch.net
280 ：初心者A[]：2016/01/06(水) 21:30:56.38 ID:tBMwYmRt - おかげさまで、できました(^^)/ありがとうございます
下記のコード
r = 1
For i = 1 To NUM1
For j = 1 To NUM1
If i <> j Then
SH2.Cells(r + 2, 6).Value = No(j)
r = r + 1
End If
Next j
Next i
|