VBA 時間表記変換したい　75.5分→1:15:30

VBAで時間表記を変更したいです。

**【75.5分】**のようにデータが入力されています。
このデータ表記を　**【1:15:30】**というように変換したいです。

※24時間を超える値も存在しています。その場合30時間10分40秒と表記したいです→【30：10：40】

どのような関数や計算、コードを書けばよいのか全く見当がついていません。
ヒントやアドバイス等頂けますでしょうか。
何卒よろしくお願い申しあげます。

行動規範の内容に同意します

回答3件

ベストアンサー

シリアル値に変換してText関数を使うことができます。
※Format関数では[h]を使えないのでご注意ください。

vba
1Sub Sample()
2
3Dim t As Double
4t = Range("A1") / (24 * 60)                         'シリアル値に変換
5Debug.Print WorksheetFunction.Text(t, "[h]:mm:ss")  'TEXT関数で24時間以上も表示可能にする
6
7End Sub
8

投稿2021/03/22 02:06

radames1000

総合スコア1925

riko

2021/03/22 02:48

ご回答ありがとうございます。とてもスマートなコードで感激しました。私の書いたコードではわかりにくかったのでこちらを採用させて頂きます。

sazi

2021/03/22 07:02 編集

範囲を超えた場合の書式があったんですね。公式で探してみたけど、いまいちだったので以下。 TEXT関数（数値を書式設定した文字列に変換） https://excel-ubara.com/excel1/EXCEL573.html

radames1000

2021/03/22 07:58 編集

公式だとこちらがよさそうです。 Excel のセルの表示形式で [ユーザー定義] に使用できる書式記号について https://bit.ly/3c8995M

行動規範の内容に同意します

まず、秒に換算します
75.5*60
その結果から、秒、分、時を出しましょう

投稿2021/03/22 01:46

y_waiwai

総合スコア88204

riko

2021/03/22 01:50

ご回答頂きありがとうございます。次々と計算していく方法でやってみます！

行動規範の内容に同意します


Dim H As Long
Dim M As Long
Dim s As Long

Dim NAMA As Double '生データ
Worksheets("Sheet1").Select
NAMA = Worksheets("Sheet1").Cells(4, 1).Value
Dim NAMA2 As Double 'NAMAの少数部分
NAMA2 = NAMA - Fix(NAMA)
Dim HMAE As Double 'H算出のための変数
HMAE = Fix(NAMA) / 60

s = NAMA2 * 60

If Fix(NAMA) < 60 Then
    M = Fix(NAMA)
    H = 0
Else
    H = Fix(HMAE)
    M = (HMAE - Fix(HMAE)) * 60
    
End If
MsgBox H & ":" & M & ":" & s
コード

投稿2021/03/22 02:50

編集2021/03/22 02:53

riko

総合スコア40