教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA フォーム&コントロール】コンボボックスプロパティウィンドウ内にある[DragBehavior]の使い方を知りたいです。教えて!

       f:id:m_kbou:20200702184308p:plain

フォームにコンボボックスを追加した場合、VBE画面左下のコンボボックスプロパティウィンドウ内に表示される[DragBehavior]の使い方について説明します。

 

【目次】

 

コンボボックスプロパティ内にあるDragBehaviorとは

以下のコンボボックスプロパティウィンドウ内の赤枠箇所が[DragBehavior]となります。DragBehaviorはコンボボックスのドラッグアンドドロップを許可するか否かを設定する事ができます。

f:id:m_kbou:20200702184326p:plain

DragBehaviorに定義する設定値は以下一覧の通りとなります。

f:id:m_kbou:20200629162235p:plain

 

DragBehaviorを設定する方法

設定方法について説明していきます。

(1)コンボボックスプロパティウィンドウ内のDragBehaviorをクリックすると▼ボタンが表示されます。

f:id:m_kbou:20200702184345p:plain

(2)▼ボタンをクリックするとプルダウンリストが表示されます(プルダウンリストには上記の設定値一覧が表示されます)

f:id:m_kbou:20200702184400p:plain

ドラッグアンドドロップを許可しない(fmDragBehaviorDisabled

(3)今回はコンボボックスのドラッグアンドドロップを許可しないため0-fmDragBehaviorDisabledを選択し、一度フォーム上でクリックをした後、上部の<実行>ボタンをクリックします。

f:id:m_kbou:20200702184424p:plain

(4)フォーム画面が表示されます。

f:id:m_kbou:20200702184445p:plain

(5)上部のコンボボックスに「aaaaa」を入力後、入力文字を選択して下部のコンボボックスにドラッグアンドドロップします。

f:id:m_kbou:20200702184503p:plain

(6)入力した文字がドラッグアンドドロップできない事が確認できます。

f:id:m_kbou:20200702184514p:plain

ドラッグアンドドロップを許可する(fmDragBehaviorEnabled

(7)今回はコンボボックスのドラッグアンドドロップを許可するため「1-fmDragBehaviorEnabledを選択し、一度フォーム上でクリックをした後、上部の<実行>ボタンをクリックします。

f:id:m_kbou:20200702184530p:plain

(8)フォーム画面が表示されます。

f:id:m_kbou:20200702184445p:plain

(9)上部のコンボボックスに「aaaaa」を入力後、入力文字を選択して下部のコンボボックスにドラッグアンドドロップします。

f:id:m_kbou:20200702184503p:plain

(10)入力した文字がドラッグアンドドロップできる事が確認できます。

f:id:m_kbou:20200702184600p:plain

DragBehaviorを設定する方法(ドラッグアンドドロップを許可する/許可しない)の説明は以上です。

 

おわりに

今回はDragBehaviorの設定方法について説明しました。状況に合わせて使用してみて下さい。