Wa'alaikumussalam Wr. Wb. hehehe... met sercing... kalo sempet mampir dimari<http://b-excel.blogspot.com/2013/09/ngobrolin-evaluate-di-vba-yuk.html>yak...
Wassalamu'alaikum Wr. Wb. Kid. 2014-04-16 12:07 GMT+07:00 Heri Pamungkas ( Gmail ) <[email protected]> : > > السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ > Semangat pagi,. > > Alhamdulillah, > > Terima kasih Mr.Kid (...yang actualnya ngga "Kid") > > Nambah lagi pengetahuan saya tentang Fungsi di VB. > Oke Mr, walaupun belum paham dengan alurnya saya jadi punya > PR nie sercing Fungsi Evaluate. > > Nanti kalau saya sudah paham alurnya Insyaallah > saya bagi pemahaman saya di Email ini. > > > > # Cing cing serciiiinngg,...... > > وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ > > Warm Regards, > > On 16/04/2014 11:51, Mr. Kid wrote: > > > Wa'alaikumussalam Wr. Wb. > > Mungkin mau coba juga : > *** max : milliseconds > msgbox evaluate("text(" & (timer-test)/86400 & ",""HH:mm:ss.000"")") > -> misal (timer-test) menghasilkan 0.123 second, berarti formulanya > berbunyi : TEXT( 0.123/86400,"HH:mm:ss.000") > > > bisa juga : > test=timer-test '-> simpan selisih waktu (dalam detik) > msgbox format$( test/86400,"HH:mm:ss" ) & replace(format$( > test-int(test),".000###"),",",".") > -> fungsi Format hanya mampu sampai seconds. 1 detik = 1000 > milidetik dan bisa ditempelkan (concatenate) ke format datetime > > Wassalamu'alaikum Wr. Wb. > Kid. > > > > > 2014-04-16 9:51 GMT+07:00 Heri Pamungkas ( Gmail ) <[email protected] > >: > >> >> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ >> Semangat pagi,. >> >> Alhamdulillah, >> >> Miss, kayanya Pak Aji ada di samping saya ni >> jadi 1 hari serasa 3600 Detik dihatiku....#jiahhh >> >> Berikut penampakan scriptnya, yang Alhamdulillah >> sepertinya sudah berjalan seperti yang saya harapkan : >> >> Private Sub Unhide_Sheet() >> 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) / 86400, "hh:mm:ss") & " " & >> Right(Format(Timer - Test, "#0.000"), 3), , "Coba-Coba" >> End Sub >> >> >> Hehehe, jadi semangat belajar VB nie. >> >> Pak/Bu Moderator,Miss dan Teman2 Be-Excell, >> adakah contoh Problem dengan VB sederhana ?! >> Jadi kaya semacam kuis gitu, Biar saya belajarnya >> sekalian nyemplung... hehehehe >> >> >> #ehmmm,.. Pemanasan sebelum Kopdar#2 >> >> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ >> >> Warm Regards, >> >> On 16/04/2014 9:10, Jan Raisin wrote: >> >> >> Wa'alaikumsalam wr. wb., >> >> pak Heri.. kalo di komputer Jan 1 hari 1 malam itu 86400 detik (24 jam >> * 60 menit * 60 detik), jadi kalo Jan membaginya dengan angka 86400 ^_^ >> >> karena nilai 1 di komputer adalah mewakili 1 hari penuh dan 0,5 >> mewakili 12 jam >> >> bagian yang kedua, yang harus dilakukan pertama kali adalah melakukan >> format #0.000 untuk menampilkan 3 angka di belakang desimal (misal: 0.450), >> setelah itu baru mengambil 3 digit sebelah kanan yaitu 450 >> jadi scriptnya harusnya Right(Format(Timer - Test, "#0.000"), 3) bukan >> sebaliknya >> >> tambahan sedikit: >> >> - Timer tidak perlu ditulis di dalam tanda kurung karena ini adalah >> fungsi internal VB, contoh script: Test = Timer >> - Timer akan menghasilkan nilai bertipe single, karena itu tipe data >> harus single >> ini alasan pemilihan tipe data single >> - Tipe data single akan menghasilkan nilai positif terkecil >> adalah 1.401298E-45 atau 45 angka Nol di belakang koma, karena itu harus >> ditampilkan 3 angka di belakang koma dahulu, setelah muncul 3 angka >> desimal >> barulah diambil menggunakan fungsi Right. >> >> Semoga kali ini scriptnya akan berjalan dengan baik. >> >> Wassalam, >> >> -Miss Jan Raisin- >> >> >> Pada 15 April 2014 17.10, Heri Pamungkas ( Gmail ) < >> [email protected]> menulis: >> >>> >>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ >>> 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, >>> >>> >>> >> > >
<<inline: image/png>>
