Re: [belajar-excel] Waktu Kalkulasi VB
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
Alhamdulillah,
hehehehe, Senengnya seperti pertama kali bisa malam pertama.
" Lho...
H 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,
Re: [belajar-excel] Waktu Kalkulasi VB
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
hmmm,..
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...
H 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,
Re: [belajar-excel] Waktu Kalkulasi VB
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
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 FormatTimer) - Test) / 3600), "hh:mm:ss") " " Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba"
End Sub
Deng denggg. 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 ?!..
#h,... 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,.
hmmm,..
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
Re: [belajar-excel] Waktu Kalkulasi VB
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 ) ghery.dha...@gmail.com: السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 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 ) ghery.dha...@gmail.com 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 FormatTimer) - Test) / 3600), hh:mm:ss) Format(Right((Timer) - Test, 3), #0.000), , Coba-Coba End Sub Deng denggg. 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 ?!.. #h,... masang tampang Mikir... وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards, inline: image/png
Re: [belajar-excel] Waktu Kalkulasi VB
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
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 sercnngg,..
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
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 ) ghery.dha...@gmail.com:
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
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
Re: [belajar-excel] Waktu Kalkulasi VB
Wa'alaikumussalam Wr. Wb. hehehe... met sercing... kalo sempet mampir dimarihttp://b-excel.blogspot.com/2013/09/ngobrolin-evaluate-di-vba-yuk.htmlyak... Wassalamu'alaikum Wr. Wb. Kid. 2014-04-16 12:07 GMT+07:00 Heri Pamungkas ( Gmail ) ghery.dha...@gmail.com : السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 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 sercnngg,.. وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 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 ) ghery.dha...@gmail.com : السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 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 ) ghery.dha...@gmail.com 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 FormatTimer) - Test) / 3600), hh:mm:ss) Format(Right((Timer) - Test, 3), #0.000), , Coba-Coba End Sub Deng denggg. 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 ?!.. #h,... masang tampang Mikir... وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards, inline: image/png
Re: [belajar-excel] Waktu Kalkulasi VB
Wa'alaikumsalam wr. wb., Pak Heri, coba langkah-langkah seperti berikut ini: 1. deklarasikan sebuah variabel bertipe single untuk menyimpan waktu mulai 1 baris script 2. cara mengambil waktu mulai atau selesai adalah menggunakan script Timer 3. 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 4. satu baris setelah script yang ada, lakukan pengurangan antara waktu selesai (lagi-lagi menggunakan script nomer 2 di atas) dengan waktu mulai, proses ini bisa langsung digabungkan dengan script untuk menampilkan message box 1 baris script semoga penjelasannya bisa dipahami, Jan gak menyertakan script ya.. soalnya kan cuma 3 baris yang dibutuhkan xixixi ^_^ Wassalamu'alaikum wr. wb., -Miss Jan Raisin- Pada 14 April 2014 11.45, Heri Pamungkas ( Gmail ) ghery.dha...@gmail.commenulis: -- السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. Hehehe, Saya sedang coba-coba main VB nih. Saya bikin script sederhana bunyinya begini : Sheets(ILev).Visible = True Sheets(mDBeg).Visible = True Sheets(mDH-1).Visible = True Sheets(mDH).Visible = True Sheets(Ostd).Visible = True Pertanyannya, Bagaimana caranya agar saya bisa tahu Berapa waktu kalkulasi script diatas dengan MsgBox ?! وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards,
Re: [belajar-excel] Waktu Kalkulasi VB
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. hahaha, Terima kasih miss atas teka-tekinya. Saya sercing sercing dulu ya cara mengartikan clue dari miss... وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards, On 14/04/2014 16:38, Jan Raisin wrote: Wa'alaikumsalam wr. wb., Pak Heri, coba langkah-langkah seperti berikut ini: 1. deklarasikan sebuah variabel bertipe single untuk menyimpan waktu mulai 1 baris script 2. cara mengambil waktu mulai atau selesai adalah menggunakan script Timer 3. 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 4. satu baris setelah script yang ada, lakukan pengurangan antara waktu selesai (lagi-lagi menggunakan script nomer 2 di atas) dengan waktu mulai, proses ini bisa langsung digabungkan dengan script untuk menampilkan message box 1 baris script semoga penjelasannya bisa dipahami, Jan gak menyertakan script ya.. soalnya kan cuma 3 baris yang dibutuhkan xixixi ^_^ Wassalamu'alaikum wr. wb., -Miss Jan Raisin- Pada 14 April 2014 11.45, Heri Pamungkas ( Gmail ) ghery.dha...@gmail.com mailto:ghery.dha...@gmail.com menulis: -- السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. Hehehe, Saya sedang coba-coba main VB nih. Saya bikin script sederhana bunyinya begini : Sheets(ILev).Visible = True Sheets(mDBeg).Visible = True Sheets(mDH-1).Visible = True Sheets(mDH).Visible = True Sheets(Ostd).Visible = True Pertanyannya, Bagaimana caranya agar saya bisa tahu Berapa waktu kalkulasi script diatas dengan MsgBox ?! وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards,
Re: [belajar-excel] Waktu Kalkulasi VB
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 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, On 14/04/2014 16:38, Jan Raisin wrote: Wa'alaikumsalam wr. wb., Pak Heri, coba langkah-langkah seperti berikut ini: 1. deklarasikan sebuah variabel bertipe single untuk menyimpan waktu mulai 1 baris script 2. cara mengambil waktu mulai atau selesai adalah menggunakan script Timer 3. 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 4. satu baris setelah script yang ada, lakukan pengurangan antara waktu selesai (lagi-lagi menggunakan script nomer 2 di atas) dengan waktu mulai, proses ini bisa langsung digabungkan dengan script untuk menampilkan message box 1 baris script semoga penjelasannya bisa dipahami, Jan gak menyertakan script ya.. soalnya kan cuma 3 baris yang dibutuhkan xixixi ^_^ Wassalamu'alaikum wr. wb., -Miss Jan Raisin- Pada 14 April 2014 11.45, Heri Pamungkas ( Gmail ) ghery.dha...@gmail.com mailto:ghery.dha...@gmail.com menulis: -- السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Semangat pagi,. Hehehe, Saya sedang coba-coba main VB nih. Saya bikin script sederhana bunyinya begini : Sheets(ILev).Visible = True Sheets(mDBeg).Visible = True Sheets(mDH-1).Visible = True Sheets(mDH).Visible = True Sheets(Ostd).Visible = True Pertanyannya, Bagaimana caranya agar saya bisa tahu Berapa waktu kalkulasi script diatas dengan MsgBox ?! وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Warm Regards,
Re: [belajar-excel] Waktu Kalkulasi VB
Wa'alaikumsalam wr. wb., pak Heri, di komputer Jan scriptnya sudah berjalan dengan baik kok.. ini hasilnya.. [image: Gambar sisip 1] Mungkin spek komputernya lebih bagus dari komputer Jan [?][?][?] hiks.. jadinya lebih cepet prosesnya Tukeran dong komputernya.. [image: Gambar sisip 2][image: Gambar sisip 2][image: Gambar sisip 2] Wassalam, -Miss Jan Raisin- Pada 15 April 2014 09.34, Heri Pamungkas ( Gmail ) ghery.dha...@gmail.commenulis: السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ 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, inline: pict-001.pnginline: image.pnginline: 334.gif
[belajar-excel] Waktu Kalkulasi VB
-- ?? ?? ?? ? ? Semangat pagi,. Hehehe, Saya sedang coba-coba main VB nih. Saya bikin script sederhana bunyinya begini : Sheets(ILev).Visible = True Sheets(mDBeg).Visible = True Sheets(mDH-1).Visible = True Sheets(mDH).Visible = True Sheets(Ostd).Visible = True Pertanyannya, Bagaimana caranya agar saya bisa tahu Berapa waktu kalkulasi script diatas dengan MsgBox ?! ?? ?? ? ? Warm Regards,
