[[20080701145424]]　『ユーザーフォームのリストボックスで先頭行固定し』（なた）　ページの最後に飛ぶ

『ユーザーフォームのリストボックスで先頭行固定したい』（なた）

 こんちにわ！
いつも勉強さててもらってます。なたと申します。

 リストボックスについての質問なのですが。
リストボックスで先頭行をいつも見えるようにしたいのですが、
どうしたらよいかわからずに質問しました。

WinXP EXCEL2007 です。

 見えるだけでいいなら、ラベル等に表示、
 というのはいかがでしょう？
 (MARBIN)

 レスありがとうございます！
そうなんです。ラベルに今は表示しているのです。

 でも、いろいろな内容を表示するのでラベルの横幅もいぢくるのが大変で。。
1行目に表示できたら、楽なのになーっと。思ってしまいました。
手抜きでしょか・・・（＞＜；
（なた）

 ColumnHeads のことですか？
 ListBox のリストはどのように生成していますか？
 (seiya)

返事おそくなりました。ごめんなさい。
コラムヘッズ！調べてみます！！
ありがとうございます！

ちなみに、リストボックスはこのように生成しています。

With Me

    .Label1.BackColor = &HC0FFC0
    .Label1.ForeColor = &HFFC0C0
    .Label1.Caption = "修正処理"

    .CommandButton1.Enabled = False
    .CommandButton2.Enabled = False

    .CommandButton7.Enabled = True
    .CommandButton3.Enabled = True
    .CommandButton4.Enabled = True
    .CommandButton5.Enabled = True
    .CommandButton6.Enabled = True

    '----- 免税証詳細 開始
        With Workbooks("免税証.xls").Worksheets(Left(Me.Label2.Caption, 2))
            .Activate
            myROW = .Cells(65536, 1).End(xlUp).Row
            myCOl = .Cells(1, 255).End(xlToLeft).Column
            Set myMstRNG = .Range(.Cells(1, 1), .Cells(myROW, myCOl))
        End With
        .ListBox1.RowSource = myMstRNG.Address
        Workbooks(Me.Caption).Activate
    '----- 免税証詳細 完了

    '----- ﾘｽﾄﾎﾞｯｸｽ整形 開始
    With .ListBox1
        For i = 42 To 206
            DoEvents
            .Height = i
        Next i
        .BackColor = &H404000
        .ForeColor = &HFFFFFF
        .Enabled = True
    End With
    '----- ﾘｽﾄﾎﾞｯｸｽ整形 完了

End With

 Set myMstRNG = .Range(.Cells(1, 1), .Cells(myROW, myCOl))
                             ^^^
 を
 Set myMstRNG = .Range(.Cells(2, 1), .Cells(myROW, myCOl))
                             ^^^
 に変更して、
 .ListBox1.ColumnHeads = True
 にすれば、一行目の値が列項目になります。
 (seiya)

 (seiya)様
 ありがとうございます～！（なた）
 レス遅くなりましてごめんなさない！

コメント返信：

[ 一覧(最新更新順) ]

[[20080701145424]] 『ユーザーフォームのリストボックスで先頭行固定し』（なた） ページの最後に飛ぶ

[[20080701145424]]　『ユーザーフォームのリストボックスで先頭行固定し』（なた）　ページの最後に飛ぶ