Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1497 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74015】TextBoにDropButtonをつける 亜矢 13/4/5(金) 10:28 質問[未読]
【74016】Re:TextBoにDropButtonをつける UO3 13/4/5(金) 11:06 発言[未読]
【74017】Re:TextBoにDropButtonをつける 亜矢 13/4/5(金) 14:42 質問[未読]
【74018】Re:TextBoにDropButtonをつける UO3 13/4/5(金) 15:13 発言[未読]
【74020】Re:TextBoにDropButtonをつける 亜矢 13/4/5(金) 15:32 質問[未読]
【74021】Re:TextBoにDropButtonをつける UO3 13/4/5(金) 17:22 発言[未読]
【74022】Re:TextBoにDropButtonをつける UO3 13/4/5(金) 17:31 発言[未読]
【74023】Re:TextBoにDropButtonをつける UO3 13/4/5(金) 17:37 発言[未読]
【74024】Re:TextBoにDropButtonをつける 亜矢 13/4/5(金) 17:44 お礼[未読]
【74025】Re:TextBoにDropButtonをつける UO3 13/4/5(金) 17:56 お礼[未読]
【74015】TextBoにDropButtonをつける
質問  亜矢  - 13/4/5(金) 10:28 -
引用なし
パスワード
   よろしくお願いします。
エクセル２００７を使用しています。
　TextBoxにDropButtonClickというものがありました。
このTextboxにDropButtonを表示させる方法を教えて頂きたいと思います。
【74016】Re:TextBoにDropButtonをつける
発言  UO3  - 13/4/5(金) 11:06 -
引用なし
パスワード
   ▼亜矢 さん：

こんにちは

確かにありますね。
オブジェクトブラウザでみても、非表示メンバですので、そのままではでてこないですが。
コンボボックスのDropButtonStyleプロパティと同じもののようです。
指定できる値は、コンボボックスと同じく fmDropButtonStyleArrow といった４種類のようですね。

ただし、テキストボックス.DropButtonStyle に、これらの何をいれても
全く、無視されますね。
▼などをだしても、使い道がありませんからね。テキストボックスでは。
【74017】Re:TextBoにDropButtonをつける
質問  亜矢  - 13/4/5(金) 14:42 -
引用なし
パスワード
   ▼UO3 さん：
>▼亜矢 さん：
>
>こんにちは
>
>確かにありますね。
>オブジェクトブラウザでみても、非表示メンバですので、そのままではでてこないですが。
>コンボボックスのDropButtonStyleプロパティと同じもののようです。
>指定できる値は、コンボボックスと同じく fmDropButtonStyleArrow といった４種類のようですね。
>
>ただし、テキストボックス.DropButtonStyle に、これらの何をいれても
>全く、無視されますね。
>▼などをだしても、使い道がありませんからね。テキストボックスでは。
ありがとうございます。現在はTextboxのダブルクリックイベントで処理して
いますが、▼がでればダブルクリックよりはいいかなと思いました。
　年配者にダブルクリックをしてと言っても難しい人がいるものですからです。
　使い道は色々な考え方であると思いますが、念のためどうしたら表示できるかを
　教えて頂きたいと思います。
【74018】Re:TextBoにDropButtonをつける
発言  UO3  - 13/4/5(金) 15:13 -
引用なし
パスワード
   ▼亜矢 さん：

>念のためどうしたら表示できるかを教えて頂きたいと思います。

いやぁ、目的はわかりますけど

>>ただし、テキストボックス.DropButtonStyle に、これらの何をいれても
>>全く、無視されますね。

このようにコメントさせていただいたのですが？
要は、機能しないということらしいですよ。

ところで、TextBoxのダブルクリックですか？
このTextBoxというのはシート上の ActiveX ですか？
それとも、ユーザーフォームのTextBoxですか？

いずれにしても、そこでダブルクリックして、何をするのでしょうか？
【74020】Re:TextBoにDropButtonをつける
質問  亜矢  - 13/4/5(金) 15:32 -
引用なし
パスワード
   ▼UO3 さん：
