[[20071113093156]]　『コンボボックスで時間表示』（西遊記）　ページの最後に飛ぶ

『コンボボックスで時間表示』（西遊記）

 以下のような表があります。
　　 Ａ　Ｂ
１　6:30
２　7:00
３　7:30
４　8:00

 Ａ列の範囲をzikanとし、フォーム上のコンボボックスから選択できるようにしました。
ところが、いざ選択すると0.235・・・のように小数点で表示されてしまいます。
これをセルの表示どおりにコンボボックスに表示させたいのですが、どなたかご教授をお願いします。

 1) Property box の RowSource に書かれている =zikan を削除
 2) Form module へ

 Private Sub UserForm_Initialize()
 Dim r As Ragne
 For Each r In Range("zikan")  '<- 修正　was "ziakn"
     ComboBox1.AddItem r.Text
 Next
 End Sub
 (seiya)

 衝突しまくりです

 フォームのコンボボックスは参照先のセルの表示形式に依存するので、
 シリアル値表示になっているのでは？と思い調べると、
    6:30 = 0.2708････
    7:00 = 0.2916････
    7:30 = 0.3215
    8:00 = 0.3333････
    仮に
    5:30 = 0.2291････
    6:00 = 0.25
 0.235････が見当たらないです。
 何か別なところを参照させているのではないでしょうか？
 zikanではなく、直接参照させてもおかしいのでしょうか？

 (1or8)

 すみません。0.235・・・とは、要するに小数点が表示されるという意味で、正確な数字を入れたわけではありませんでした。すみません。
 seiyaさんのコードをやってみましたが、変数宣言ができないのと、userformが開けませんでした。
（西遊記）

 またまた、すみません。
 combobox1をcombobox2に変更するだけの単純なミスで、seiyaさんのコードが正しく認識されました。お手数をお掛けしました。
ありがとうございました。
（西遊記）

 typo
 Ragne -> Range
 でした。
 (seiya)

コメント返信：

[ 一覧(最新更新順) ]

[[20071113093156]] 『コンボボックスで時間表示』（西遊記） ページの最後に飛ぶ

[[20071113093156]]　『コンボボックスで時間表示』（西遊記）　ページの最後に飛ぶ