Excel VBA質問箱 IV

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

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


74197 / 76732 ←次へ | 前へ→

【7005】リストボックスへのアイテム追加
質問  Cager  - 03/8/19(火) 23:44 -

引用なし
パスワード
   はじめまして。Cagerと申します。
様々な本やHELPと格闘しながら初めてのVBA作成を試みておりますが
リストボックスへのアイテム追加でつまづいてしまいました。。

現在UserForm上に
ListBox1     :選択肢羅列用(ExcelのSheetから項目を拾ってきます)
ListBox2     :選択済項目表示用(別のSheetへ書き出します)
コマンドボタン1 :選択済
          ListBox1→2へアイテム追加
         (ListBox1からはRemoveItemにて項目が削除されます)
コマンドボタン2 :選択解除
          ListBox2→1へアイテム追加
         (1同様ListBox2からはRemoveItemにて項目が削除されます)
オプションボタン1:選択肢(本社所属社員名)
オプションボタン2:選択肢(支店所属社員名)

以上のような構成で使用していますが、
1.オプションボタン1を選択した状態で社員AとBを選択。
2.オプションボタン2を選択し社員XとYを選択。
3.再度オプションボタン1を選択すると選択肢に社員AとBが表示される。。。

3.で既にリストボックス2に存在するアイテムは
リストボックス1へ表示されないようにしたいと思っているのですが
上手くできません。

因みにリストボックスへのアイテム追加は
以下の記述にて行っております。

====================================================
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
====================================================

初歩的な質問かもしれませんが
良いアドバイスがありますしたら是非宜しくお願い致します。
1 hits

【7005】リストボックスへのアイテム追加 Cager 03/8/19(火) 23:44 質問
【7010】Re:リストボックスへのアイテム追加 INA 03/8/20(水) 9:08 質問
【7021】Re:リストボックスへのアイテム追加 Cager 03/8/20(水) 14:59 質問
【7034】Re:リストボックスへのアイテム追加 Hirofumi 03/8/20(水) 21:36 回答
【7052】Re:リストボックスへのアイテム追加 Cager 03/8/21(木) 11:03 お礼
【7075】書き忘れた事が有りました Hirofumi 03/8/21(木) 20:27 発言

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