Excel VBA質問箱 IV

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

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


19666 / 76732 ←次へ | 前へ→

【62494】Re:コンボボックスについて
発言  kanabun  - 09/7/25(土) 22:00 -

引用なし
パスワード
   ▼あの さん:こんにちは。

>さらに、シート2のリストをシート1に配したコンボボックスに表示して
>入力することは解りますが、リストに無いものはその場でキー入力します。
>その際シート2のリストに追加したいのです。

入力規則リストの代わりに、ComboBox 1つで代用できる
かもしれません。

考え方だけ
入力シートにコントロールツールボックスから ComboBoxをひとつ
シートに貼り付けておき、

ThisWorkbookの Workbook_Open() プロシージャに
 シート2のリスト項目をComboBoxに セットしておく。

入力シートの_SelectionChangeイベントに
 移動先の列番号が A列だったら、セルの右にComboBoxを
 表示させる。

ComboBoxでクリックイベントがあったら、選択セルに選択
アイテムを代入。

すると、シートの_Changeイベントが起きるので、
そこで入力値がリストのものであるかチェックする。
入力値がリストのどれとも一致しない場合は
メッセージを出して、値をシート2のリストに追加する。

86 hits

【62487】コンボボックスについて あの 09/7/24(金) 22:30 質問
【62492】Re:コンボボックスについて その 09/7/25(土) 15:57 発言
【62493】Re:コンボボックスについて あの 09/7/25(土) 21:48 質問
【62494】Re:コンボボックスについて kanabun 09/7/25(土) 22:00 発言
【62496】Re:コンボボックスについて kanabun 09/7/26(日) 9:06 発言
【62503】Re:コンボボックスについて kanabun 09/7/27(月) 7:47 発言
【62521】Re:コンボボックスについて あの 09/7/28(火) 15:12 お礼

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