Re: [belajar-excel] Waktu Kalkulasi VB

[Heri Pamungkas ( Gmail )]

السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. hmmmmmmm,.. Tadi jalan-jalan nemu pake "Format" Ternyata mirip-mirip kaya Format Cell. Setelah diketik jadinya : Private Sub Unhide_Sheet() ' Unhide_Sheet Macro Dim Test As Single Test = (Timer) Sheets("ILev").Visible = True Sheets("mDBeg").Visible = True Sheets("mDH-1").Visible = True Sheets("mDH").Visible = True Sheets("Ostd").Visible = True MsgBox Format((Timer) - Test,"00:00:00"), , "Coba-Coba" End Sub Tapi untuk koma detik waktu saya rubah menggunakan "00:00:00,0" Kenapa malah jadi ngaco ya ?! Hiks Hiks ....T.T وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards, On 15/04/2014 13:03, Heri Pamungkas ( Gmail ) wrote: السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. Alhamdulillah, hehehehe, Senengnya seperti pertama kali bisa malam pertama. " Lho... Hmmmm.... Minta cluenya lagi boleh Teman2 Be-Excell Bagaimana cara memformat hasil tersebut menjadi Format : "00:00:00 000" Jam 2digit ":" Menit 2digit ":" Detik 2digit "Spasi" Koma detik 3digit وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards, On 15/04/2014 11:49, Jan Raisin wrote:   Wa'alaikumsalam wr. wb., pak Heri, di komputer Jan scriptnya sudah berjalan dengan baik kok.. ini hasilnya.. Mungkin spek komputernya lebih bagus dari komputer Jan  hiks.. jadinya lebih cepet prosesnya Tukeran dong komputernya..  Wassalam, -Miss Jan Raisin- Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail ) <ghery.dha...@gmail.com> menulis:   السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. Hehehe, Miss Jan dan Kawan2 Be-Excell yang budiman, Adakah bacaan referensi untuk clue ke 3 Miss Jan berikut ?! " 03. satu baris sebelum script yang ada, masukkan waktu mulai ke dalam variabel yang sudah disiapkan menggunakan script pada nomer 2 di atas>> 1 baris script. " Ini Script yang coba saya buat : Private Sub Unhide_Sheet() ' Unhide_Sheet Macro Dim Test As Single Test = (Timer) Sheets("ILev").Visible = True Sheets("mDBeg").Visible = True Sheets("mDH-1").Visible = True Sheets("mDH").Visible = True Sheets("Ostd").Visible = True MsgBox (Timer) - Test, , "Coba-Coba" End Sub Tapi "0" hasilnya, Sepertinya sih pada : " (Timer) " menghasilkan value yang sama dengan " Test = (Timer) " Jadi waktu dilakukan pengurangan di MsgBox hasilnya "0". Hiks Hiks,... وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards,