|
初心者 さん、こんばんわ。
>ユーザーフォームにて
>リストボックスを二つ、
>コマンドボタンを一つ、
>テキストボックスを一つ用意し、
これらがそのままの名前で準備されているとして。
Private Sub CommandButton1_Click()
On Error Resume Next
ListBox2.Text = ListBox1.Text
On Error GoTo 0
'
If ListBox2.ListCount = 0 Or ListBox1.Text <> ListBox2.Text Then
ListBox2.AddItem ListBox1.Text 'なければアイテム追加
End If
End Sub
Private Sub ListBox1_Change()
If ListBox1.ListIndex >= 0 Then TextBox1.Text = ListBox1.Text
End Sub
Private Sub ListBox2_Change()
If ListBox2.ListIndex >= 0 Then ListBox1.Text = ListBox2.Text
End Sub
Private Sub UserForm_Activate()
ListBox1.Clear '念のためクリア
ListBox2.Clear '念のためクリア
TextBox1.Text = ""
'シート1というワークシートのデータを読み込む
ListBox1.RowSource = "シート1!A1:A10"
End Sub
こんな感じです。
リストボックスの値が数値の時は、Valueでの比較がうまくいかなかったのでTextで比較しました。
|
|