>▼亜矢 さん：
>
>>念のためどうしたら表示できるかを教えて頂きたいと思います。
>
>いやぁ、目的はわかりますけど
>
>>>ただし、テキストボックス.DropButtonStyle に、これらの何をいれても
>>>全く、無視されますね。
>
>このようにコメントさせていただいたのですが？
>要は、機能しないということらしいですよ。
>
>ところで、TextBoxのダブルクリックですか？
>このTextBoxというのはシート上の ActiveX ですか？
>それとも、ユーザーフォームのTextBoxですか？
>
>いずれにしても、そこでダブルクリックして、何をするのでしょうか？
 Textboxが２０ヶくらいあります。基本的には今日の日付が自動で入力
　されますが、日時を変更したい場合にダブルクリックして自作のカレンダー
　を表示して、カレンダーで他の日付をクリックするとその日付が入力
　させています。
　以上です。
【74021】Re:TextBoにDropButtonをつける
発言  UO3  - 13/4/5(金) 17:22 -
引用なし
パスワード
   ▼亜矢 さん：

> Textboxが２０ヶくらいあります。基本的には今日の日付が自動で入力
>　されますが、日時を変更したい場合にダブルクリックして自作のカレンダー
>　を表示して、カレンダーで他の日付をクリックするとその日付が入力
>　させています。

なるほどです。

でも、ないものねだりをしてもしょうがないので、たとえば
２０個ほどあるテキストボックスの右あたりに小さなコマンドボタンを配置して
そのクリックイベントでカレンダーを呼び出してはいかがでしょう。

あるいは、それこそ、テキストボックスをやめて、すべてを ROwSOurceのない
コンボボックスにされてはいかがでしょう。
テキストボックスと同じように日付をセットできますし、▼のクリックは
Private Sub ComboBox1_DropButtonClick()　で捕捉できます。
からっぽの１行だけのリストが開くので目障りかもしれませんが、他のコントロールに
フォーカスが移動すれば当然リストは閉じられますし。
【74022】Re:TextBoにDropButtonをつける
発言  UO3  - 13/4/5(金) 17:31 -
引用なし
パスワード
   ▼亜矢 さん：

あるいは、テキストボックスのままで、ダブルクリックが苦手でも
クリックはできるとすればマウスのクリックではいかがですか。

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

これで捕捉できます。
【74023】Re:TextBoにDropButtonをつける
発言  UO3  - 13/4/5(金) 17:37 -
引用なし
パスワード
   ▼亜矢 さん：

連投失礼。

あるいは、テキストボックス上でファンクションキーを押すとか。

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

キー入力がこれで捕捉できます。
で、KeyCode が vbKeyF1 なら F1キーが押されたという判断ができます。

いずれにしても、あるもの、使えるもののなかで、やりくりするしかないですねぇ。
【74024】Re:TextBoにDropButtonをつける
お礼  亜矢  - 13/4/5(金) 17:44 -
引用なし
パスワード
   ▼UO3 さん：
>▼亜矢 さん：
>
>連投失礼。
>
>あるいは、テキストボックス上でファンクションキーを押すとか。
>
>Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
>
>キー入力がこれで捕捉できます。
>で、KeyCode が vbKeyF1 なら F1キーが押されたという判断ができます。
>
>いずれにしても、あるもの、使えるもののなかで、やりくりするしかないですねぇ。
 たまたま、他のところで情報を入手して、実行したら、
　Textbox_DropbuttonClickができる様になりました。
　なおUserformには下記の記入しました。
　Private Sub UserForm_Initialize()
Dim i
　For i = 52 To 71
　　UserForm1.Controls("Textbox" & i).ShowDropButtonWhen = fmShowDropButtonWhenAlways
　Next
End Sub
いろいろありがとうございました。
【74025】Re:TextBoにDropButtonをつける
お礼  UO3  - 13/4/5(金) 17:56 -
引用なし
パスワード
   ▼亜矢 さん：

わぁ、ありがとうございます。
非表示メンバの中に、このプロパティもありました！！
勉強になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1497 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free