コンボボックスのリスト表示が10文字くらいで文字欠けします。対応方法をご教示ください。

Question

コンボボックスのリスト表示が10文字くらいで文字欠けします。対応方法をご教示ください。

フォントはデフォルトのまま、ListWidthを調整しても変化はありません。

Answer 1

こんにちは。

ループの中で列数をどんどん増やしているのは何故でしょうか？("frmSet.comboKojiDetail.ColumnCount = i"の部分)

レコードを読み込む度に列数が増加するのですから、文字欠け(実際には列数が多すぎて表示しきれていない)も起こるだろうと思います。

Excelの動作としては自然な動作ですね。

ComboBoxで複数列を使用したいのでしたら、配列にデータを読み込んで、その配列をComboBoxにセットしてはいかがでしょうか？

1列だけで良いのであればColumnCountプロパティも1で良いと思います。

「コンボボックスのリストを複数列表示する」

http://www.moug.net/tech/exvba/0090021.html

Answer 2

>ＤＢからの読値をセットしますので

それは承知しております。

ですから、一旦ワークシートに読み始めからEOFまでのデータを編集の上記録し、それをRowSourceに指定すると言う意味です。

もちろん、その場合データをTempSheet　のA1～An等に書き込んだとして

With WorkSheets("TempSheet")

  wRowSource=.Name & "!A1:A" & wRowCount

End With

.ComboBox1.RowSource = wRowSource

などとやる必要があり、作業シートもそのまま固定で置いて置くのがうっとうしければ、新シートを追加し、使い終わったら削除するなど馬鹿馬鹿しい手間が増えます。

Answer 3

SUPER9999 さん、こんにちは。

返信ありがとうございます。

「文字欠け」でしたね。失礼しました。。

Additem などご利用ということから、フォームのコンボ ボックスでの現象でしょうか。

私も試してみたのですが、項目を選択する前でも特に文字が欠けることなく表示されました。

上図のコンボ ボックスは、VBA のフォームから作成したコンボ ボックスに、UserForm_Initialize() のプロシージャ内で Additem を使ってセルの内容を読み込んで作ったものです。

(このとき作られたコンボボックスの Listwidth はデフォルトで 0pt となっていました)

松坂も書いていますが、新しく作ったファイルでも同様の状態になるのでしょうか。

新しく作ったファイルでも同様の状態になるのであれば、何か環境に原因がある可能性もあります。

その場合は Office の修復などを試してみてはどうでしょうか。

他に同じような現象にあった方やこちらの現象について何か知っている方がいましたら、投稿をお願いします。

Answer 4

「文字化け」ではなく「文字欠け」です。

マクロのAddItemで項目を設定し、リスト表示後に特定の項目を選択した場合は、全文字表示されますが、リスト表示の段階で文字が欠けます。

Web検索すると、「ListWidth」の調整で解決する等の情報がありますが、同設定では解決しません。

Answer 5

SUPER9999 さん、こんにちは。

Answers への投稿、ありがとうございます。

文字化けする状況についてもう少し詳しい状況がわかると、皆さんからのアドバイスも集まりやすいのかなと思いますよ。

・どんなファイルか、大きさ、マクロは入っているのか

 (xslx の形式で作成、会計の集計に利用、マクロなし など)

・コンボボックスに表示する文字列はどんなものか

・どのように文字化けしているか

・コンボボックスを作り直して改善するか

また、以下の項目について試した結果を投稿してはどうでしょうか。

・新規ファイルに、リストボックスを作成して同じ文字列を設定してみる。

・Bookの修復を試してみる。

　**破損したブックを手動で修復する** 

・ Excel をセーフ モードで起動してリストボックスを作成した場合はどうか

( Ctrl キーを押しながら Excel 本体を起動するとセーフ モードになります)

追加の投稿をお待ちしていますね。