[[20051107101307]] 『4桁の数字を時間表示に』(タイガー) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『4桁の数字を時間表示に』(タイガー)
 セル上に 22:00 と出したいときに、2200 とうてば変換できるようにしたいのですが何かいい方法はありますでしょうか?
 多量に入力しないといけないので、:をうたなくてもいいとかなり楽になるので。

 右クリックセルの書式設定から「表示形式」→「ユーザー定義」の
 種類を 00":"00 とか ##":"##
 にするとできるかもしれません。

 あとは、
 [A1]に値がある場合[B1]のセルに =left(A1,2)&":"&right(A1,2)
 などとしておいてそれを「形式を指定してコピー」→「値」

 とかはどうですか?

 以上(Mull)

 質問の仕方が悪くてすいません。表示はうまくいったのですが、
例えば11:00と12:00と表示させて、その差分 1 という風に出したいのです。
いい方法ありますかね?(タイガー)


 下記の過去ログが参考になります。
(純丸)(o^-')b
[[20050826105400]] 『簡略時刻入力方法』(タイムカード) 
[[20040523125849]] 『時間入力の自動変換』(koko)


 ありがとうございます。一応過去ログ探したつもりだったのですが・・・
うまくいきました。(タイガー)

 そのような数値を差し引き計算するものは、このような表で、C1に数式を
 =IF(COUNT(A1:B1)<2,"",--TEXT(TEXT(B1,"0!:00")-TEXT(A1,"0!:00"),"[h]mm"))
 として、セルの書式設定、表示形式、ユーザー定義の種類を0!:00としてください。 (LOOKUP)

    A   B   C
 1 11:00 15:30  4:30

 過去ログがあったんですねorz
 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim t As String
 t = Target.Value
 '時間に変換する場所を制限します。
 'デフォルトでは「A1」と「C1からD2」に入力した場合のみ処理が実行されます
 If Application.Intersect(Target, Range("A1,C1:D2")) Is Nothing Then Exit Sub
 '入力された数値が4桁以外の場合ははじかれます。
 If Len(t) <> 4 Then Exit Sub
 With Target
     'セルの書式を時間に設定します。
     .NumberFormatLocal = "h:mm;@"
     '四桁の数字に「:」を追加します。
     'この部分はほかにもいろいろな方法があると思います。ので変えてください。
     .Formula = Left(t, 2) & ":" & Right(t, 2)
 End With
 End Sub

 一応作ったので乗せときますf^^;

 (Null)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.