Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65414 / 76732

←次へ　｜　前へ→


	【15893】Re:コンボボックスで指定したデータを指定セルに入力する方法

[名前なし] - 04/7/11(日) 1:52 -


	引用なし

	パスワード

じゃあ、残りの[入力]のコマンドボタンのコードでも。
細かい部分は適当に調整してください。

ComboBox1:北海道～沖縄までの都道府県が入力されたコンボボックス
ComboBox2:Ａ～Ｚまで入力されたコンボボックス

以下がコードです。
　
　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 = ""

1 hits

▼

【15807】コンボボックスで指定したデータを指定セルに入力する方法 ヒロ 04/7/6(火) 23:43