Excel VBA質問箱 IV

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

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


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

53 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【82173】4桁の数値の時間データ化について りいな 23/7/25(火) 20:40

【82174】Re:4桁の数値の時間データ化について MK 23/7/27(木) 9:02

【82175】Re:4桁の数値の時間データ化について MK 23/7/27(木) 9:04

【82176】Re:4桁の数値の時間データ化について MK 23/7/27(木) 9:17

【82177】Re:4桁の数値の時間データ化について りいな 23/7/27(木) 15:01


	【82173】4桁の数値の時間データ化について

りいな

- 23/7/25(火) 20:40 -


	引用なし

	パスワード

書式設定なしの3桁ないし4桁の数値を[h]:mmの書式設定に変換したいです。
初心者なので色々わかる範囲で試したのですが、家庭教師に習ったのがデータの抽出までで変換がわからず、timevalueではうまくいかず…使う関数が間違っているでしょうか。
時間データとして計算しなくてはならず、数値のままだと計算が狂ってしまうのですが、調べても表示を変える方法ばかりでうまくいかないので、解決できると嬉しいです。素人が初歩的な質問ですみません。


	【82174】Re:4桁の数値の時間データ化について

MK - 23/7/27(木) 9:02 -


	引用なし

	パスワード

参考です。

Sub test()
Dim t As String
　 With ActiveCell
　　 t = .Value
　　 If Len(t) = 3 Then t = "0" & t
　　 .NumberFormatLocal = "h:mm"
　　 .Formula = Left(t, 2) & ":" & Right(t, 2)
　 End With
End Sub


	【82175】Re:4桁の数値の時間データ化について

MK - 23/7/27(木) 9:04 -


	引用なし

	パスワード

[h]:mm
でしたね。

私のサンプルは24時以降の時刻には対応してません。


	【82176】Re:4桁の数値の時間データ化について

MK - 23/7/27(木) 9:17 -


	引用なし

	パスワード

> .NumberFormatLocal = "h:mm"

↓でお試しください。

　 .NumberFormatLocal = "[h]:mm"


	【82177】Re:4桁の数値の時間データ化について

りいな

- 23/7/27(木) 15:01 -


	引用なし

	パスワード

ありがとうございます！すごいです！！できました！
１週間色々試してダメだったので、本当に救われました。
ちょっと力技感がありますが、書ける式を足したので運用してみます。
本当にありがとうございます。

Sub test()
Dim t As String
Dim i As Long
　For i = 11 To 43
Dim g As Long
　For g = 7 To 11

　 With Cells(i, g)
　　 t = .Value
　　If Len(t) > 1 Then
　　　If Len(t) = 3 Then t = "0" & t
　　　.NumberFormatLocal = "[h]:mm"
　　　.Formula = Left(t, 2) & ":" & Right(t, 2)
　　End If
　 End With
Next
Next
End Sub


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

53 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free