|
申し訳ありませんが、ユーザーフォームのリストボックスに項目を追加
削除する方法について教えて下さい。
ユーザーフォームにオプションボタンを2つ、リストボックスを1つ
テキストボックスを3つ、コマンドボタンを3つ(登録、削除、修正)配置しております。
動作は、
1,登録ボタンを押すとテキストボックスの内容をリストボックスとシートに項目 を追加する。TextBox1→リスト1列目、TextBox2→リスト2列目
(重複するデータは1列目を調べて登録しない)
2,削除ボタンを押すとリストボックスの選択している行と、その行に該当する項 目をシートから削除する。(シートに出来る空白行を削除してリストボックス の表示と同じ状態にする。
3,修正ボタンを押すと、リストボックスの選択している項目をテキストボックス に表示する。
シートは非表示で使いたいと思っております。
一応コードは、ここまで書きましたが、リストが2列になった登録から行き詰まっております。
Option Explicit
Dim myRow
Private Sub OptionButton1_Click()
TextBox3.Visible = False
myRow = Sheets("sheet1").Range("B65536").End(xlUp).Row
With ListBox1
.ColumnCount = 2 '列数の設定
.RowSource = "Sheet1!A2:B" & myRow 'リスト最終行
.ColumnHeads = True '列見出しを付ける
.ColumnWidths = "60pt,60pt" '列幅設定
.ListIndex = 0 '1行目を選択状態にする
End With
End Sub
Private Sub OptionButton2_Click()
TextBox3.Visible = True
myRow = Sheets("sheet1").Range("E65536").End(xlUp).Row
With ListBox1
.ColumnCount = 3 '列数の設定
.RowSource = "Sheet1!C2:E" & myRow 'リスト最終行
.ColumnHeads = True '列見出しを付ける
.ColumnWidths = "40pt,40pt,40pt" '列幅設定
.ListIndex = 0 '1行目を選択状態にする
End With
End Sub
Private Sub UserForm_Initialize()
OptionButton1.Value = True
TextBox3.Visible = False
myRow = Sheets("sheet1").Range("B65536").End(xlUp).Row
With ListBox1
.ColumnCount = 2 '列数の設定
.RowSource = "Sheet1!A2:B" & myRow 'リスト最終行
.ColumnHeads = True '列見出しを付ける
.ColumnWidths = "60pt,60pt" '列幅設定
.ListIndex = 0 '1行目を選択状態にする
End With
End Sub
宜しくお願い致します。
|
|