Excel2000のVBAで、ユーザーフォーム上にComboBoxを作りました。
ComboBox5.RowSource = "Sheet2!q18:q21"
ComboBox5.Value = WS2.Range("r18").Value
こんな感じで項目を指定して、実行するとComboBoxは一応表示されるのですが、ComboBox内の文字列の下側が1ドット分くらい欠けた状態になります。[▼]を押してドロップダウンリストを表示させると、リスト内の各文字列も下側が1ドット分くらい欠けた状態になっています。
どうも項目の文字数が長くなると、この症状が現れるらしいことは分かったのですが、文字数を削りたくないので、なんとか現在の文字数で正常に表示させたいと思っています。
この症状への対処法をご存知の方がいらっしゃいましたら、どうかアドバイスをくださいますようお願いいたします。
No.1ベストアンサー
- 回答日時:
こんにちは。
私は、ユーザーフォーム上では、そのような状態になった覚えがありませんが、確か、ワークシート上ではあったような気がします。(ユーザーフォームでならないのは、あまりせいぜい、MS 明朝 程度までで、システムフォントと、このTrue Type の二種類だからです)
Combobox のフォントは、標準True Type のMSゴシック(MS Pゴシック)などをお使いになっていますか?一旦、明示的に、デフォルトの設定と合わせてみることをお勧めします。確か、Excelのデフォルトは、MS Pゴシックの9 pt だったと思います。
>項目の文字数が長くなると、この症状が現れるらしい
でしたら、ComboBox の中のListWidth を長めに取るとか。
ComboBox5.RowSource = "Sheet2!q18:q21"
ふつうは、このようにはせずに、ComboBox のプロパティの中で設定しますが、
それで、問題が起こるなら、
UserForm1.Initialize 上で、
For Each c In Worksheets("Sheet2").Range("Q18:Q21")
Me.ComboBox5.AddItem c.Value
Next
としてみたらいかがでしょうか?
それでもダメなら、UserForm を再度、作り直してみるということも考えたほうがよいと思います。
それと、他のアプリケーション・ソフト側の表示でも、フォントのトラブルは発生していませんか?もし、そうなら、フォントキャッシュが壊れている可能性もあります。
回答いただきありがとうございます。
フォントはデフォルトのMSゴシックのままです。
MSUIゴシックも試してみましたが同じでした。
その後いろいろ試してみたところ、"×"が含まれるときに、
例の現象が発生することがわかりました。
仕方ないので、"x"で代用することにしました。
丁寧に解説していただき、ありがとうございました。
とても参考になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- JavaScript Javascriptが機能せず原因が分からないので教えて頂きたいです 3 2023/06/04 14:50
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) countif関数について質問 4 2022/06/14 12:11
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
-
4
【VBA】Worksheet_changeイベントで特定のキーが押されたときだけ無効にしたい
Visual Basic(VBA)
-
5
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
6
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
7
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
8
ユーザーフォーム スクロールバー 非表示にしたい
Excel(エクセル)
-
9
Excel vba ListBoxについて
Excel(エクセル)
-
10
Excel VBA コンボボックスについて
Excel(エクセル)
-
11
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
12
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
13
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
14
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
15
エクセルVBAのフォームを最前面にする方法を教えてください。
Visual Basic(VBA)
-
16
特定のシートの削除を禁止したい(ブックの保護でなく)
Excel(エクセル)
-
17
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
18
エクセルVBA ユーザーフォーム 複数のコンボボックス 同一リスト
Excel(エクセル)
-
19
EXCELのリストボックスを選択した行が何行目か
その他(プログラミング・Web制作)
-
20
VBAコンボボックスの内容が反映されない
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
旦那さんの精子がしょっぱいの...
-
白血病でしょうか?
-
汚い写真ですいません。 少し前...
-
耳の後にしこりがあって、この...
-
イった(オナニー)後、必ず膀...
-
先ほど唇が腫れているのに気が...
-
教えて下さい!耳の後ろにしこり
-
夫の性癖に困っています。31歳...
-
足の裏が痛痒いです
-
同じ症状で別の病院にかかったら?
-
精子を飲んでみたいです 中2の...
-
高校生男です。ズボンのもっこ...
-
彼氏と性行為をする時、指一本...
-
ばね指の治療法はありますか?
-
口の中に突然大きな血豆ができ...
-
障害者って本当に職場に来たら...
-
目の写真すみません、、今日目...
-
左脇腹、みぞおちの痛み
-
オナニーでお腹の調子がとても...
-
膀胱炎とオナニーは関係しますか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
旦那さんの精子がしょっぱいの...
-
彼氏と性行為をする時、指一本...
-
汚い写真ですいません。 少し前...
-
精子を飲んでみたいです 中2の...
-
イった(オナニー)後、必ず膀...
-
白血病でしょうか?
-
高校生男です。ズボンのもっこ...
-
同じ症状で別の病院にかかったら?
-
夫の性癖に困っています。31歳...
-
目の写真すみません、、今日目...
-
オナニーでお腹の調子がとても...
-
教えて下さい!耳の後ろにしこり
-
耳の後ろのしこり
-
先ほど唇が腫れているのに気が...
-
耳の後にしこりがあって、この...
-
走ると耳が痛くなるのは?
-
左脇腹、みぞおちの痛み
-
包丁で刺された時ってどんな痛...
-
朝起きたら白目のとこに赤い点...
-
膀胱炎とオナニーは関係しますか?
おすすめ情報