[[20090505190822]]　『リストボックスの見出しをコード内で決めた文字で』（バーミヤン）　ページの最後に飛ぶ

『リストボックスの見出しをコード内で決めた文字で表示したい』（バーミヤン）

 お世話になります。
 VBAでListboxの見出しを表示したいのですが、ネットなどでいろいろ調べたのですがわからないのです。
 ネットなどの例では見出しをシートの表から取得して表示する方法しか載っていませんでした。つまり、

     A     B      C
 1   駅   始発   終電
 2  東京  05:30  25:40
 3  新宿  05:20  25:30

    Listbox1.RowSource = "Sheet1!A1:C" & lastRow

 というようなかんじです。
 私がしたいのはこうではなく以下のようにVBAのコードの中で表示文字を決めたいのです。

    Listbox1.RowSource = "駅;始発;終電"

 のようにしたいのです。Accessは上記のような感じでできるようなのですがエクセルだとエラーが出てしまいます。
 これはどのようにしたらよいのでしょうか？

 また、プロパティに直接記入する方法もお願いします。

 WindowsXPとエクセル2000です。よろしくお願いしいます。

    ListBox1.List = Array("駅", "始発", "終電")
 とか、
 あるいはセミコロンで区切りたいのなら、
    ListBox1.List = [{"駅";"始発";"終電"}]
 といった風で、どうですか？

  プロパティボックスで RowSource にセットしてあるときは、
  RowSourceプロパティは Deleteにしておいてください。

  (kanabun)

 ↑あう、ごめんなさい。勘違いしてたようで。

 >    A     B      C
 > 1   駅   始発   終電
 > 2  東京  05:30  25:40
 > 3  新宿  05:20  25:30

 A,B,C3列を 1行目の見出し付きで表示したいということなら、
  With ListBox1
      .RowSource = "Sheet1!A2:C" & LastRow   '表の2行目から最終行まで
      .ColumnHeads = True
      .ColumnCount = 3
  End With

 というような感じです。
 .ColumnHeadsプロパティは リストを.RowSourceプロパティでシートからセットするときだけ
 有効なプロパティです。
 .List プロパティや .Column プロパティのときは 使えません。

  (kanabun)

 >.List プロパティや .Column プロパティのときは 使えません。
 ですね！！ですから、私は、リストボックスの上にラベルで項目名を作成指定しています。

 ichinose

 kanabunさん。ichinoseさんありがとうございます。
 残念ですが別の方法を考えてみることにします。
 (バーミヤン)

コメント返信：

[ 一覧(最新更新順) ]

[[20090505190822]] 『リストボックスの見出しをコード内で決めた文字で』（バーミヤン） ページの最後に飛ぶ

[[20090505190822]]　『リストボックスの見出しをコード内で決めた文字で』（バーミヤン）　ページの最後に飛ぶ