過去ログ

                                Page     646
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼プルダウンの移動バーの大きさについて  チャオ 03/1/28(火) 14:44
   ┗Re:プルダウンの移動バーの大きさについて  JuJu 03/1/28(火) 16:54
      ┗Re:プルダウンの移動バーの大きさについて  チャオ 03/1/28(火) 17:55
         ┗Re:プルダウンの移動バーの大きさについて  ポンタ 03/1/29(水) 8:44
            ┗Re:プルダウンの移動バーの大きさについて  チャオ 03/1/29(水) 16:08
               ┗Re:プルダウンの移動バーの大きさについて  ポンタ 03/1/29(水) 17:17
                  ┗Re:プルダウンの移動バーの大きさについて  チャオ 03/1/29(水) 19:55
                     ┗Re:プルダウンの移動バーの大きさについて  ポンタ 03/1/29(水) 20:20
                        ┗Re:プルダウンの移動バーの大きさについて  チャオ 03/1/30(木) 14:58

 ───────────────────────────────────────
 ■題名 : プルダウンの移動バーの大きさについて
 ■名前 : チャオ
 ■日付 : 03/1/28(火) 14:44
 -------------------------------------------------------------------------
   フォームのコモンボックスなどで、プルダウンをしたときに
件数が多いと、スクロールバーのスクロールボックスが
すごく細くなってしまい、ドラッグするのがむつかしくなります。

スクロールボックスを、件数に関係なく固定の大きさにはできないでしょうか。

よろしくお願いしますm(_ _)m
 ───────────────────────────────────────  ■題名 : Re:プルダウンの移動バーの大きさについて  ■名前 : JuJu <juju-bbs@su-u.com>  ■日付 : 03/1/28(火) 16:54  -------------------------------------------------------------------------
   チャオさん、こんにちはぁ

>フォームのコモンボックスなどで、プルダウンをしたときに
>件数が多いと、スクロールバーのスクロールボックスが
>すごく細くなってしまい、ドラッグするのがむつかしくなります。
>スクロールボックスを、件数に関係なく固定の大きさにはできないでしょうか。

コンボボックス(ドロップダウンリスト)のことですか?
あの幅は全体件数に対して表示(又はスクロール)件数の比で決まってます。
(Windowsの標準仕様ですので、あまり弄ると親和性の悪い画面になる可能性あり)

一般的にコンボボックスはある程度少ない要素を選択するのを前提に考えられてます。
リストボックスや、コンボボックスを2つ以上に分けて絞り込む等、そういう対応にはできませんか?

ではではぁ
 ───────────────────────────────────────  ■題名 : Re:プルダウンの移動バーの大きさについて  ■名前 : チャオ  ■日付 : 03/1/28(火) 17:55  -------------------------------------------------------------------------
   お返事ありがとうございます。

やはり無理でしょうか。
番号順にならんでいる番号を選択するので、その幅さえ
ドラッグしやすい大きさなら数が多くても選択はできるのですが。
何せ件数が、1000件単位とかになるので><

仕様上、コンボボックスを分けるのは、無理のようです。
操作性には少し目をつむるかもです。
 ───────────────────────────────────────  ■題名 : Re:プルダウンの移動バーの大きさについて  ■名前 : ポンタ  ■日付 : 03/1/29(水) 8:44  -------------------------------------------------------------------------
   >番号順にならんでいる番号を選択するので、
コンボボックスの項目には数字しかないということですか?

私ならテキストボックスとスピンボタンを使います。

意味が違ったらスミマセン。
 ───────────────────────────────────────  ■題名 : Re:プルダウンの移動バーの大きさについて  ■名前 : チャオ  ■日付 : 03/1/29(水) 16:08  -------------------------------------------------------------------------
   説明が中途半端ですみません。

0001 名前AAA
0002 名前BBB
0015 名前CCC
0018 名前DDD
.....
1000 名前XXX

というように、名前に番号が付いているということです。
しかも、番号は飛び飛びなので、何番が何行目という指定もできません。

スクロールボックスをひっぱらなくても、スクロールバーを押しつづければ
スクロールするので問題ないといえば、ないのですが。
できるのであれば、見栄えと操作性のために
スクロールボックスをドラックしやすい大きさに固定したいのですが
できませんでしょうか。
 ───────────────────────────────────────  ■題名 : Re:プルダウンの移動バーの大きさについて  ■名前 : ポンタ  ■日付 : 03/1/29(水) 17:17  -------------------------------------------------------------------------
   すっかり忘れたんですけど、コンボボックスには、
ListRows
っていうプロパティがあるので、
それを100とかにしてみたらどうでしょう?
 ───────────────────────────────────────  ■題名 : Re:プルダウンの移動バーの大きさについて  ■名前 : チャオ  ■日付 : 03/1/29(水) 19:55  -------------------------------------------------------------------------
   たしかに、ブルダウンの表示行数を増やすと
結果的に、表示できている割合が増えるので
スクロールボックスの大きさも大きくなりますが
画面の見た目上などで、そう多い件数を表示することも
できませんし、件数が2000、3000と増えていくと
結局小さくなってしまいます。

全体の件数と表示可能な件数を調整してみようと思います。
ありがとうございました。
 ───────────────────────────────────────  ■題名 : Re:プルダウンの移動バーの大きさについて  ■名前 : ポンタ  ■日付 : 03/1/29(水) 20:20  -------------------------------------------------------------------------
   実はもう1つ考えたのがあるんです。

#3236で書いたテキストボックス+スピンボタンです。

ユーザーフォームにTextBox1、SpinButton1、SpinButton2、SpinButton3を作ります。

SpinButton1 をクリックすると項目1個前、または1個後ろの項目が表示されます。
SpinButton2 をクリックすると項目10個前、または10個後ろの項目が表示されます。
SpinButton3 をクリックすると項目100個前、または100個後ろの項目が表示されます。

よかったら、お試しください。

Private Sub SpinButton1_Change()
  TextBox1.Value = Worksheets("Sheet1").Cells(SpinButton1.Value, 1)
  With Application
    .EnableEvents = False
    SpinButton2.Value = Int(SpinButton1.Value / 10)
    SpinButton3.Value = Int(SpinButton1.Value / 100)
    .EnableEvents = True
  End With
  End Sub

Private Sub SpinButton2_Change()
  On Error Resume Next
  SpinButton1.Value = SpinButton2.Value * 10 + SpinButton1.Value Mod 10
End Sub

Private Sub SpinButton3_Change()
  On Error Resume Next
  SpinButton1.Value = SpinButton3.Value * 100 + SpinButton1.Value Mod 100
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ListRows = 100
  SpinButton1.Max = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
  SpinButton2.Max = Int(Worksheets("Sheet1").Range("A65536").End(xlUp).Row / 10)
  SpinButton3.Max = Int(Worksheets("Sheet1").Range("A65536").End(xlUp).Row / 100)
End Sub
 ───────────────────────────────────────  ■題名 : Re:プルダウンの移動バーの大きさについて  ■名前 : チャオ  ■日付 : 03/1/30(木) 14:58  -------------------------------------------------------------------------
   どうにか、ListRowsで調整することで、なんとかなりました。

ありがとうございました。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 646