Excel VBA質問箱 IV

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

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


5782 / 13645 ツリー ←次へ | 前へ→

【48875】テキストボックス内の時間表示について galikun 07/5/14(月) 0:31 質問[未読]
【48876】Re:テキストボックス内の時間表示について ponpon 07/5/14(月) 1:52 発言[未読]
【48877】Re:テキストボックス内の時間表示について Kein 07/5/14(月) 2:08 回答[未読]
【48900】Re:テキストボックス内の時間表示について galikun 07/5/14(月) 22:20 お礼[未読]

【48875】テキストボックス内の時間表示について
質問  galikun E-MAIL  - 07/5/14(月) 0:31 -

引用なし
パスワード
   教えて下さい

例えば、アクティブセルに 9:00 と入力してある場合に
textbox1.value=activecell.value
を実行すると結果は 0.375 となります。
テキストボックス内の時間表示形式の変更で 9:00 と表記する事は可能なのでしょうか?
よろしくお願いします

【48876】Re:テキストボックス内の時間表示について
発言  ponpon  - 07/5/14(月) 1:52 -

引用なし
パスワード
   ▼galikun さん:
>教えて下さい
>
>例えば、アクティブセルに 9:00 と入力してある場合に
>textbox1.value=activecell.value
>を実行すると結果は 0.375 となります。
>テキストボックス内の時間表示形式の変更で 9:00 と表記する事は可能なのでしょうか?
>よろしくお願いします

こんばんは。(おはようかな?)

これでできると思います。

TextBox1.Value = Format(CDate(ActiveCell.Value), "h:mm")
TextBox1.Value = Format(ActiveCell.Value, "h:mm")

【48877】Re:テキストボックス内の時間表示について
回答  Kein  - 07/5/14(月) 2:08 -

引用なし
パスワード
   テキストボックスの値は、元がどんなデータ型だろうと文字列型になるのだから

TextBox1.Value = ActiveCell.Text

というようにしても良さそうですが・・。

【48900】Re:テキストボックス内の時間表示について
お礼  galikun E-MAIL  - 07/5/14(月) 22:20 -

引用なし
パスワード
   ありがとうございました。
問題は解決しました。
早速利用したところ、問題なく動きました。

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