1

リストボックスに値を入力していますが、番号を付けて表示したいだけです。シートから範囲を取得し、ループ カウンターに忍び込み、範囲をロードしたいだけです。ナンバリングは生データシートには存在しないので、このルートを選択します。元のコードは次のとおりです。

 Dim myArray As Variant
 numbldsec = Worksheets("bld").Cells(2, 1).Value
 myArray = Worksheets("bld").Range("A3:A" & numbldsec + 2)
 With Worksheets("plots")
  .ListBox1.List = myArray
  .ListBox1.IntegralHeight = False
  .ListBox1.IntegralHeight = True
  .ListBox1.Height = 45
  .ListBox1.Width = 69
  .ListBox1.Top = 0
  .ListBox1.Left = 1255.5
 End With

だから私は myArray に行ごとに2つの値を持たせたい....

助けてくれてありがとう。

4

1 に答える 1

1

ああ、これはうまくいきました：

Dim myArray As Variant
numbldsec = Worksheets("bld").Cells(2, 1).Value
myArray = Worksheets("bld").Range("A3:A" & numbldsec + 2).Value
For i = 1 To numbldsec ' pre-append radii with section numbers
 myArray(i, 1) = i & " " & myArray(i, 1)
Next i

等...

于 2012-11-27T01:19:14.907 に答える