Re: [belajar-excel] Waktu Kalkulasi VB

[Heri Pamungkas ( Gmail )]

السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. Miss dan Teman2 Be-Exceller yang Budiman,.. Hehehe, Alhamdulillah Scriptnya bisa berjalan Normal. Beginilah hasil penalaran saya yang terlihat aneh : 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) / 3600), "hh:mm:ss") & " " & Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba" End Sub Deng denggggggg..... Problemnya. Sekali klik Jalan normal, tapi waktu klik kedua hasilnya agak menNgenyuhkan yang membuat aku terhenyak (Bahasanya agak ngaco...). Ada apakah gerangan sehingga bisa menyebabkan Minus ?! Atau ada ketikan saya yang salah ya ?! Atau sebenarnya Waktu yang berjalan Mundur ?!.. #hmmmm,... masang tampang Mikir... وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards, On 15/04/2014 16:36, Jan Raisin wrote:   Wa'alaikumsalam wr. wb., Pak Heri,  sebagai dasarnya adalah seperti ini, Timer - Test akan menghasilkan suatu nilai tertentu yang menunjukkan nilai detik, anggap saja sebagai AA lalu pak Heri ingin menampilkan sampai dengan jam dan menitnya plus ditambah sampai per 100 detiknya maka yang harus dilakukan pertama kali adalah merubah nilai AA yang detik tersebut menjadi jam, oleh karena itu harus dibagi dengan jumlah detik dalam 1 hari penuh.. bagian_pertama: kalo 1 hari semalam di tempat Jan biasanya 24 jam (kalo ada mas Aji di samping Jan keliatannya lebih cepat lagi deh  terus 1 jam ada 60 menit dan 1 menit terdiri dari 60 detik Nah.. kira-kira nilai AA tersebut harus dibagi berapa hayoo ? Kalo sudah ketemu baru dimasukkan dalam format hh:mm:ss bagian_kedua: Yang di atas adalah cara sampai memunculkan nilai per detik, lalu untuk memunculkan nilai per 100 detik bagaimana hayoo? caranya adalah mengambil 2 digit di sebelah kanan nilai AA tadi, tau kan fungsinya? xixixi ^_^ lalu diformat menjadi #0.00 clue tambahan: Formatnya dilakukan di dalam fungsi pengambil digit di sebalah kanan ya..  Nah.. kalo sudah kan tinggal digabung saja dengan tanda ampersand (bener gak sih nulisnya?) yang ini Jan kasih tau scriptnya deh.. bagian_pertama & "." & bagian_kedua eh.. ternyata di pertanyaan sebelumnya inginnya dimunculkan 3 digit ya? lalu ada spasi antara detik dengan per sekian detiknya.. kalo gitu ambil nilai sebelah kanannya juga harus 3 digit ya.. lalu formatnya bagian keduanya pun juga diubah menjadi #0.000 script gabungnya menjadi: bagian_pertama & " " & bagian_kedua untuk cek benar atau tidaknya.. misal A1 diisi dengan nilai Test >> waktu mulai A2 diisi dengan nilai Timer >> waktu selesai A3 diisi dengan nilai A2 dikurangi A1 kalo nilai di A3 dengan di msgbox sama.. maka tandanya sudah berada di sekript yang tepat ^_^ Mudah-mudahan teka-teki di atas gak bikin bingung pak Heri ^_^ Wassalam, -Miss Jan Raisin- Pada 15 April 2014 15.57, Heri Pamungkas ( Gmail ) <ghery.dha...@gmail.com> menulis: السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 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,