Bir çözümü var! Bu VBA kodunu çalışma sayfası modülünüze yerleştirin, yani:
- Visual Basic Düzenleyicisi'ni ( Alt- F11) açın
- Sol üst ağaç görünümünde, saatlerinizi girmek istediğiniz sayfayı çift tıklayın
- Merkezi kod paneline aşağıdaki kodu yerleştirin.
- VBE'yi kapatın
Bu kodu kullanın:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value < 0 Or Target.Value > 1 And Target.NumberFormat <> "h:mm" Then Exit Sub
Application.EnableEvents = False
Target.Value = Target.Value / 60
Target.NumberFormat = "mm:ss"
Application.EnableEvents = True
End Sub
Verileri girdiğiniz aralığı önceden biçimlendirdiyseniz, ilk satır olarak bu satırı kullanın:
If Target.Value < 0 Or Target.Value > 1 Then Exit Sub
Bunun, her zaman girdiğinizde veya 0 ile 1 arasında bir değer girip değeri ve biçimi değiştireceğini unutmayın! Belirli bir sütuyla sınırlamak istiyorsanız, bu satırı ekleyin:
If Target.Column <> 3 Then Exit Sub
veya belirli bir aralıkla sınırlamak için bu satır
If Intersect(Target, Range("A2:A100") Is Nothing Then Exit Sub
59
, hücreyi biçimlendirmek[MM]:SS
. Gibi:02:10:45
daha sonra130:45
bunun yerine görüntülenir. Ama görünüşe göre bu girişler için çalışmıyor.