Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11856 / 13646 ツリー ←次へ | 前へ→

【13748】リストボックスに時刻表示するには ドロップダウンテロリスト 04/5/12(水) 16:29 質問[未読]
【13749】Re:リストボックスに時刻表示するには IROC 04/5/12(水) 16:35 回答[未読]
【13751】Re:リストボックスに時刻表示するには ichinose 04/5/12(水) 16:50 回答[未読]

【13748】リストボックスに時刻表示するには
質問  ドロップダウンテロリスト  - 04/5/12(水) 16:29 -

引用なし
パスワード
   リストボックスのRowSourceプロパティに設定した
セル範囲に以下の時間がそれぞれ入力してあると
します。

9:00
9:30
10:00
10:30
11:00
11:30
12:00
12:30
13:00

フォームを起動し、リストボックスを表示させると
時間表示ではなく、シリアル値になってしまいます。
これを、時間表示するにはどのようにすれば
よいでしょうか。

【13749】Re:リストボックスに時刻表示するには
回答  IROC  - 04/5/12(水) 16:35 -

引用なし
パスワード
   FORMAT関数を使って、Additemメソッドで追加しては如何ですか?

【13751】Re:リストボックスに時刻表示するには
回答  ichinose  - 04/5/12(水) 16:50 -

引用なし
パスワード
   ドロップダウンテロリストさん
IROCさん、こんにちは。

>リストボックスのRowSourceプロパティに設定した
>セル範囲に以下の時間がそれぞれ入力してあると
>します。
RowSourceプロパティを使用するためには、時間を文字列に変換するしかないみたいですね。

Listプロパティを使ってみてはいかがでしょうか?
例えば、セルA1〜A10をメンバとして登録する場合の例で

  ListBox1.List = [if(a1:a10>0 ,text(a1:a10,"h:mm"))]

Evaluateメソッド([・・・]は省略型)では、上記のようにしないと配列として
認識してくれませんでした。
これをUserformのInitializeイベント等に記述してみて下さい。

尚、RowSourceプロパティに規定値が入っているとしたら、クリアして確認して下さい

>9:00
>9:30
>10:00
>10:30
>11:00
>11:30
>12:00
>12:30
>13:00
>
>フォームを起動し、リストボックスを表示させると
>時間表示ではなく、シリアル値になってしまいます。
>これを、時間表示するにはどのようにすれば
>よいでしょうか。

11856 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free