Ｐａｇｅ 747 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ColumnWidthsの複数指定時の区切り文字 西のぽち 03/2/15(土) 14:31 ┗Re:ColumnWidthsの複数指定時の区切り文字 りん 03/2/15(土) 16:06 ┗Re:ColumnWidthsの複数指定時の区切り文字 西のぽち 03/2/16(日) 1:24 ─────────────────────────────────────── ■題名 ： ColumnWidthsの複数指定時の区切り文字 ■名前 ： 西のぽち ■日付 ： 03/2/15(土) 14:31 -------------------------------------------------------------------------
| 初めて投稿します。いつも見ていて参考にさせて もらってます。 さて、リストボックスに複数列を表示させるときに リストボックス名.ColumnWidths = 30;60;20 というように、列幅をそれぞれ変えられるようですが、 列幅指定の区切り文字「；」がどうしても出せません。 ヘルプを読むと、「；」は、コントロールパネルの地域 を変更することで利用できるようなことを書いてあります。 普通にセミコロンを入力しても受け付けてはくれません。 ひょっとすると、これはセミコロンではないのでしょうか？ また、これ「；」を使わない幅の指定方法は他にあるのでしょうか？ よろしくお願いします。 |
| 西のぽち さん、こんにちわ。 >普通にセミコロンを入力しても受け付けてはくれません。 >ひょっとすると、これはセミコロンではないのでしょうか？ 普通のセミコロンです。 リストボックス名.ColumnWidths = "30;60;20" ちょっとした遊び。 シートにスピンボタンとリストボックスを配置 リストボックスの 幅を 302(301.5) に、ListFillRangeをK1:O1に、 ColumnHeadsをTrueにします。 K1からO1に、K,L,M,N,Oと入れます（別に好きな文字でいいです）。 スピンボタンのMaxプロパティを5、Minプロパティを1にします。 準備が出来たら↓スピンボタンのイベントをを書きます。 Private Sub SpinButton1_Change() With ListBox1 Select Case SpinButton1.Value Case 1: .ColumnCount = 1: .ColumnWidths = "300" Case 2: .ColumnCount = 2: .ColumnWidths = "150;150" Case 3: .ColumnCount = 3: .ColumnWidths = "100;100;100" Case 4: .ColumnCount = 4: .ColumnWidths = "75;75;75;75" Case 5: .ColumnCount = 5: .ColumnWidths = "60;60;60;60;60" End Select End With End Sub スピンボタンを上下するとリストボックスの列数が変わります。 |
| りん さん こんばんわ。 早速の回答ありがとうございました。 顔から火が出るほど恥ずかしい。 ；ではなく”の問題のようでした。 今は自宅なので実験できませんが、 これで大丈夫でしょう。 サンプルのほうも、使えます。 本当にありがとうございました。 西のぽち >西のぽち さん、こんにちわ。 > > >>普通にセミコロンを入力しても受け付けてはくれません。 >>ひょっとすると、これはセミコロンではないのでしょうか？ > 普通のセミコロンです。 > > リストボックス名.ColumnWidths = "30;60;20" > >ちょっとした遊び。 > >シートにスピンボタンとリストボックスを配置 >リストボックスの 幅を 302(301.5) に、ListFillRangeをK1:O1に、 >ColumnHeadsをTrueにします。 >K1からO1に、K,L,M,N,Oと入れます（別に好きな文字でいいです）。 > >スピンボタンのMaxプロパティを5、Minプロパティを1にします。 > >準備が出来たら↓スピンボタンのイベントをを書きます。 >Private Sub SpinButton1_Change() > With ListBox1 > Select Case SpinButton1.Value > Case 1: .ColumnCount = 1: .ColumnWidths = "300" > Case 2: .ColumnCount = 2: .ColumnWidths = "150;150" > Case 3: .ColumnCount = 3: .ColumnWidths = "100;100;100" > Case 4: .ColumnCount = 4: .ColumnWidths = "75;75;75;75" > Case 5: .ColumnCount = 5: .ColumnWidths = "60;60;60;60;60" > End Select > End With >End Sub > >スピンボタンを上下するとリストボックスの列数が変わります。 |