Excel VBA質問箱 IV

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

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


73768 / 76732 ←次へ | 前へ→

【7438】Re:2次元(多次元)配列の宣言について
回答  Jaka  - 03/9/5(金) 9:15 -

引用なし
パスワード
   おはようございます。
昨日本を見ていたら、ListBox1.Columnを使えばTransposeする必要がないと気付きました。
結果これだけで済んでしまいました。

Dim A() As String

Private Sub CommandButton1_Click()
  Dim X As Integer
  X = ListBox1.ListCount
  ReDim Preserve A(0 To 1, 0 To X)
  A(0, X) = TextBox1.Value
  A(1, X) = TextBox2.Value
  ListBox1.Column = A
  DoEvents
End Sub

また、最初にリストボックスの数を想定してリストボックスを区切っておく方法もある事に気付きました。
これだと最初に想定した行数以上は書きこめませんけど...。
想定した行数をオーバーした場合は、作りなおしになります。
新たに大きな配列を作って書きこんであるデータを移してから、と前に書きこんだような感じに
したりするとか、ちょっと面倒くさそうですが..。

Private Sub CommandButton5_Click()
  Dim TB() As String
  Static CNT As Long
  Const LCC = 10     '取合えず最初に0〜10まで、計11コ作っておく。
  If ListBox1.ListCount = 0 Then
    ReDim TB(0 To LCC, 0 To 1)
    ListBox1.List = TB
    Erase TB
    CNT = 0
  Else
    CNT = CNT + 1
  End If
  If CNT <= LCC Then
    ListBox1.List(CNT, 0) = TextBox1.Value
    ListBox1.List(CNT, 1) = TextBox2.Value
  End If
End Sub
0 hits

【7361】2次元(多次元)配列の宣言について KAZ 03/9/3(水) 12:15 質問
【7381】Re:2次元(多次元)配列の宣言について Jカーター 03/9/3(水) 18:37 回答
【7382】Re:2次元(多次元)配列の宣言について Jカーター 03/9/3(水) 18:50 回答
【7383】Re:2次元(多次元)配列の宣言について Jカーター 03/9/3(水) 19:06 回答
【7393】Re:2次元(多次元)配列の宣言について Jaka 03/9/4(木) 9:32 回答
【7394】表現が...。 Jaka 03/9/4(木) 9:40 発言
【7420】Re:2次元(多次元)配列の宣言について Jカーター 03/9/4(木) 16:07 回答
【7433】Re:2次元(多次元)配列の宣言について KAZ 03/9/5(金) 0:01 お礼
【7438】Re:2次元(多次元)配列の宣言について Jaka 03/9/5(金) 9:15 回答

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