Ada solusinya! Tempatkan kode VBA ini dalam modul lembar kerja Anda, yaitu:
- Buka Editor Visual Basic ( Alt- F11)
- Di treeview kiri atas, klik dua kali pada lembar Anda ingin memasukkan waktu Anda
- Di panel kode pusat, tempatkan kode di bawah ini.
- Tutup VBE
Gunakan kode ini:
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
Jika Anda sudah memformat rentang tempat Anda memasukkan data, gunakan baris ini sebagai baris pertama:
If Target.Value < 0 Or Target.Value > 1 Then Exit Sub
Perhatikan bahwa ini akan mengubah nilai dan format - setiap kali Anda memasukkan waktu - atau sesuatu antara 0 dan 1! Jika Anda ingin membatasi ke kolom tertentu, tambahkan baris ini:
If Target.Column <> 3 Then Exit Sub
atau baris ini untuk membatasi ke kisaran tertentu
If Intersect(Target, Range("A2:A100") Is Nothing Then Exit Sub
59
, format sel sebagai[MM]:SS
. Seperti:02:10:45
kemudian akan ditampilkan sebagai130:45
gantinya. Tetapi ternyata itu tidak bekerja untuk input.