Excel VBA質問箱 IV

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

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


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

227 / 76735

←次へ　｜　前へ→


	【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

11 hits

▼

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