Excel VBA質問箱 IV

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

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


73792 / 76738 ←次へ | 前へ→

【7420】Re:2次元(多次元)配列の宣言について
回答  Jカーター  - 03/9/4(木) 16:07 -

引用なし
パスワード
   こんにちは。
こんな方法もありかもしれません。
空のListBoxから始まることも考慮してます。
--------------------------------------------------------------------
Private Sub CommandButton1_Click()
  Dim VntList As Variant
  Dim VntTmp() As Variant
  
  VntList = Me.ListBox1.Column
  If IsNull(VntList) Then
    ReDim VntTmp(1, 0)
    VntList = VntTmp
  Else
    ReDim Preserve VntList(1, UBound(VntList, 2) + 1)
  End If
  VntList(0, UBound(VntList, 2)) = Me.TextBox1.Value
  VntList(1, UBound(VntList, 2)) = Me.TextBox2.Value
  Me.ListBox1.Column = VntList
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 回答

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