waaaa ini namanya langsung ke sasaran atau bhs jawanya *Tunjek-poin* tidak perlu If If an, Namafungsi langsung diisi dengan hasil perbandingan
SheetFound2 = (Sheets(ShName).Name <> "") Bagian yg dicat merah itu sudah dengan sendirinya akan benilai False atau True Terima kasih pak Anton, coding dari Pak Anton sudah siti tambahkan ke file yg ada di http://www.box.net/shared/17vdmfcdk4 2011/6/6 summonery <[email protected]> > coba juga, > > Function SheetFound2(ShName As String) As Boolean > On Error Resume Next > SheetFound2 = Sheets(ShName).Name <> "" > End Function > > Function IsOpen2(WbName As String) As Boolean > On Error Resume Next > IsOpen2 = Workbooks(WbName).Name <> "" > End Function > > >semoga bermanfaat > > > --- In [email protected], "STDEV(i)" <setiyowati.devi@...> > wrote: > > Function IsOpen(WbName As String) As Boolean > > Dim wb As Workbook > > On Error Resume Next > > Set wb = Workbooks(WbName) > > If Not wb Is Nothing Then IsOpen = True > > End Function > > > > Function Terbukakah(NmBook As String) As Boolean > > Dim book As Workbook > > For Each book In Workbooks > > If book.Name = NmBook Then > > Terbukakah = True > > Exit For > > End If > > Next book > > End Function > > > > > > *2 Apakah sebuah workbook (diketahui nama-book-nya) sudah TERBUKA * > > dalam dua versi : Tanpa looping -vs- menggunakan looping > > > > Function SheetFound(WsName As String) As Boolean > > Dim Ws As Worksheet > > On Error Resume Next > > Set Ws = Sheets(WsName) > > If Not Ws Is Nothing Then SheetFound = True > > End Function > > > > > > Function Adakah(NamaSht As String) As Boolean > > Dim Sht As Worksheet > > For Each ws In Worksheets > > If Sht.Name = NamaSht Then > > Adakah = True > > Exit For > > End If > > Next Sht > > End Function > > '------------------------------------------------- > > > > *Pelajaran yg mungkin didapat dari project ini:* > > * bahwa selain ada Prosedur Sub, ada juga *prosedur Function* > > * hasil suatu komputasi di sebuah Prosedur Function, akhirnya selalu > > / harus diberikan kepada Variable NamaFungsi > > * looping didalam sebuah koleksi object > > * menyaring data / object dgn kriteria tertentu selama Looping berjalan. > > * upaya mempercepat tercapainya tujuan (mempersingkat running time) > > * Kadang proses yg memerlukan looping, bisa digantikan oleh trick lain > > * Penggunaan On Error Resume Next > > * Perbedaan mengAssign /mengisi variable Object vs Variable data > > * VBA mengenal adanya Nilai Default sebuah variable sejak dideklarasikan. > > > > ** bagi members yg memerlukan fil tsb, kapan saja masih bisa mendownload > > dari: > > http://www.box.net/shared/17vdmfcdk4 > > > > Bluewater, 4 Juni 2011 > > "hormat kami", > > STDEV(i) >
