Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11668 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14576】コンボボックスの文字の反転 佐藤１２３ 04/6/2(水) 11:20 質問[未読]
【14631】Re:コンボボックスの文字の反転 Jaka 04/6/3(木) 12:39 回答[未読]
【14804】Re:コンボボックスの文字の反転 佐藤１２３ 04/6/8(火) 10:18 発言[未読]
【14814】Re:コンボボックスの文字の反転 Jaka 04/6/8(火) 15:25 発言[未読]
【14815】Re:コンボボックスの文字の反転 Asaki 04/6/8(火) 15:27 発言[未読]
【14883】Re:コンボボックスの文字の反転 Jaka 04/6/9(水) 9:07 回答[未読]
【14890】Re:コンボボックスの文字の反転 佐藤１２３ 04/6/9(水) 13:39 お礼[未読]
【14576】コンボボックスの文字の反転
質問  佐藤１２３  - 04/6/2(水) 11:20 -
引用なし
パスワード
   いつもお世話になってます。

やっとコンボボックスの選択された文字を
編集不可にすることに成功しました。(^^;

　ﾌﾟﾛﾊﾟﾃｨ Style:2-fmStyleDropDownList

これによって新たな疑問が発生してしまいました。
リストより選択されたものの文字が反転してしまいます。

これは仕様なのでしょうか？
選択されても、その文字が反転しない設定がどこかにあるのでしょうか？

よろしくお願いします。
【14631】Re:コンボボックスの文字の反転
回答  Jaka  - 04/6/3(木) 12:39 -
引用なし
パスワード
   こんにちは。

>　ﾌﾟﾛﾊﾟﾃｨ Style:2-fmStyleDropDownList
>これによって新たな疑問が発生してしまいました。
>リストより選択されたものの文字が反転してしまいます。
Style:1のままでも、97だと反転しますけど。
【14804】Re:コンボボックスの文字の反転
発言  佐藤１２３  - 04/6/8(火) 10:18 -
引用なし
パスワード
   ▼Jaka さん：
おはようございます。

>>　ﾌﾟﾛﾊﾟﾃｨ Style:2-fmStyleDropDownList
>>これによって新たな疑問が発生してしまいました。
>>リストより選択されたものの文字が反転してしまいます。
>Style:1のままでも、97だと反転しますけど。
　ﾌﾟﾛﾊﾟﾃｨ Style:0-fmStyleDropDownCombo
　　　　　Style:2-fmStyleDropDownList
　Style:0だと中身を編集できるので、反転しているのはわかるのですが、
　（Excel2000、コントロールツールボックスのコンボボックスには
　　Style:1の選択はありませんでした。）
　Style:2では編集できないのに反転しているので何故かなぁ・・と。
　そして、その反転をやめられるのかなぁ・・と。

どうしても反転させたくない訳ではないのですが・・。
「そういう仕様」なのでしょうね・・。
【14814】Re:コンボボックスの文字の反転
発言  Jaka  - 04/6/8(火) 15:25 -
引用なし
パスワード
   すみません。
>Style:1の選択はありませんでした。
0と間違えていました。

反転をとくのは出来ないみたいですね。
【14815】Re:コンボボックスの文字の反転
発言  Asaki  - 04/6/8(火) 15:27 -
引用なし
パスワード
   こんにちは。

反転しなかった場合、選択した後に、再度リストをドロップダウンしたときに、
どれが選択されていたか解らないから。。。でしょうか。

設定を探してみたんですが、なさそうです。
>「そういう仕様」なのでしょうね・・。
たぶん、そうなんでしょうね。
【14883】Re:コンボボックスの文字の反転
回答  Jaka  - 04/6/9(水) 9:07 -
引用なし
パスワード
   白黒反転だけって事で、一応２つの案を考えてみました。

１、
Private Sub ComboBox1_Change()
　　Application.EnableEvents = False
　　ComboBox1.Style = 2
　　'SendKeys "{Home}"　'Rightかどっちか好きな方。
　　SendKeys "{Right}"
　　ComboBox1.Style = 0
　　Application.EnableEvents = True
End Sub

Private Sub CommandButton1_Click()
　　If ComboBox1.ListIndex >= 0 Then
　　　 MsgBox ComboBox1.List(ComboBox1.ListIndex)
　　End If
End Sub

２、
別のコントロールにフォーカスを移す。
Private Sub ComboBox2_Change()
　　CommandButton2.SetFocus
End Sub
【14890】Re:コンボボックスの文字の反転
お礼  佐藤１２３  - 04/6/9(水) 13:39 -
引用なし
パスワード
   Jakaさん、Asakさん
ありがとうございました。

「そういうものだ」と言う事で解決とさせていただきます。
ドロップダウンした時の反転は納得できますが、
選択後、表示は一つになるのだから、
わざわざ反転させなくてもいいのになぁ・・。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11668 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free