السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
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,