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.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, > > >
<<inline: pict-001.png>>
<<inline: image.png>>
<<inline: 334.gif>>