Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5783 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ありがとうございました。
問題は解決しました。
早速利用したところ、問題なく動きました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5783 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free