Listプロパティについて

質問

お世話になります。
自分で作ったコードではないので、訂正していたらよくわからなく
なってしまいました。
これはsheet1からsheet2にリストボックスから転記するように
なっています。MyCol = Arrayの部分を変更したのですが、
参考書で調べてみたのですが、理解出来なかったので、質問しました。
ListIndex8までを転記していることはわかりました。
その後、ListIndexを11列周期で値をMyBufに代入したいと考えています。(言葉が適当なのかはわかりません)
下記の部分を変更すればよいと思うのですが、まずはコードの
意味を理解したいと思うので、このコードの意味をわかりやすく
解説してもらえませんでしょうか？
MyBuf(i, 0) = .List(N, i * 9 + j + 8)
Next
Range(MyCol(j) & "21:" & MyCol(j) & "42").Value = MyBuf
以下コード
Range("AP4").Value = ListBox1.List(ListBox1.ListIndex, 0)
Range("AN3").Value = ListBox1.List(ListBox1.ListIndex, 1)
Range("AQ3").Value = ListBox1.List(ListBox1.ListIndex, 2)
Range("C3").Value = ListBox1.List(ListBox1.ListIndex, 3)
Range("C6").Value = ListBox1.List(ListBox1.ListIndex, 4)
Range("AH14").Value = ListBox1.List(ListBox1.ListIndex, 5)
Range("AM54").Value = ListBox1.List(ListBox1.ListIndex, 7)
Range("AH15").Value = ListBox1.List(ListBox1.ListIndex, 251)
Range("AH16").Value = ListBox1.List(ListBox1.ListIndex, 252)
Range("AH17").Value = ListBox1.List(ListBox1.ListIndex, 253)
Range("AH18").Value = ListBox1.List(ListBox1.ListIndex, 254)

Dim i As Integer, j As Integer, N As Integer, MyBuf(21, 0), MyCol
MyCol = Array("B", "F", "K", "L", "Z", "AB", "AD", "AH", "AK", "AM", "AS")
With ListBox1
N = .ListIndex
For j = 0 To 8
If j <> 7 Then
For i = 0 To 21
MyBuf(i, 0) = .List(N, i * 9 + j + 8)
Next
Range(MyCol(j) & "21:" & MyCol(j) & "42").Value = MyBuf
End If
Next
End With
Exit Sub

回答No.1

onlyrom · ベストアンサー

回答が付いてないようなので。。。

＞ListIndex8までを転記していることはわかりました。

勘違いではありませんか。
正しくは、「Listboxで選択した行の８列を転記している」です。

＞MyBuf(i, 0) = .List(N, i * 9 + j + 8)

　　MyBuf(列，行)
　　List(行，列)

ということです。
上記で、ListとMyBufでは行列が入れ替わっていますが、これは

＞Range(MyCol(j) & "21:" & MyCol(j) & "42").Value = MyBuf

このように配列を一度でセル範囲に入れるためです。
MyBuf(行，列)ではできません。

それから、i * 9 + j + 8　のような計算は一見ではその変化が分かりずらいので
結果をシートに表示してみればいいでしょう。

新しいブックで以下をお試しあれ。（データは不要）

'--------------------------------------------------
Sub test()
Dim i As Integer, j As Integer, N As Integer, MyBuf(21, 0), MyCol

MyCol = Array("B", "F", "K", "L", "Z", "AB", "AD", "AH", "AK", "AM", "AS")

For j = 0 To 8
If j <> 7 Then

For i = 0 To 21
MyBuf(i, 0) = i * 9 + j + 8
Next

Range(MyCol(j) & 17).Value = " ｊ = " & j
Range(MyCol(j) & 18).Value = MyCol(j)
Range(MyCol(j) & 19).Value = Range(MyCol(j) & "21:" & MyCol(j) & "42").Address(0, 0)
Range(MyCol(j) & "21:" & MyCol(j) & "42").Value = MyBuf

End If
Next

Range("A17").Value = "Ｊの値"
Range("A18").Value = "Arrayの値"
Range("A19").Value = "取得範囲"
Range("A21").Value = "ListBoxの列"
Range("A21").EntireColumn.AutoFit

For i = 0 To 21
Cells(i + 21, "A").Value = " i = " & i
Next i
End Sub
'---------------------------------------------

それにしても、なぜ２５５列ものListBoxを作成しているのでしょうか。
２５５列もあれば一度では全ての列を見ることができないし、スクロールも厄介。
ふつう、ListBoxにはキーとなるアイテムと最小限必要なアイテムだけ表示するものです。

以上。

補足

ご回答ありがとうございます。

sheet書類に作業確認表を作成しています。(縦書き)
その項目を保存するために別シートに転記しています。
自分なりに確認をしてどういう動きをしているのかは把握できました。
9列から11列毎に作業の項目を転記しているため、21項目で列の限界に
達します。
ただし、数が多いので、この方法が良いとわかりました。
リストボックスの表示項目は最初の数列を見るだけなんです。
しかし、ダブルクリックで転記させているのでこの様になって
いるのだと解釈しました。
それにしても、動作が速いのには驚きました。
わかりやすい解説ありがとうございました。