Bagaimana kalau Sub A dan Sub B diubah dikit menjadi :
Sub A(*optional lFlag as long=0*)
Dim xtimer as variant
xtimer = time
'kemudian macronya...sebut saja bla.. bla..
*if lFlag=0 then*
msgbox "selesai dalam" & xtimer
*endif*
End Sub
Sub B(*optional lFlag as long=0*)
Dim xtimer as variant
xtimer = time
'kemudian macronya...sebut saja bla.. bla..
*if lFlag=0 then*
msgbox "selesai dalam" & xtimer
*endif*
End Sub
Sub PanggilA_B()
Dim xtimer as variant
xtimer = time
Call A *123*
Call B *123*
msgbox "selesai dalam" & xtimer
End Sub
Kid.
2011/9/3 Selvrida Kusumawati <[email protected]>
> **
>
>
> Dear temans,
>
> Salam kenal dan ijinkan ku bertanya yaa... jika ku punya banyak macro tapi
> di setiap makro nya ada msgbox ttg timer
> timer ini diperlukan untuk mengetahui berapa lama proses makro yg ada
>
> contohnya:
> modul A
> Sub A()
> Dim xtimer as variant
> xtimer = time
> 'kemudian macronya...sebut saja bla.. bla..
> msgbox "selesai dalam" & xtimer
> End Sub
>
> lalu ada lagi modul B
> Sub B()
> Dim xtimer as variant
> xtimer = time
> 'kemudian macronya...sebut saja bla.. bla..
> msgbox "selesai dalam" & xtimer
> End sub
>
> Saya ingin menjalankan modul A dan Modul B melalui modul C, tetapi
> mengabaikan msgbox timer di masing-masing modul A dan modul B
> Contohnya
>
> Sub PanggilA_B()
> Dim xtimer as variant
> xtimer = time
> Call A
> Call B
> msgbox "selesai dalam" & xtimer
> End Sub
>
> Kira-kira gimana caranya skip msgbox timer di modul A dan B, jadi yang
> jalan adalah msgbox timer di modul PanggilA_B saja yaa
>
> mhon maaf jika kurang jelas... terima kasih dan semoga berkenan menjawabnya
> yaa
>
> salam hangat,
> selvi
>
>
>
>
>
