hücreye tam sayı yazarak saat girme

[siar]

Örneğin sabit olarak "S" sütuna devamlı saat giriyorum. Yapmak istediğim bu sütuna tam sayı olarak girdiğim değerleri (1720 gibi), saar formatına çevirmek (17:20) gibi. Teşekkürlerimle

 

[Korhan Ayhan]

Selamlar,

Bu işlemi yapmak istediğiniz hücreleri seçin. Hücreleri Biçimlendir menüsünden İsteğe Uyarlanmış bölümüne aşağıdaki formatı uygulayın.

00":"00

 

[Necdet]

Alternatif olması açısından aşağıdaki kodları deneyebilirsiniz.

Bir takım kontroller yapayım dedim ama bazen becerdim bazen beceremedim, kontrolsüz kodlar aşağıdadır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [S:S]) Is Nothing Then Exit Sub
On Error Resume Next
If Len(Target) = 3 Then
     Target = TimeValue(Left(Target, 1) & ":" & Right(Target, 2) & ":" & 0)
Else
     Target = TimeValue(Left(Target, 2) & ":" & Right(Target, 2) & ":" & 0)
End If
End Sub