Keberadaan suatu SHEET di dalam sebuah workbook jika diTEBAK namanya, akan
menghasilkan dua kemungkinan:
Sheet itu memang ada atau Sheet itu tidak ada
Karena keperluan seperti ini (=menebak keberadaan sheet yg anda ketahui
NAMANYA) akan sering terpakai, maka lebih keren kalau anda punya simpanan
UDF untuk keperluan tsb (sebab VBA sendiri belum menyediakan fungsi spt
itu)
Misal UDF diberi NAMA * IsSheetFound*
Nantinya didalam program anda dapat digunakan
If IsSheetFound(*"JaranDipecut"*) Then
-- tindakan kalau Sheet "Jaran" memang ada
Else
-- tindakan kalau Sheet "Jaran" ternyata heuweuh ' 'teuk aya..
End if
Berikut ini dicontohkan 3 fungsi/UDF IsSheetOpen
Function *IsSheetFound1*(WsName As String) As Boolean
Dim Ws As Worksheet
On Error Resume Next
Set Ws = Sheets(WsName)
If *Not* Ws Is Nothing Then IsSheetFound1 = True
End Function
'--------------------
Function *IsSheetFound2*(ShName As String) As Boolean
On Error Resume Next
IsSheetFound2 = Sheets(ShName).Name <> ""
End Function
'---------------------
Function *IsSheetFound3*(NamaSht As String) As Boolean
Dim Sht As Worksheet
For Each Sht In Worksheets
If Sht.Name = NamaSht Then
IsSheetFound3 = True
Exit For
End If
Next Sht
End Function
Prosedur yg terpendek itu buatan Pak Anton (Summonery); Sedangkan 2 yg agak
penjang, ditulis oleh tante bidadari...
Di milis ini sekitar setahun y.l. pernah ada diskusi Seru, Ramai dan Meriah
mengenai membuat fungsi IsSheetFound (dan IsWBookOpen)
File kompilasi hasil diskusi masih dapat diunduh di Folder_Bidadari: (ini
link-nya)
http://www.box.com/s/579d4e3d45077b0899f4
On Fri, Mar 30, 2012 at 12:13 PM, <[email protected]> wrote:
> **
>
> dear all,
> mohon dibantu lagi.
>
> saya ingin mendeteksi dulu dalam 1 workbook, apakah ada sheet yang dituju,
> bila ada nanti nya akan ada action berikutnya. saya masih bingung
> bagaimana
> cara deteksinya.
> yang saya buat seperti ini (misal sheet nya ingin di delete) :
>
> If Worksheets.Name = "hapus" Then
> Sheets("hapus").Delete
> End If
>
> tapi malah muncul warning kira2 bunyinya "object or method not find".
> penulisan deteksi sheet tersebut saya contek dari sheet nya pak Hendrik
> tentang workbook dibuat expired.
> kira2 salahnya dimana ya?
> maaf kalau pertanyaannya newbie bgt.
>
> salam
> vega
>
>
