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>>
