|
じゃあ、残りの[入力]のコマンドボタンのコードでも。
細かい部分は適当に調整してください。
ComboBox1:北海道〜沖縄までの都道府県が入力されたコンボボックス
ComboBox2:A〜Zまで入力されたコンボボックス
以下がコードです。
If ComboBox1.Value = "" Then MsgBox "都道府県名を選択してください。", vbCritical
If ComboBox2.Value = "" Then MsgBox "ランクを選択してください。", vbCritical
If ComboBox1.Value = "" Or ComboBox2.Value = "" Then Exit Sub
Range("A65536").End(xlUp).Select
If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select
ActiveCell.Value = ComboBox1.Value 'A列最下行に都道府県名をセット
ActiveCell.Offset(0, 1).Value = ComboBox2.Value 'B列にA〜Zの選択した値をセット
ComboBox1.RemoveItem ComboBox1.ListIndex '選択した都道府県名をコンボボックスから削除
ComboBox1.Value = ""
ComboBox2.Value = ""
|
|