| |
はじめまして。Cagerと申します。
様々な本やHELPと格闘しながら初めてのVBA作成を試みておりますが
リストボックスへのアイテム追加でつまづいてしまいました。。
現在UserForm上に
ListBox１ ：選択肢羅列用（ExcelのSheetから項目を拾ってきます）
ListBox２ ：選択済項目表示用（別のSheetへ書き出します）
コマンドボタン１ ：選択済
ListBox１→２へアイテム追加
（ListBox１からはRemoveItemにて項目が削除されます）
コマンドボタン２ ：選択解除
ListBox２→１へアイテム追加
（１同様ListBox２からはRemoveItemにて項目が削除されます）
オプションボタン１：選択肢（本社所属社員名）
オプションボタン２：選択肢（支店所属社員名）
以上のような構成で使用していますが、
1.オプションボタン１を選択した状態で社員AとBを選択。
2.オプションボタン２を選択し社員XとYを選択。
3.再度オプションボタン１を選択すると選択肢に社員AとBが表示される。。。
3.で既にリストボックス２に存在するアイテムは
リストボックス１へ表示されないようにしたいと思っているのですが
上手くできません。
因みにリストボックスへのアイテム追加は
以下の記述にて行っております。
====================================================
Private Sub OptionButton1_Click()
Dim i
For i = 3 To 200
With Sheets("Sheet1")
If .Cells(i,1) = "本社" Then
ListBox1.List = .Cells(i,2)
End If
End With
Next i
End Sub
====================================================
初歩的な質問かもしれませんが
良いアドバイスがありますしたら是非宜しくお願い致します。
|
|
Cager
- 03/8/19(火) 23:44 -
