エクセルの学校：全文検索：Hyper Estraier：リスト

Results of 1 - 1 of about 8929 for リスト (0.006 sec.)

[[20130212233426]]: #score: 2746; @digest: 2e6f4b3525019f54ef96aad54ca348d6; @id: 61489; @mdate: 2013-02-12T23:10:16Z; @size: 2733; @type: text/plain; #keywords: retunum (59046), lbaryb (29072), lbary (20030), lbretuirekae (15241), integralheight (11426), listcount (10208), listbox1 (10130), fmliststyleplain (6425), 右逆 (4655), トボ (4215), fmliststyleoption (3997), liststyle (3942), スソ (3932), カシ (3797), 入替 (2767), ダ) (2525), ボッ (2083), リス (1964), 下端 (1874), 高さ (1763), クス (1672), の高 (1613), ン一 (1336), ーダ (1322), 左右 (1306), スト (1277), ドボ (1250), コマ (916), me (875), スの (872), 処方 (870), integer (864); 『リストボックスの高さを固定するには?』（カシスソーダ）
こんばんは、よろしくお願いいたします。ユーザーフォームのリストボックスについての質問です。 リストボックスのリストの行を削除したり行を追加したりしたら リストボックスの高さが変わってしまうという現象がおきています。 ↓はリストボックスに格納したリストの各行の各列のデータを左右逆に入替えるものです。今回の質問はこのコードについてではなくリストボックスの高さが変わってしまうことについての対処方法です。ユーザーフォームにコマンドボタン一つとリストボックスを一つ配置しておきコマンドボタンをクリックしたらリストボックスのデータが左右入れ替わります。このコマンドボタンをクリックしてリストボックスのデータが入れ替わったときにリスト ボックスの高さが変わってしまいます。 リストボックスの幅によっては高さが増えていくときもあれば逆に減っていくときもあります。ユーザーフォームの下端より下へリストボックスの高さが増えていくときもあります。プロパティのListStyleをfmListStyleOptionにしたら高さが変わらなくなります。通常はfmListStylePlainにして使っています。 リストボックスの高さを変えないようにするにはどうすればいいでしょうか? 何か設定があるのでしょうか? ご存知の方、ご教示お願いいたします。 Private Sub CommandButton1_Click() Dim retunum As Integer '列数 retunum = 5 Call lbretuirekae(retunum) End Sub 'LB列入替えFunction Function lbretuirekae(ByVal retunum As Integer) Dim i As Integer Dim j As Integer Dim lstcnt As Long Dim lbary() As Variant Dim lbaryb() As Variant lst = Me.ListBox1.List lstcnt = Me.ListBox1.ListCount ReDim lbary(retunum - 1, Me.ListBox1.ListCount - 1) ReDim lbaryb(retunum - 1, Me.ListBox1.ListCount - 1) lbary = Me.ListBox1.Column For i = 0 To Me.ListBox1.ListCount - 1 For j = 0 To retunum - 1 lbaryb(j, i) = lbary(retunum - 1 - j, i) Next j Next i Me.ListBox1.Clear Me.ListBox1.Column = lbaryb Erase lbary Erase lbaryb End Function 'リストボックスデータ格納 Private Sub UserForm_Initialize() Dim i As Long For i = 1 To 1000 Me.ListBox1.AddItem i Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = i * 10 Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = i * 100 Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = i * 300 Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = i * 500 Next i Me.ListBox1.ColumnCount = 5 End Sub Windows:XP SP3 Excel:2002 です。よろしくお願いいたします。 ---- IntegralHeight というプロパティを調べて見てください ichinose ---- ichinoseさん、ご回答ありがとうございます。 >IntegralHeight TrueになっていましたのでFalseにしたところ高さが固定されました。ありがとうございました。 (カシスソーダ) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201302/20130212233426.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