時間表示

質問

まいどおせわになります。
セルに時間を簡単入力したいのですが、

例
入力　１．２５　⇒　表示　１：１５

入力　２．７５　⇒　表示　 ２：４５

このように簡単入力し、時間表示はできないものでしょうか？
※表示は１５分刻みのみです。
入力したセルに表示したいので、セルの書式設定でできれば素晴らしいのですが。
（A1に入力⇒B1に表示は × です）
どうぞ宜しくお願いします。

回答No.5

mu2011 · ベストアンサー

NO3です。
>戻るボタンが使えなくなってしまいます。
⇒ＶＢＡを使用するとｕｎｄｏ（入力操作に限る）は使用できません。
　回答しましたＶＢＡは全てのセルが対象になっていますので入力範囲を限定すればこれ以外のセル入力時にはｕｎｄｏが有効になります。
　然しながら最後にＶＢＡ入力範囲に入力するとそれまでのｕｎｄｏリストがリセットされるので有効ではありません事、ご注意ください。
一例です。（Ａ列範囲のみ有効）
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = Target.Value / 24
Target.NumberFormatLocal = "[h]:mm;@"
Application.EnableEvents = True
End Sub

回答No.4

KURUMITO

マクロを使わない限り入力したセルでのそのような加工はできません。たとえ別のセルに表示させるにしてもなかなか面倒です。
仮にＡ1セルに1.20と入力して15分刻みでＢ1セルに表示させるとしたら次のような式をＢ1セルに入力します。
15分刻みで切り上げる場合には

=CEILING((INT(A1)&":"&MOD(A1,1)*60)*1,"0:15")

15分刻みで切り捨てる場合には

=FLOOR((INT(A1)&":"&MOD(A1,1)*60)*1,"0:15")

最後にＢ1セルの表示形式は時刻にします。

Ａ列にお示しのようなデータを入力してＢ列でその処理結果を表示させることにしてはどうでしょう。

お礼

KURUMITO様

どうもありがとうございます。
まったく贅沢な方法を望んでいるのは承知しているのですが、、、。
関数も素人ですので、これからもお願いします。

回答No.3

mu2011

ＶＢＡでないとできないと思います。
一例です。
シートタブ上で右クリック→コード表示→以下のコードを貼り付けてお試しください。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Target.Value / 24
Target.NumberFormatLocal = "[h]:mm;@"
Application.EnableEvents = True
End Sub

お礼

mu2011様

VBAとは、高度ですね。
成功です！が、戻るボタンが使えなくなってしまいます。
なにか方法はありますか？

回答No.2

grumpy_the_dwarf

> 入力　１．２５　⇒　表示　１：１５

「入力　1..15　⇒　データ　1:15」だったらオートコレクトで簡単に
出来るんですけどね。ちょっと違いますよね。

お礼

grumpy_the_dwarf様

私のような素人には、この方法が無難そうですね。
最終手段にしたいと思います。
ありがとうございます。

回答No.1

aokii

A1に入力⇒B1に表示は × でしたら、おそらくできないでしょう。
データの入力書式を１５分刻みのリストにしてはいかがでしょうか。

お礼

aokii様

そうですよねぇ。
簡単に処理したほうがよいですよねぇ。
しかし、可能性があるならば探したいのです。
ありがとうございます。