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
