| |
おじゃまします。
リストは元々配列なので配列変数に格納して扱うと便利です。
おまけで削除するのも追加してみました。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
'リスト追加ボタン
Private Sub CommandButton1_Click()
Dim v As Variant
If Me.TextBox1.Value = "" Then Exit Sub
With Me.ListBox1
If IsNull(.List(0)) Then
.List = Array(Me.TextBox1.Value)
Else
v = .Column
ReDim Preserve v(0, LBound(v, 2) To UBound(v, 2) + 1)
If IsError(Application.Match(Me.TextBox1.Value, v, 0)) Then
v(0, UBound(v, 2)) = Me.TextBox1.Value
.Column = v
End If
End If
End With
Me.TextBox1.Value = ""
End Sub
'削除(消したいリストを選択してダブりクリック)
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Me.ListBox1
If IsNull(.List(0)) Then Exit Sub
If .ListIndex = -1 Then Exit Sub
.RemoveItem .ListIndex
.ListIndex = -1
End With
End Sub
'シートへの転記ボタン
Private Sub CommandButton2_Click()
Dim v As Variant
With Me.ListBox1
If IsNull(.List(0)) Then Exit Sub
v = .List
End With
Range("A1").Resize(UBound(v) + 1).Value = v
End Sub
はずしていたらすいません。
|
|
