![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
18:11:31.349827 のように時刻形式で入力してしまうと、0.1ミリ秒の桁を
四捨五入した 18:11:31.350 でしか保存されないので困ってしまうわけですが、
秒の部分を切り離して 18:11 と31.349827にしておき、別のセルで
= 18:11 + 31.349827/(24*60*60)
とまとめてやると、ちゃんと計算できます。
No.3
- 回答日時:
(1)18は時間、11は分、31は秒を表すとします。
349827は349827/1000000秒を表すとします。(2)データとして、A1に18.11.31.349827、A2に18.11.32.046075が入っているものとします。
(3)VBAでワークセルとしてB,C,D,F列を使う。
Sub split()
For j = 1 To 2
Worksheets("sheet1").Cells(j, 1).Activate
a = ActiveCell
s = 1
For i = 1 To 4 '切り分けSplit
p = InStr(s, a, ".")
If p = 0 Then p = Len(a) + 1
ActiveCell.Offset(0, i) = Mid(a, s, p - s)
s = p + 1
Next i
Next j
'------- ’各桁演算
Dim k(5)
k(2) = 1: k(3) = 60: k(4) = 60: k(5) = 1000000
For i = 2 To 5
Cells(9, i) = Cells(8, i) - Cells(7, i)
If Cells(9, i) < 0 Then
Cells(9, i - 1) = Cells(9, i - 1) - 1
Cells(9, i) = Cells(9, i) + k(i)
End If
Next i
End Sub
(4) 結果は
(B) (C) (D) (E)
181131349827 (1行目)
18113246075 (2行目)
000696248 (3行目)
秒以下の入力は桁を揃えて後の0も付け加えてくださいね。.11--->.110000のように。
No.2
- 回答日時:
質問の意図に合っているか不明ですが、ユーザー定義関数を作ってみました。
=TimeDif(時刻1,時刻2) として使います。
質問のケースは『 00.00.00.696248』が結果になります。
セルに時刻を表す文字列があれば、=TimeDif(A1,A2) のように使えます。
出力結果は文字列です。数値、時刻として再計算には使えません。
もう少し簡単に計算できそうな気もしますが・・・ご参考に。(当方Excel97です)
標準モジュールに貼り付けます。
↓
Function TimeDif(strTM1 As String, strTM2 As String)
Dim TM1 As String, TM2 As String '時刻
Dim hh1 As Integer, hh2 As Integer '時(から、まで)
Dim mm1 As Integer, mm2 As Integer '分(から、まで)
Dim ss1 As Integer, ss2 As Integer '秒(から、まで)
Dim pot As Integer '『.』の位置
Dim Dif As Double '2つの時刻の秒差
Dim Dif1 As String, Dif2 As String '時分秒差と少数秒差
Dim SeiFu As String '正負
TM1 = strTM1 '時刻1を時分秒に分解
pot = InStr(TM1, "."): hh1 = Mid(TM1, 1, pot - 1): TM1 = Mid(TM1, pot + 1)
pot = InStr(TM1, "."): mm1 = Mid(TM1, 1, pot - 1): TM1 = Mid(TM1, pot + 1)
pot = InStr(TM1, "."): ss1 = Mid(TM1, 1, pot - 1): TM1 = Mid(TM1, pot)
TM2 = strTM2 '時刻2を時分秒に分解
pot = InStr(TM2, "."): hh2 = Mid(TM2, 1, pot - 1): TM2 = Mid(TM2, pot + 1)
pot = InStr(TM2, "."): mm2 = Mid(TM2, 1, pot - 1): TM2 = Mid(TM2, pot + 1)
pot = InStr(TM2, "."): ss2 = Mid(TM2, 1, pot - 1): TM2 = Mid(TM2, pot)
'秒単位で差を計算
Dif = (hh2 * 60# + mm2) * 60# + ss2 _
- ((hh1 * 60# + mm1) * 60# + ss1) + Val(TM2) - Val(TM1)
SeiFu = " ": If Dif < 0 Then SeiFu = "-": Dif = Abs(Dif)
'時刻形式にした文字列を作る
Dif1 = Format(Int(Dif) / 24 / 3600, "hh:mm:ss")
Dif2 = Format(Dif - Int(Dif), ".000000")
TimeDif = SeiFu & Application.Substitute(Dif1 & Dif2, ":", ".")
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 統計学 【Excel統計】任意の確率におけるσの係数を求める方法? 3 2023/06/15 19:28
- Excel(エクセル) Excelグラフについて 1 2022/06/16 16:06
- Excel(エクセル) Excel 2019で質問があります。 計測器のデータをExcelで記録したんですが、1秒刻みで記録 4 2022/09/07 22:46
- Excel(エクセル) 時間差を求めるマクロコードを教えてください。 4 2022/05/17 18:22
- 数学 数学の問題の解き方を教えてください! 3 2022/11/02 17:32
- 物理学 物理の問題 3 2022/12/21 22:56
- Excel(エクセル) Excelについて 3 2023/07/12 17:47
- Excel(エクセル) エクセルの関数に関しての質問です。 5 2022/10/07 11:17
- Excel(エクセル) 別シートに毎回異なるデータをコピーする 7 2022/06/24 09:02
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAでミリ秒まで出力する方法
Visual Basic(VBA)
-
vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード
Visual Basic(VBA)
-
format関数について
Visual Basic(VBA)
-
-
4
時間(ミリ秒を含む)の引き算
Visual Basic(VBA)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
ウィンドウのタイトルからプロセス取得
Visual Basic(VBA)
-
7
Microsoft VBAで2GBを超えるファイルサイズのバイナリデータを読み込みたい。
Visual Basic(VBA)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
8時間以上だったら1時間マイ...
-
SL(DL)やまぐち号 津和野行きの...
-
エクセル 時間計算 指定の時...
-
JR時刻検索に付いて教えて下さ...
-
電線等の入線潤滑材の代用品っ...
-
サンライズエクスプレスの通過時刻
-
午後11時59分って何時? 昼の11...
-
標準時間と117の時間の10秒のずれ
-
タイムカードの仕組み
-
無人駅では切符が買えません。 ...
-
JR特急わかしお号について
-
列車が遅れて、次の列車に乗り...
-
新幹線の自由席に座れなかった...
-
特急や新幹線の領収書から 乗っ...
-
特急の降り方
-
あずさもしくはかいじの乗車券...
-
新幹線でそれぞれ出発地が違う...
-
岡山駅、または福山駅でののぞ...
-
のぞみからひかりに乗り換える...
-
新幹線のぞみの「始発駅」はど...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
京都に223系を入れたのは、221...
-
8時間以上だったら1時間マイ...
-
Accessの重複なしのカウントの...
-
JR時刻検索に付いて教えて下さ...
-
[MS Access]クエリで変換 hhmm...
-
iPhoneのボイスメモ
-
えきねっと おトクなきっぷ 乗...
-
ゆいレールの3両編成の時刻を教...
-
電線等の入線潤滑材の代用品っ...
-
午後11時59分って何時? 昼の11...
-
エクセルで早朝深夜労働時間を...
-
アルファエックス
-
フリー wifi でwindowsの時刻が...
-
標準時間と117の時間の10秒のずれ
-
エクセルのNow関数の時刻の更新...
-
時間と時刻の違い!?
-
Excelでミリsecまでの2つの時...
-
[h]:mm形式→10進法への変換
-
貨物列車の時刻 (上越線)
-
Excelで90分後を自動計算
おすすめ情報