時間算出 その２

質問

時間算出　その２

CSVで出力した 1.59.4 と表記されている時間を 119.4 と
再計算する計算方法およびセル書式方法をご教示下さい。

回答No.2

DOUGLAS_

＞時間算出　その２
とのことで、「その１」は
http://okwave.jp/qa/q6120898.html
ですね。

＞VisualBasic でも利用出来るようセル表示形式を変更するという回答以外でご教示下さい。
とのことですが、ＶＢＡ で「セル表示形式を変更」せずに、「見た目」だけ変更すると、後々、時間計算ができなくなるなどの問題があります。

With Range("A1")
.Value = Replace(.Value, ".", ":")
' または、.Value = Join(Split(.Value, "."), ":")
.NumberFormatLocal = "[m].s"
End With

とすれば、セル内にも「1:59:04」という値が入ります。

回答No.1

DOUGLAS_

別の セル に、
=TEXT(SUBSTITUTE(A1,":",":"),"[m].s")
のような計算式を立てると、「119.4」という答えが返ってきますが。。。

　ということで、

＞再計算する計算方法
　「CSVで出力した 1.59.4 と表記されている時間」が入っている範囲を選択して、[編集(E)] - [置換(E)...] で [検索する文字列(N):] に「.」を、[置換後の文字列(E):] に「:」を入力し、[すべて置換(A)] します。

＞セル書式方法
　[書式(O)] - [セル(E)...] で [表示形式] タブ - [分類(C):] から「ユーザー定義」を選択し、[種類(T):] に「[m].s」と入力して [OK] します。