|
こんにちは。
こんな方法もありかもしれません。
空の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
----------------------------------------------------------------------
違ったらすいません。
|
|