[[20171019151156]]　『ユーザーフォーム上のリストボックスについて』（miruku）　ページの最後に飛ぶ

『ユーザーフォーム上のリストボックスについて』（miruku）

お世話をお掛けします
ご教授頂けたら幸いです

下記の様にリストボックスにシート名に配置してますが
リストボックスが長くなります
物理的に短くすると　横スクロールバーが出来てしまいます

横スクロールバーを消せれば　何でもいいですが
シート名も　日本語で5文字程度です

Private Sub UserForm_Initialize()

 Dim y_sh As Worksheet

For Each y_sh In Worksheets
ListBox1.AddItem (y_sh.Name)
Next y_sh

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

レイアウト上で構わないので、ListBox の ColumnWidthsプロパティに、適当な値をセットしてみてください。
（???） 2017/10/19(木) 15:44

＞リストボックスが長くなります
＞物理的に短くすると　横スクロールバーが出来てしまいます
＞シート名も　日本語で5文字程度です
長くとはどれくらいが長いのですか？
数値とか何かとの比較（何文字分とか）で表現してもらえませんか？
文字が切れてもいいということですか？
字を小っちゃくするのはだめとか？

（まっつわん） 2017/10/19(木) 16:18

???様
有難う御座います

変わらなかったです
PT長さと　範囲が違うみたいです

まっつわん様
有難う御座います

別に全部表示されなくてもいいのです

14インチ　ラップトップで１００％表示状態で
標準の　Sheet1と言う名前が１３ｍｍくらいで表示されています

しかし　このリストボックス　　画面上実寸で１００ｍｍぐらいの長さにしても
横のスクロールが出てしまいますので　配置のシート名の取り方が　悪いのかと考えております

（miruku） 2017/10/19(木) 17:10

ColumnWidthsに100ptとか、大きい値をセットしたのではないですか？ 1とか10とか、実際より小さい値を指定すると、長い文字でも横スクロールバーが出なくなり、はみ出た部分は見えなくなりますよ。（デフォルトは-1で、スクロールバーで全部表示しようとします。0だと非表示）

または、ご提示のコードだと1列だけに見えますが、実は数列使っている（ColumnCountが1でない）、とか？
（???） 2017/10/19(木) 17:44

???様

上手にColumnWidthsの値が反映されてなかったみたいです

50と入力した所49.95ptと自動修正されて
スクロールが消えました
有難う御座いました

狐につままれた気分です
（miruku） 2017/10/19(木) 17:56

コメント返信：