Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29874 / 76738

←次へ　｜　前へ→


	【52138】Re:時刻同士の計算（ミリ秒単位）方法ってありますか

ichinose - 07/10/23(火) 20:42 -


	引用なし

	パスワード

▼ふぁっしーさん：
こんばんは。

>ただ、ひとつ
>=VALUE(TEXT(SUBSTITUTE(C2,":",".",2),"s.000")-INT(TEXT(SUBSTITUTE(C2,":",".",2),"s.000")))
>のINTが入っている状態だとERRORとなってしまうので、INTをはずした状態にしたらうまくいきました（型が合わないためでしょうか？）。
ん？INT関数を外してしまうと正しい数値は出ないはずなんですが・・・。

ＶＢＡで数式のサンプルを作成しました。

新規ブックの標準モジュールに
'=============================================================
Sub main()
　　With Range("a1")
　　　 .NumberFormatLocal = "@"
　　　 .Value = "01:00:331"
　　　 MsgBox "セルＡ１の　" & .Value & "から、セルＡ２に秒以下の値を取得します"
　　　 With .Cells(2)
　　　　　.NumberFormatLocal = "G/標準"
　　　　　.Value = "=VALUE(TEXT(SUBSTITUTE(a1,"":"",""."",2),""s.000"")-" & _
　　　　　　　　 "INT(TEXT(SUBSTITUTE(a1,"":"",""."",2),""s.000"")))"
　　　　　End With
　　　 End With
　　MsgBox "いかがですか？"
End Sub

上記のmainを実行してみてください。

アクティブシートのセルＡ１に文字列として01:00:331が入力されます。
このセルＡ１の値に対して、セルＡ２に
=VALUE(TEXT(SUBSTITUTE(A1,":",".",2),"s.000")-INT(TEXT(SUBSTITUTE(A1,":",".",2),"s.000")))

という数式で　0.331が取得されるはずです。

再度、確認してみてください。

尚、Excel2002で確認しました。

1 hits

▼

【52083】時刻同士の計算（ミリ秒単位）方法ってありますか ふぁっしー 07/10/19(金) 15:00