15 New Messages
Digest #2154
Messages
Wed Mar 13, 2013 5:53 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Oow berarti harus manual ya,
Ok deh thanks, saya kira computer name udah cukup ...
Thanks
2013/3/11, Mr. Kid <mr.nmkid@gmail.com >:
> Hai Heru,
>
> Mungkin begini :
> 1. Jika workbook tersebut adalah sebuah shared workbook, coba script :
> Dim wbkA As Workbook
> Dim wbkS As Workbook
> Dim rngA As Range
> Dim lRow As Long
> Dim vUser As Variant
> Set wbkA = ThisWorkbook
> Set wbkS = Workbooks.Open(wbkA.Path & "\dt.xlsx")
> wbkA.Activate
> vUser = wbkS.UserStatus
> For lRow = 1 To UBound(vUser, 1)
> Debug.Print vUser(lRow, 1)
> Next lRow
>
> 2. Jika workbook tersebut bukan shared workbook dan boleh berisi VBA, bisa
> dengan meletakkan script berikut pada event workbook open dan workbook
> before save untuk melakukan pencatatan pengguna file.
> Dim rng As Range
> Dim lRec As Long
>
> Set rng = Sheet1.Range("g1")
> With rng
> lRec = .CurrentRegion.Rows.Count
> With .Offset(lRec)
> .Value = Environ("COMPUTERNAME")
> .Offset(0, 1).Value = Environ("LOGONSERVER";)
> .Offset(0, 2).Value = Environ("USERDOMAIN")
> .Offset(0, 3).Value = Environ("USERNAME")
> .Offset(0, 4).Value = Now
> End With
> End With
>
> Dari ComputerName bisa diperoleh IP Address menggunakan Ping.
>
> kaya gitu kali ya...
>
> Wassalamu'alaikum Wr. Wb.,
> Kid.
>
> 2013/3/9 Heru Safrudin <superheruu@gmail.com >
>
>> Dear Master,
>>
>> Saya punya file yang saya taruh di sharing folder
>> Saya ingin tahu siapa saja yang membuka/menggunakan file yang saya
>> sharing
>> Bisakah kita tahu no IP pengguna ?
>>
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-subscribe@yahoogroups.com
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@yahoogroups.com
>>
>> berkunjung ke web milis
>> http://tech.groups.yahoo.com/group/belajar-excel/messages
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-belajar-excel.1048464.n5.nabble.com/
>>
>> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>>
>> keluar dari membership milis (UnSubscribe):
>> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
Ok deh thanks, saya kira computer name udah cukup ...
Thanks
2013/3/11, Mr. Kid <mr.nmkid@gmail.
> Hai Heru,
>
> Mungkin begini :
> 1. Jika workbook tersebut adalah sebuah shared workbook, coba script :
> Dim wbkA As Workbook
> Dim wbkS As Workbook
> Dim rngA As Range
> Dim lRow As Long
> Dim vUser As Variant
> Set wbkA = ThisWorkbook
> Set wbkS = Workbooks.Open(
> wbkA.Activate
> vUser = wbkS.UserStatus
> For lRow = 1 To UBound(vUser, 1)
> Debug.Print vUser(lRow, 1)
> Next lRow
>
> 2. Jika workbook tersebut bukan shared workbook dan boleh berisi VBA, bisa
> dengan meletakkan script berikut pada event workbook open dan workbook
> before save untuk melakukan pencatatan pengguna file.
> Dim rng As Range
> Dim lRec As Long
>
> Set rng = Sheet1.Range(
> With rng
> lRec = .CurrentRegion.
> With .Offset(lRec)
> .Value = Environ("
> .Offset(0, 1).Value = Environ("
> .Offset(0, 2).Value = Environ("
> .Offset(0, 3).Value = Environ("
> .Offset(0, 4).Value = Now
> End With
> End With
>
> Dari ComputerName bisa diperoleh IP Address menggunakan Ping.
>
> kaya gitu kali ya...
>
> Wassalamu'
> Kid.
>
> 2013/3/9 Heru Safrudin <superheruu@gmail.
>
>> Dear Master,
>>
>> Saya punya file yang saya taruh di sharing folder
>> Saya ingin tahu siapa saja yang membuka/menggunakan file yang saya
>> sharing
>> Bisakah kita tahu no IP pengguna ?
>>
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------
>>
>> ------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
Wed Mar 13, 2013 6:04 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Dear Master,
1. Apakah error handler On Error Resume Next akan me-resume setiap
baris kode yang terdapat error, atau cuma satu baris yang kedapatan
error pertama.
2. Bagaimana cara menghentikan error handling resume next yang sudah
terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
untuk dihandling errornya (biar bisa cek errornya)
--
Terima kasih
������������ ���������� ���������� ����� �������������
Heru Safrudin
1. Apakah error handler On Error Resume Next akan me-resume setiap
baris kode yang terdapat error, atau cuma satu baris yang kedapatan
error pertama.
2. Bagaimana cara menghentikan error handling resume next yang sudah
terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
untuk dihandling errornya (biar bisa cek errornya)
--
Terima kasih
������������ ���������� ���������� ����� �������������
Heru Safrudin
Wed Mar 13, 2013 7:12 pm (PDT) . Posted by:
"Jan Raisin"
Pak Heru,
berdasarkan pengalaman Jan, statement On Error Resume Next akan mengabaikan
setiap error yang muncul pada saat runtime error, bukan hanya pada error
pertama saja tetapi untuk seluruh error yang muncul.
Jika ingin melakukan pengecekan atas error yang muncul bisa menggunakan
label yang ditulis di baris sebelum penutup suatu procedure, misalnya
dengan membuat script seperti ini:
Sub SomeThing ()
On Error Goto CekError
' <script di sini mungkin akan memunculkan error pada saat program
dijalankan>
CekError:
' <script saat ditemukan error, misal seperti ini:>
MsgBox "Error " & Err & ": " & Error(Err.Number)
End Sub
Semoga gak salah-salah amat qiqiqiqi :D
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2013 08.04, Heru Safrudin <superheruu@gmail.com > menulis:
> Dear Master,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap
> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
> error pertama.
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
> untuk dihandling errornya (biar bisa cek errornya)
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-subscribe@yahoogroups.com
>
> posting ke milis, kirimkan ke:
> belajar-excel@yahoogroups.com
>
> berkunjung ke web milis
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> melihat file archive / mendownload lampiran
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
>
> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
berdasarkan pengalaman Jan, statement On Error Resume Next akan mengabaikan
setiap error yang muncul pada saat runtime error, bukan hanya pada error
pertama saja tetapi untuk seluruh error yang muncul.
Jika ingin melakukan pengecekan atas error yang muncul bisa menggunakan
label yang ditulis di baris sebelum penutup suatu procedure, misalnya
dengan membuat script seperti ini:
Sub SomeThing ()
On Error Goto CekError
' <script di sini mungkin akan memunculkan error pada saat program
dijalankan>
CekError:
' <script saat ditemukan error, misal seperti ini:>
MsgBox "Error " & Err & ": " & Error(Err.Number)
End Sub
Semoga gak salah-salah amat qiqiqiqi :D
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2013 08.04, Heru Safrudin <superheruu@gmail.
> Dear Master,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap
> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
> error pertama.
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
> untuk dihandling errornya (biar bisa cek errornya)
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
Wed Mar 13, 2013 7:21 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Terima kasih Miss Jan,
artinya setelah label CekError dijalankan, apakah error handler sudah
tidak aktif ?
Atau masih melakukan cek error script dibawahnya ?
Sub SomeThing ()
On Error Goto CekError
' <script di sini mungkin akan memunculkan error pada saat program dijalankan>
CekError:
' <script saat ditemukan error, misal seperti ini:>
MsgBox "Error " & Err & ": " & Error(Err.Number)
End Sub
Pada tanggal 14/03/13, Jan Raisin <miss.jan.raisin@gmail.com > menulis:
> Pak Heru,
>
> berdasarkan pengalaman Jan, statement On Error Resume Next akan mengabaikan
> setiap error yang muncul pada saat runtime error, bukan hanya pada error
> pertama saja tetapi untuk seluruh error yang muncul.
>
> Jika ingin melakukan pengecekan atas error yang muncul bisa menggunakan
> label yang ditulis di baris sebelum penutup suatu procedure, misalnya
> dengan membuat script seperti ini:
>
> Sub SomeThing ()
>
> On Error Goto CekError
>
> ' <script di sini mungkin akan memunculkan error pada saat program
> dijalankan>
>
> CekError:
> ' <script saat ditemukan error, misal seperti ini:>
> MsgBox "Error " & Err & ": " & Error(Err.Number)
>
> End Sub
>
> Semoga gak salah-salah amat qiqiqiqi :D
>
> Wassalam,
>
> -Miss Jan Raisin-
>
> Pada 14 Maret 2013 08.04, Heru Safrudin <superheruu@gmail.com > menulis:
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-subscribe@yahoogroups.com
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@yahoogroups.com
>>
>> berkunjung ke web milis
>> http://tech.groups.yahoo.com/group/belajar-excel/messages
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-belajar-excel.1048464.n5.nabble.com/
>>
>> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>>
>> keluar dari membership milis (UnSubscribe):
>> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
artinya setelah label CekError dijalankan, apakah error handler sudah
tidak aktif ?
Atau masih melakukan cek error script dibawahnya ?
Sub SomeThing ()
On Error Goto CekError
' <script di sini mungkin akan memunculkan error pada saat program dijalankan>
CekError:
' <script saat ditemukan error, misal seperti ini:>
MsgBox "Error " & Err & ": " & Error(Err.Number)
End Sub
Pada tanggal 14/03/13, Jan Raisin <miss.jan.raisin@
> Pak Heru,
>
> berdasarkan pengalaman Jan, statement On Error Resume Next akan mengabaikan
> setiap error yang muncul pada saat runtime error, bukan hanya pada error
> pertama saja tetapi untuk seluruh error yang muncul.
>
> Jika ingin melakukan pengecekan atas error yang muncul bisa menggunakan
> label yang ditulis di baris sebelum penutup suatu procedure, misalnya
> dengan membuat script seperti ini:
>
> Sub SomeThing ()
>
> On Error Goto CekError
>
> ' <script di sini mungkin akan memunculkan error pada saat program
> dijalankan>
>
> CekError:
> ' <script saat ditemukan error, misal seperti ini:>
> MsgBox "Error " & Err & ": " & Error(Err.Number)
>
> End Sub
>
> Semoga gak salah-salah amat qiqiqiqi :D
>
> Wassalam,
>
> -Miss Jan Raisin-
>
> Pada 14 Maret 2013 08.04, Heru Safrudin <superheruu@gmail.
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------
>>
>> ------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
Wed Mar 13, 2013 7:26 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Hai Heru,
1. Apakah error handler On Error Resume Next akan me-resume setiap baris
kode yang terdapat error, atau cuma satu baris yang kedapatan error pertama.
>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
'kalau ketemu error, cuekin aje bro'
>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
berikutnya.
>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
setelah bertemu baris error itu pantas dieksekusi atau tidak.*
Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
hanya berisi 3 sheet saja)
public sub SekedarContoh()
on error resume next
if sheets(23).name = "kid" then
msgbox "sheets bernama kid adalah sheet-ku",vbinformation
else
msgbox "ternyata bukan sheet bernama kid",vbexclamation
endif
msgbox "coba sheet lain ah",vbinformation
if sheets(17).name="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinformation
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
endif
end sub
Jika di eksekusi, maka akan muncul error di baris :
if sheets(23).name = "kid" then
karena tidak ada sheet ke-23 dalam tab sheet.
ketika diminta untuk dicuekin, maka dieksekusilah baris :
msgbox "sheets bernama kid adalah sheet-ku",vbinformation
loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
dalam msgbox (IF kok bernilai TRUE) ?
Begitu juga ketika bertemu baris :
if sheets(17).name="kid" then
Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
prosedur menjadi :
public sub SekedarContohAntisipasi()
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23).name
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku",vbinformation
else
msgbox "ternyata bukan sheet bernama kid",vbexclamation
endif
msgbox "coba sheet lain ah",vbinformation
*sNamaSheet *=sheets(17).name
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinformation
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
endif
end sub
2. Bagaimana cara menghentikan error handling resume next yang sudah
terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
dihandling errornya (biar bisa cek errornya)
>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
dengan On Error Goto sesuatu
>> sesuatu bisa berisi nomor baris atau label tertentu.
>> Contoh :
public sub SekedarContohPengalihan()
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23).name
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku",vbinformation
else
msgbox "ternyata bukan sheet bernama kid",vbexclamation
endif
msgbox "coba sheet lain ah",vbinformation
*on error goto 0*
*sNamaSheet *=sheets(17).name
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinformation
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
endif
end sub
pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
error maka tetaplah pada baris error tersebut (Goto baris 0)
dan hal ini akan memunculkan dialog debug.
Contoh dengan label :
public sub SekedarContohLabel()
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23).name
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku",vbinformation
else
msgbox "ternyata bukan sheet bernama kid",vbexclamation
endif
msgbox "coba sheet lain ah",vbinformation
*on error goto PesanKu*
*sNamaSheet *=sheets(17).name
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinformation
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
endif
*PesanKu:*
msgbox "Yah error di sheet ke-17 deh",vbexclamation
end sub
Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
error, pergilah ke label bernama 'PesanKu'
Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
di dekat End Sub itu akan selalu dieksekusi.
Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
terjadi error dengan object bernama Err yang memiliki beberapa properti
seperti Number.
Contoh :
public sub SekedarContohLabelErrorSaja()
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23).name
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku",vbinformation
else
msgbox "ternyata bukan sheet bernama kid",vbexclamation
endif
msgbox "coba sheet lain ah",vbinformation
*on error goto PesanKu*
*sNamaSheet *=sheets(17).name
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinformation
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
endif
*PesanKu:*
if err.number <> 0 then
msgbox "Yah error di sheet ke-17 deh",vbexclamation
endif
end sub
Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
PesanKu akan dieksekusi.
Jika error pertama (akibat baris : *sNamaSheet *=sheets(23).name) sedangkan
pada baris *sNamaSheet *=sheets(17).name tidak error, maka msgbox tetap
dieksekusi karena status object err masih ada nilainya akibat error pertama
baris *sNamaSheet *=sheets(23).name
Agar tidak salah tangkap, maka error akibat baris *sNamaSheet *=sheets(23).name
harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
dengan memanfaatkan methods clear milik object err.
Contoh :
public sub SekedarContohLabelErrorSaja()
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23).name
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku",vbinformation
else
msgbox "ternyata bukan sheet bernama kid",vbexclamation
endif
msgbox "coba sheet lain ah",vbinformation
*Err.Clear*
*on error goto PesanKu*
*sNamaSheet *=sheets(17).name
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinformation
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
endif
*PesanKu:*
if err.number <> 0 then
msgbox "Yah error di sheet ke-17 deh",vbexclamation
endif
end sub
Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
memiliki banyak properti seperti Number, Description, dsb, yang juga
memiliki methods Clear untuk menghapus error yang pernah terjadi.
gitu kali ya.
Wassalamu'alaikum Wr. Wb.,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.com >
> Dear Master,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap
> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
> error pertama.
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
> untuk dihandling errornya (biar bisa cek errornya)
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-subscribe@yahoogroups.com
>
> posting ke milis, kirimkan ke:
> belajar-excel@yahoogroups.com
>
> berkunjung ke web milis
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> melihat file archive / mendownload lampiran
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
>
> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
Hai Heru,
1. Apakah error handler On Error Resume Next akan me-resume setiap baris
kode yang terdapat error, atau cuma satu baris yang kedapatan error pertama.
>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
'kalau ketemu error, cuekin aje bro'
>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
berikutnya.
>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
setelah bertemu baris error itu pantas dieksekusi atau tidak.*
Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
hanya berisi 3 sheet saja)
public sub SekedarContoh(
on error resume next
if sheets(23).name = "kid" then
msgbox "sheets bernama kid adalah sheet-ku"
else
msgbox "ternyata bukan sheet bernama kid",vbexclama
endif
msgbox "coba sheet lain ah",vbinformat
if sheets(17).name=
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinforma
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
endif
end sub
Jika di eksekusi, maka akan muncul error di baris :
if sheets(23).name = "kid" then
karena tidak ada sheet ke-23 dalam tab sheet.
ketika diminta untuk dicuekin, maka dieksekusilah baris :
msgbox "sheets bernama kid adalah sheet-ku"
loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
dalam msgbox (IF kok bernilai TRUE) ?
Begitu juga ketika bertemu baris :
if sheets(17).name=
Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
prosedur menjadi :
public sub SekedarContohAntisi
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23)
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku"
else
msgbox "ternyata bukan sheet bernama kid",vbexclama
endif
msgbox "coba sheet lain ah",vbinformat
*sNamaSheet *=sheets(17)
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinforma
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
endif
end sub
2. Bagaimana cara menghentikan error handling resume next yang sudah
terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
dihandling errornya (biar bisa cek errornya)
>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
dengan On Error Goto sesuatu
>> sesuatu bisa berisi nomor baris atau label tertentu.
>> Contoh :
public sub SekedarContohPengal
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23)
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku"
else
msgbox "ternyata bukan sheet bernama kid",vbexclama
endif
msgbox "coba sheet lain ah",vbinformat
*on error goto 0*
*sNamaSheet *=sheets(17)
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinforma
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
endif
end sub
pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
error maka tetaplah pada baris error tersebut (Goto baris 0)
dan hal ini akan memunculkan dialog debug.
Contoh dengan label :
public sub SekedarContohLabel(
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23)
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku"
else
msgbox "ternyata bukan sheet bernama kid",vbexclama
endif
msgbox "coba sheet lain ah",vbinformat
*on error goto PesanKu*
*sNamaSheet *=sheets(17)
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinforma
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
endif
*PesanKu:*
msgbox "Yah error di sheet ke-17 deh",vbexclama
end sub
Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
error, pergilah ke label bernama 'PesanKu&#
Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
di dekat End Sub itu akan selalu dieksekusi.
Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
terjadi error dengan object bernama Err yang memiliki beberapa properti
seperti Number.
Contoh :
public sub SekedarContohLabelE
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23)
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku"
else
msgbox "ternyata bukan sheet bernama kid",vbexclama
endif
msgbox "coba sheet lain ah",vbinformat
*on error goto PesanKu*
*sNamaSheet *=sheets(17)
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinforma
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
endif
*PesanKu:*
if err.number <> 0 then
msgbox "Yah error di sheet ke-17 deh",vbexclama
endif
end sub
Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
PesanKu akan dieksekusi.
Jika error pertama (akibat baris : *sNamaSheet *=sheets(23)
pada baris *sNamaSheet *=sheets(17)
dieksekusi karena status object err masih ada nilainya akibat error pertama
baris *sNamaSheet *=sheets(23)
Agar tidak salah tangkap, maka error akibat baris *sNamaSheet *=sheets(23)
harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
dengan memanfaatkan methods clear milik object err.
Contoh :
public sub SekedarContohLabelE
* dim sNamaSheet as string
* on error resume next
*sNamaSheet *=sheets(23)
if *sNamaSheet * = "kid" then
msgbox "sheets bernama kid adalah sheet-ku"
else
msgbox "ternyata bukan sheet bernama kid",vbexclama
endif
msgbox "coba sheet lain ah",vbinformat
*Err.Clear*
*on error goto PesanKu*
*sNamaSheet *=sheets(17)
if *sNamaSheet *="kid" then
msgbox "yang ini adalah sheet-ku, karena bernama
kid",vbinforma
else
msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
endif
*PesanKu:*
if err.number <> 0 then
msgbox "Yah error di sheet ke-17 deh",vbexclama
endif
end sub
Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
memiliki banyak properti seperti Number, Description, dsb, yang juga
memiliki methods Clear untuk menghapus error yang pernah terjadi.
gitu kali ya.
Wassalamu'
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.
> Dear Master,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap
> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
> error pertama.
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
> untuk dihandling errornya (biar bisa cek errornya)
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
Wed Mar 13, 2013 7:46 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Apakah Artinya begini :
Jika diatas udah dipasang On Error resume next (proses pencuekan)
kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
berarti PENCUEKAN telah diakhiri ??
Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Wa'alaikumussalam Wr. Wb.
>
> Hai Heru,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> kode yang terdapat error, atau cuma satu baris yang kedapatan error
> pertama.
>>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> 'kalau ketemu error, cuekin aje bro'
>>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
> nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> berikutnya.
>>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> setelah bertemu baris error itu pantas dieksekusi atau tidak.*
> Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> hanya berisi 3 sheet saja)
> public sub SekedarContoh()
> on error resume next
>
> if sheets(23).name = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
>
> if sheets(17).name="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> Jika di eksekusi, maka akan muncul error di baris :
> if sheets(23).name = "kid" then
> karena tidak ada sheet ke-23 dalam tab sheet.
> ketika diminta untuk dicuekin, maka dieksekusilah baris :
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> dalam msgbox (IF kok bernilai TRUE) ?
> Begitu juga ketika bertemu baris :
> if sheets(17).name="kid" then
>
> Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> prosedur menjadi :
> public sub SekedarContohAntisipasi()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
>
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> dihandling errornya (biar bisa cek errornya)
>>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> dengan On Error Goto sesuatu
>>> sesuatu bisa berisi nomor baris atau label tertentu.
>>> Contoh :
> public sub SekedarContohPengalihan()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto 0*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> error maka tetaplah pada baris error tersebut (Goto baris 0)
> dan hal ini akan memunculkan dialog debug.
>
> Contoh dengan label :
> public sub SekedarContohLabel()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> end sub
>
> Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> error, pergilah ke label bernama 'PesanKu'
> Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> di dekat End Sub itu akan selalu dieksekusi.
> Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
> terjadi error dengan object bernama Err yang memiliki beberapa properti
> seperti Number.
> Contoh :
> public sub SekedarContohLabelErrorSaja()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> endif
> end sub
>
> Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> PesanKu akan dieksekusi.
> Jika error pertama (akibat baris : *sNamaSheet *=sheets(23).name) sedangkan
> pada baris *sNamaSheet *=sheets(17).name tidak error, maka msgbox tetap
> dieksekusi karena status object err masih ada nilainya akibat error pertama
> baris *sNamaSheet *=sheets(23).name
> Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> *=sheets(23).name
> harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> dengan memanfaatkan methods clear milik object err.
> Contoh :
> public sub SekedarContohLabelErrorSaja()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *Err.Clear*
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> endif
> end sub
>
>
> Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
> memiliki banyak properti seperti Number, Description, dsb, yang juga
> memiliki methods Clear untuk menghapus error yang pernah terjadi.
>
> gitu kali ya.
>
> Wassalamu'alaikum Wr. Wb.,
> Kid.
>
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.com >
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-subscribe@yahoogroups.com
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@yahoogroups.com
>>
>> berkunjung ke web milis
>> http://tech.groups.yahoo.com/group/belajar-excel/messages
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-belajar-excel.1048464.n5.nabble.com/
>>
>> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>>
>> keluar dari membership milis (UnSubscribe):
>> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
Jika diatas udah dipasang On Error resume next (proses pencuekan)
kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
berarti PENCUEKAN telah diakhiri ??
Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.
> Wa'alaikumussal
>
> Hai Heru,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> kode yang terdapat error, atau cuma satu baris yang kedapatan error
> pertama.
>>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> 'kalau ketemu error, cuekin aje bro'
>>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
> nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> berikutnya.
>>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> setelah bertemu baris error itu pantas dieksekusi atau tidak.*
> Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> hanya berisi 3 sheet saja)
> public sub SekedarContoh(
> on error resume next
>
> if sheets(23).name = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
>
> if sheets(17).name=
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> Jika di eksekusi, maka akan muncul error di baris :
> if sheets(23).name = "kid" then
> karena tidak ada sheet ke-23 dalam tab sheet.
> ketika diminta untuk dicuekin, maka dieksekusilah baris :
> msgbox "sheets bernama kid adalah sheet-ku"
> loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> dalam msgbox (IF kok bernilai TRUE) ?
> Begitu juga ketika bertemu baris :
> if sheets(17).name=
>
> Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> prosedur menjadi :
> public sub SekedarContohAntisi
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
>
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> dihandling errornya (biar bisa cek errornya)
>>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> dengan On Error Goto sesuatu
>>> sesuatu bisa berisi nomor baris atau label tertentu.
>>> Contoh :
> public sub SekedarContohPengal
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto 0*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> error maka tetaplah pada baris error tersebut (Goto baris 0)
> dan hal ini akan memunculkan dialog debug.
>
> Contoh dengan label :
> public sub SekedarContohLabel(
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> end sub
>
> Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> error, pergilah ke label bernama 'PesanKu&#
> Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> di dekat End Sub itu akan selalu dieksekusi.
> Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
> terjadi error dengan object bernama Err yang memiliki beberapa properti
> seperti Number.
> Contoh :
> public sub SekedarContohLabelE
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> endif
> end sub
>
> Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> PesanKu akan dieksekusi.
> Jika error pertama (akibat baris : *sNamaSheet *=sheets(23)
> pada baris *sNamaSheet *=sheets(17)
> dieksekusi karena status object err masih ada nilainya akibat error pertama
> baris *sNamaSheet *=sheets(23)
> Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> *=sheets(23)
> harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> dengan memanfaatkan methods clear milik object err.
> Contoh :
> public sub SekedarContohLabelE
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *Err.Clear*
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> endif
> end sub
>
>
> Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
> memiliki banyak properti seperti Number, Description, dsb, yang juga
> memiliki methods Clear untuk menghapus error yang pernah terjadi.
>
> gitu kali ya.
>
> Wassalamu'
> Kid.
>
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------
>>
>> ------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
Wed Mar 13, 2013 7:53 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Yup.
demikianlah kira-kiranya
Konsep dasarnya adalah mengalihkan proses ketika bertemu error (On Error)
jadi karena ada baris On Error setelah On Error Resume Next, jika baris On
Error baru itu tereksekusi, maka On Error Resume Next tidak berlaku lagi
karena pengalihan error dirujuk ke suatu tempat lain oleh On Error yang
baru.
Contoh :
On error resume next
'script yang error 1
on error goto Pesanku
'script yang error 2
on error goto 0
'script error 3
PesanKu:
msgbox "yup"
err.clear
on error goto 0
Pada script di atas, baris On error goto 0 sebelum script error 3 tidak
akan pernah dieksekusi jika ada error pada script yang error 2 karena akan
lompat ke Pesanku.
Pada bagian pesanku, ada pernyataan pengalihan On Error Goto 0
Jika prosedur berakhir (End Sub) maka semua error tidak akan dialihkan
ketempat lain melainkan ke baris yang error tersebut.
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.com >
> **
>
>
> Apakah Artinya begini :
> Jika diatas udah dipasang On Error resume next (proses pencuekan)
> kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
> berarti PENCUEKAN telah diakhiri ??
>
> Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> > Wa'alaikumussalam Wr. Wb.
> >
> > Hai Heru,
> >
> > 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> > kode yang terdapat error, atau cuma satu baris yang kedapatan error
> > pertama.
> >>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> > 'kalau ketemu error, cuekin aje bro'
> >>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya.
> Jika
> > nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> > berikutnya.
> >>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> > setelah bertemu baris error itu pantas dieksekusi atau tidak.*
>
> > Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> > hanya berisi 3 sheet saja)
> > public sub SekedarContoh()
> > on error resume next
> >
> > if sheets(23).name = "kid" then
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> >
> > if sheets(17).name="kid" then
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> > end sub
> >
> > Jika di eksekusi, maka akan muncul error di baris :
> > if sheets(23).name = "kid" then
> > karena tidak ada sheet ke-23 dalam tab sheet.
> > ketika diminta untuk dicuekin, maka dieksekusilah baris :
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> > dalam msgbox (IF kok bernilai TRUE) ?
> > Begitu juga ketika bertemu baris :
> > if sheets(17).name="kid" then
> >
> > Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> > adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> > prosedur menjadi :
> > public sub SekedarContohAntisipasi()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> >
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> > end sub
> >
> > 2. Bagaimana cara menghentikan error handling resume next yang sudah
> > terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> > dihandling errornya (biar bisa cek errornya)
> >>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
> >>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> > dengan On Error Goto sesuatu
> >>> sesuatu bisa berisi nomor baris atau label tertentu.
> >>> Contoh :
> > public sub SekedarContohPengalihan()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> > *on error goto 0*
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> > end sub
> >
> > pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> > error maka tetaplah pada baris error tersebut (Goto baris 0)
> > dan hal ini akan memunculkan dialog debug.
> >
> > Contoh dengan label :
> > public sub SekedarContohLabel()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> >
> > *PesanKu:*
>
> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
> > end sub
> >
> > Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> > error, pergilah ke label bernama 'PesanKu'
> > Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> > di dekat End Sub itu akan selalu dieksekusi.
> > Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika
> memang
> > terjadi error dengan object bernama Err yang memiliki beberapa properti
> > seperti Number.
> > Contoh :
> > public sub SekedarContohLabelErrorSaja()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> >
> > *PesanKu:*
>
> > if err.number <> 0 then
> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
> > endif
> > end sub
> >
> > Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> > PesanKu akan dieksekusi.
> > Jika error pertama (akibat baris : *sNamaSheet *=sheets(23).name)
> sedangkan
> > pada baris *sNamaSheet *=sheets(17).name tidak error, maka msgbox tetap
>
> > dieksekusi karena status object err masih ada nilainya akibat error
> pertama
> > baris *sNamaSheet *=sheets(23).name
> > Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> > *=sheets(23).name
>
> > harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> > dengan memanfaatkan methods clear milik object err.
> > Contoh :
> > public sub SekedarContohLabelErrorSaja()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> > *Err.Clear*
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> >
> > *PesanKu:*
>
> > if err.number <> 0 then
> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
> > endif
> > end sub
> >
> >
> > Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err
> yang
> > memiliki banyak properti seperti Number, Description, dsb, yang juga
> > memiliki methods Clear untuk menghapus error yang pernah terjadi.
> >
> > gitu kali ya.
> >
> > Wassalamu'alaikum Wr. Wb.,
> > Kid.
> >
> >
> > 2013/3/14 Heru Safrudin <superheruu@gmail.com >
> >
> >> Dear Master,
> >>
> >> 1. Apakah error handler On Error Resume Next akan me-resume setiap
> >> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
> >> error pertama.
> >>
> >> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> >> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
> >> untuk dihandling errornya (biar bisa cek errornya)
> >> --
> >> Terima kasih
> >>
> >> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> >> Heru Safrudin
> >>
> >>
> >> ------------------------------------
> >>
> >> ----------------------------------------------------------
> >> bergabung ke milis (subscribe), kirim mail kosong ke:
> >> belajar-excel-subscribe@yahoogroups.com
> >>
> >> posting ke milis, kirimkan ke:
> >> belajar-excel@yahoogroups.com
> >>
> >> berkunjung ke web milis
> >> http://tech.groups.yahoo.com/group/belajar-excel/messages
> >>
> >> melihat file archive / mendownload lampiran
> >> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> >> atau (sejak 25-Apr-2011) bisa juga di :
> >> http://milis-belajar-excel.1048464.n5.nabble.com/
> >>
> >> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
> >>
> >> keluar dari membership milis (UnSubscribe):
> >> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> >> ----------------------------------------------------------Yahoo!
> >> Groups Links
>
> >>
> >>
> >>
> >>
> >
>
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
>
demikianlah kira-kiranya
Konsep dasarnya adalah mengalihkan proses ketika bertemu error (On Error)
jadi karena ada baris On Error setelah On Error Resume Next, jika baris On
Error baru itu tereksekusi, maka On Error Resume Next tidak berlaku lagi
karena pengalihan error dirujuk ke suatu tempat lain oleh On Error yang
baru.
Contoh :
On error resume next
'script yang error 1
on error goto Pesanku
'script yang error 2
on error goto 0
'script error 3
PesanKu:
msgbox "yup"
err.clear
on error goto 0
Pada script di atas, baris On error goto 0 sebelum script error 3 tidak
akan pernah dieksekusi jika ada error pada script yang error 2 karena akan
lompat ke Pesanku.
Pada bagian pesanku, ada pernyataan pengalihan On Error Goto 0
Jika prosedur berakhir (End Sub) maka semua error tidak akan dialihkan
ketempat lain melainkan ke baris yang error tersebut.
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.
> **
>
>
> Apakah Artinya begini :
> Jika diatas udah dipasang On Error resume next (proses pencuekan)
> kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
> berarti PENCUEKAN telah diakhiri ??
>
> Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.
>
> > Wa'alaikumussal
> >
> > Hai Heru,
> >
> > 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> > kode yang terdapat error, atau cuma satu baris yang kedapatan error
> > pertama.
> >>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> > 'kalau ketemu error, cuekin aje bro'
> >>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya.
> Jika
> > nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> > berikutnya.
> >>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> > setelah bertemu baris error itu pantas dieksekusi atau tidak.*
>
> > Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> > hanya berisi 3 sheet saja)
> > public sub SekedarContoh(
> > on error resume next
> >
> > if sheets(23).name = "kid" then
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> >
> > if sheets(17).name=
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> > end sub
> >
> > Jika di eksekusi, maka akan muncul error di baris :
> > if sheets(23).name = "kid" then
> > karena tidak ada sheet ke-23 dalam tab sheet.
> > ketika diminta untuk dicuekin, maka dieksekusilah baris :
> > msgbox "sheets bernama kid adalah sheet-ku"
> > loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> > dalam msgbox (IF kok bernilai TRUE) ?
> > Begitu juga ketika bertemu baris :
> > if sheets(17).name=
> >
> > Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> > adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> > prosedur menjadi :
> > public sub SekedarContohAntisi
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> >
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> > end sub
> >
> > 2. Bagaimana cara menghentikan error handling resume next yang sudah
> > terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> > dihandling errornya (biar bisa cek errornya)
> >>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
> >>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> > dengan On Error Goto sesuatu
> >>> sesuatu bisa berisi nomor baris atau label tertentu.
> >>> Contoh :
> > public sub SekedarContohPengal
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> > *on error goto 0*
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> > end sub
> >
> > pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> > error maka tetaplah pada baris error tersebut (Goto baris 0)
> > dan hal ini akan memunculkan dialog debug.
> >
> > Contoh dengan label :
> > public sub SekedarContohLabel(
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> >
> > *PesanKu:*
>
> > msgbox "Yah error di sheet ke-17 deh",vbexclama
> > end sub
> >
> > Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> > error, pergilah ke label bernama 'PesanKu&#
> > Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> > di dekat End Sub itu akan selalu dieksekusi.
> > Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika
> memang
> > terjadi error dengan object bernama Err yang memiliki beberapa properti
> > seperti Number.
> > Contoh :
> > public sub SekedarContohLabelE
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> >
> > *PesanKu:*
>
> > if err.number <> 0 then
> > msgbox "Yah error di sheet ke-17 deh",vbexclama
> > endif
> > end sub
> >
> > Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> > PesanKu akan dieksekusi.
> > Jika error pertama (akibat baris : *sNamaSheet *=sheets(23)
> sedangkan
> > pada baris *sNamaSheet *=sheets(17)
>
> > dieksekusi karena status object err masih ada nilainya akibat error
> pertama
> > baris *sNamaSheet *=sheets(23)
> > Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> > *=sheets(23)
>
> > harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> > dengan memanfaatkan methods clear milik object err.
> > Contoh :
> > public sub SekedarContohLabelE
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> > *Err.Clear*
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> >
> > *PesanKu:*
>
> > if err.number <> 0 then
> > msgbox "Yah error di sheet ke-17 deh",vbexclama
> > endif
> > end sub
> >
> >
> > Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err
> yang
> > memiliki banyak properti seperti Number, Description, dsb, yang juga
> > memiliki methods Clear untuk menghapus error yang pernah terjadi.
> >
> > gitu kali ya.
> >
> > Wassalamu'
> > Kid.
> >
> >
> > 2013/3/14 Heru Safrudin <superheruu@gmail.
> >
> >> Dear Master,
> >>
> >> 1. Apakah error handler On Error Resume Next akan me-resume setiap
> >> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
> >> error pertama.
> >>
> >> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> >> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
> >> untuk dihandling errornya (biar bisa cek errornya)
> >> --
> >> Terima kasih
> >>
> >> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> >> Heru Safrudin
> >>
> >>
> >> ------------
> >>
> >> ------------
> >> bergabung ke milis (subscribe), kirim mail kosong ke:
> >> belajar-excel-
> >>
> >> posting ke milis, kirimkan ke:
> >> belajar-excel@
> >>
> >> berkunjung ke web milis
> >> http://tech.
> >>
> >> melihat file archive / mendownload lampiran
> >> http://www.mail-
> >> atau (sejak 25-Apr-2011) bisa juga di :
> >> http://milis-
> >>
> >> menghubungi moderators & owners: belajar-excel-
> >>
> >> keluar dari membership milis (UnSubscribe)
> >> kirim mail kosong ke belajar-excel-
> >> ------------
> >> Groups Links
>
> >>
> >>
> >>
> >>
> >
>
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
>
Wed Mar 13, 2013 8:05 pm (PDT) . Posted by:
"Jan Raisin"
pak Heru..
mungkin sederhananya begini:
Jika ketemu error dan si error akan dicuekin, gunakan saja On Error Resume
Next. hasilnya tiap ketemu error gak akan diapa apain.. dianggap bener saja
Jika ketemu error tapi errornya gak dicuekin tapi disapa.. gunakan saja On
Error Goto someting
yang dikasih warna merah itu adalah label, bisa diganti dengan kata yang
lain, yang akan akan digunakan untuk menentukan apakah baris di bawah error
akan terus dieksekusi atau.. keluar dari prosedur dan pindah ke prosedur
yang lain.
Jika ketemu error dan errornya ingin dicuekin, lalu error numbernya diset
ulang ke nilai defaultnya (sebelum ketemu error).. gunakan saja On Error
Goto 0
jadi penggunaannya adalah salah satu dari:
On Error Resume Next atau
On Error Goto 0 atau
On Error Goto TerserahMauKeMana
kira-kira begitu pak.
Penjelasan mr Kid sebelumnya sudah sangat jelas, Jan perlu banyak belajar
agar dapat menjelaskan secara detail seperti itu. ^_^
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2013 09.46, Heru Safrudin <superheruu@gmail.com > menulis:
> **
>
>
> Apakah Artinya begini :
> Jika diatas udah dipasang On Error resume next (proses pencuekan)
> kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
> berarti PENCUEKAN telah diakhiri ??
>
> Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> > Wa'alaikumussalam Wr. Wb.
> >
> > Hai Heru,
> >
> > 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> > kode yang terdapat error, atau cuma satu baris yang kedapatan error
> > pertama.
> >>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> > 'kalau ketemu error, cuekin aje bro'
> >>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya.
> Jika
> > nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> > berikutnya.
> >>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> > setelah bertemu baris error itu pantas dieksekusi atau tidak.*
>
> > Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> > hanya berisi 3 sheet saja)
> > public sub SekedarContoh()
> > on error resume next
> >
> > if sheets(23).name = "kid" then
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> >
> > if sheets(17).name="kid" then
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> > end sub
> >
> > Jika di eksekusi, maka akan muncul error di baris :
> > if sheets(23).name = "kid" then
> > karena tidak ada sheet ke-23 dalam tab sheet.
> > ketika diminta untuk dicuekin, maka dieksekusilah baris :
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> > dalam msgbox (IF kok bernilai TRUE) ?
> > Begitu juga ketika bertemu baris :
> > if sheets(17).name="kid" then
> >
> > Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> > adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> > prosedur menjadi :
> > public sub SekedarContohAntisipasi()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> >
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> > end sub
> >
> > 2. Bagaimana cara menghentikan error handling resume next yang sudah
> > terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> > dihandling errornya (biar bisa cek errornya)
> >>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
> >>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> > dengan On Error Goto sesuatu
> >>> sesuatu bisa berisi nomor baris atau label tertentu.
> >>> Contoh :
> > public sub SekedarContohPengalihan()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> > *on error goto 0*
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> > end sub
> >
> > pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> > error maka tetaplah pada baris error tersebut (Goto baris 0)
> > dan hal ini akan memunculkan dialog debug.
> >
> > Contoh dengan label :
> > public sub SekedarContohLabel()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> >
> > *PesanKu:*
>
> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
> > end sub
> >
> > Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> > error, pergilah ke label bernama 'PesanKu'
> > Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> > di dekat End Sub itu akan selalu dieksekusi.
> > Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika
> memang
> > terjadi error dengan object bernama Err yang memiliki beberapa properti
> > seperti Number.
> > Contoh :
> > public sub SekedarContohLabelErrorSaja()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> >
> > *PesanKu:*
>
> > if err.number <> 0 then
> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
> > endif
> > end sub
> >
> > Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> > PesanKu akan dieksekusi.
> > Jika error pertama (akibat baris : *sNamaSheet *=sheets(23).name)
> sedangkan
> > pada baris *sNamaSheet *=sheets(17).name tidak error, maka msgbox tetap
>
> > dieksekusi karena status object err masih ada nilainya akibat error
> pertama
> > baris *sNamaSheet *=sheets(23).name
> > Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> > *=sheets(23).name
>
> > harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> > dengan memanfaatkan methods clear milik object err.
> > Contoh :
> > public sub SekedarContohLabelErrorSaja()
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23).name
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclamation
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformation
> > *Err.Clear*
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17).name
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinformation
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> > endif
> >
> > *PesanKu:*
>
> > if err.number <> 0 then
> > msgbox "Yah error di sheet ke-17 deh",vbexclamation
> > endif
> > end sub
> >
> >
> > Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err
> yang
> > memiliki banyak properti seperti Number, Description, dsb, yang juga
> > memiliki methods Clear untuk menghapus error yang pernah terjadi.
> >
> > gitu kali ya.
> >
> > Wassalamu'alaikum Wr. Wb.,
> > Kid.
> >
> >
> > 2013/3/14 Heru Safrudin <superheruu@gmail.com >
> >
> >> Dear Master,
> >>
> >> 1. Apakah error handler On Error Resume Next akan me-resume setiap
> >> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
> >> error pertama.
> >>
> >> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> >> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
> >> untuk dihandling errornya (biar bisa cek errornya)
> >> --
> >> Terima kasih
> >>
> >> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> >> Heru Safrudin
> >>
> >>
> >> ------------------------------------
> >>
> >> ----------------------------------------------------------
> >> bergabung ke milis (subscribe), kirim mail kosong ke:
> >> belajar-excel-subscribe@yahoogroups.com
> >>
> >> posting ke milis, kirimkan ke:
> >> belajar-excel@yahoogroups.com
> >>
> >> berkunjung ke web milis
> >> http://tech.groups.yahoo.com/group/belajar-excel/messages
> >>
> >> melihat file archive / mendownload lampiran
> >> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> >> atau (sejak 25-Apr-2011) bisa juga di :
> >> http://milis-belajar-excel.1048464.n5.nabble.com/
> >>
> >> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
> >>
> >> keluar dari membership milis (UnSubscribe):
> >> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> >> ----------------------------------------------------------Yahoo!
> >> Groups Links
>
> >>
> >>
> >>
> >>
> >
>
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
>
mungkin sederhananya begini:
Jika ketemu error dan si error akan dicuekin, gunakan saja On Error Resume
Next. hasilnya tiap ketemu error gak akan diapa apain.. dianggap bener saja
Jika ketemu error tapi errornya gak dicuekin tapi disapa.. gunakan saja On
Error Goto someting
yang dikasih warna merah itu adalah label, bisa diganti dengan kata yang
lain, yang akan akan digunakan untuk menentukan apakah baris di bawah error
akan terus dieksekusi atau.. keluar dari prosedur dan pindah ke prosedur
yang lain.
Jika ketemu error dan errornya ingin dicuekin, lalu error numbernya diset
ulang ke nilai defaultnya (sebelum ketemu error).. gunakan saja On Error
Goto 0
jadi penggunaannya adalah salah satu dari:
On Error Resume Next atau
On Error Goto 0 atau
On Error Goto TerserahMauKeMana
kira-kira begitu pak.
Penjelasan mr Kid sebelumnya sudah sangat jelas, Jan perlu banyak belajar
agar dapat menjelaskan secara detail seperti itu. ^_^
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2013 09.46, Heru Safrudin <superheruu@gmail.
> **
>
>
> Apakah Artinya begini :
> Jika diatas udah dipasang On Error resume next (proses pencuekan)
> kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
> berarti PENCUEKAN telah diakhiri ??
>
> Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.
>
> > Wa'alaikumussal
> >
> > Hai Heru,
> >
> > 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> > kode yang terdapat error, atau cuma satu baris yang kedapatan error
> > pertama.
> >>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> > 'kalau ketemu error, cuekin aje bro'
> >>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya.
> Jika
> > nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> > berikutnya.
> >>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> > setelah bertemu baris error itu pantas dieksekusi atau tidak.*
>
> > Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> > hanya berisi 3 sheet saja)
> > public sub SekedarContoh(
> > on error resume next
> >
> > if sheets(23).name = "kid" then
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> >
> > if sheets(17).name=
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> > end sub
> >
> > Jika di eksekusi, maka akan muncul error di baris :
> > if sheets(23).name = "kid" then
> > karena tidak ada sheet ke-23 dalam tab sheet.
> > ketika diminta untuk dicuekin, maka dieksekusilah baris :
> > msgbox "sheets bernama kid adalah sheet-ku"
> > loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> > dalam msgbox (IF kok bernilai TRUE) ?
> > Begitu juga ketika bertemu baris :
> > if sheets(17).name=
> >
> > Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> > adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> > prosedur menjadi :
> > public sub SekedarContohAntisi
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> >
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> > end sub
> >
> > 2. Bagaimana cara menghentikan error handling resume next yang sudah
> > terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> > dihandling errornya (biar bisa cek errornya)
> >>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
> >>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> > dengan On Error Goto sesuatu
> >>> sesuatu bisa berisi nomor baris atau label tertentu.
> >>> Contoh :
> > public sub SekedarContohPengal
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> > *on error goto 0*
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> > end sub
> >
> > pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> > error maka tetaplah pada baris error tersebut (Goto baris 0)
> > dan hal ini akan memunculkan dialog debug.
> >
> > Contoh dengan label :
> > public sub SekedarContohLabel(
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> >
> > *PesanKu:*
>
> > msgbox "Yah error di sheet ke-17 deh",vbexclama
> > end sub
> >
> > Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> > error, pergilah ke label bernama 'PesanKu&#
> > Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> > di dekat End Sub itu akan selalu dieksekusi.
> > Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika
> memang
> > terjadi error dengan object bernama Err yang memiliki beberapa properti
> > seperti Number.
> > Contoh :
> > public sub SekedarContohLabelE
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> >
> > *PesanKu:*
>
> > if err.number <> 0 then
> > msgbox "Yah error di sheet ke-17 deh",vbexclama
> > endif
> > end sub
> >
> > Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> > PesanKu akan dieksekusi.
> > Jika error pertama (akibat baris : *sNamaSheet *=sheets(23)
> sedangkan
> > pada baris *sNamaSheet *=sheets(17)
>
> > dieksekusi karena status object err masih ada nilainya akibat error
> pertama
> > baris *sNamaSheet *=sheets(23)
> > Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> > *=sheets(23)
>
> > harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> > dengan memanfaatkan methods clear milik object err.
> > Contoh :
> > public sub SekedarContohLabelE
> > * dim sNamaSheet as string
> > * on error resume next
> >
> > *sNamaSheet *=sheets(23)
> > if *sNamaSheet * = "kid" then
>
> > msgbox "sheets bernama kid adalah sheet-ku"
> > else
> > msgbox "ternyata bukan sheet bernama kid",vbexclama
> > endif
> >
> > msgbox "coba sheet lain ah",vbinformat
> > *Err.Clear*
> > *on error goto PesanKu*
> > *sNamaSheet *=sheets(17)
> > if *sNamaSheet *="kid" then
>
> > msgbox "yang ini adalah sheet-ku, karena bernama
> > kid",vbinforma
> > else
> > msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> > endif
> >
> > *PesanKu:*
>
> > if err.number <> 0 then
> > msgbox "Yah error di sheet ke-17 deh",vbexclama
> > endif
> > end sub
> >
> >
> > Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err
> yang
> > memiliki banyak properti seperti Number, Description, dsb, yang juga
> > memiliki methods Clear untuk menghapus error yang pernah terjadi.
> >
> > gitu kali ya.
> >
> > Wassalamu'
> > Kid.
> >
> >
> > 2013/3/14 Heru Safrudin <superheruu@gmail.
> >
> >> Dear Master,
> >>
> >> 1. Apakah error handler On Error Resume Next akan me-resume setiap
> >> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
> >> error pertama.
> >>
> >> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> >> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
> >> untuk dihandling errornya (biar bisa cek errornya)
> >> --
> >> Terima kasih
> >>
> >> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> >> Heru Safrudin
> >>
> >>
> >> ------------
> >>
> >> ------------
> >> bergabung ke milis (subscribe), kirim mail kosong ke:
> >> belajar-excel-
> >>
> >> posting ke milis, kirimkan ke:
> >> belajar-excel@
> >>
> >> berkunjung ke web milis
> >> http://tech.
> >>
> >> melihat file archive / mendownload lampiran
> >> http://www.mail-
> >> atau (sejak 25-Apr-2011) bisa juga di :
> >> http://milis-
> >>
> >> menghubungi moderators & owners: belajar-excel-
> >>
> >> keluar dari membership milis (UnSubscribe)
> >> kirim mail kosong ke belajar-excel-
> >> ------------
> >> Groups Links
>
> >>
> >>
> >>
> >>
> >
>
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
>
Wed Mar 13, 2013 8:13 pm (PDT) . Posted by:
"Heru Safrudin" superheruu
Misalkan saya balik begini
On error resume next
'script yang error 1
on error goto 0
'script error 2
on error goto Pesanku
'script yang error 3
Jika script error 2 bisa memunculkan dialog debug artinya itu seperti yang saya harapkan
dan solusinya adalah "on error goto 0"
kemudian script yang error 3 masih tetap dihandling ke label Pesanku, dan ini menakjubkan :D
Jika itu benar berarti udah the problem has been solved
Thanks Mr.Kid ...
----- Original Message -----
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Thursday, March 14, 2013 9:53 AM
Subject: Re: [belajar-excel] Tentang Error Handling
Yup.
demikianlah kira-kiranya
Konsep dasarnya adalah mengalihkan proses ketika bertemu error (On Error)
jadi karena ada baris On Error setelah On Error Resume Next, jika baris On Error baru itu tereksekusi, maka On Error Resume Next tidak berlaku lagi karena pengalihan error dirujuk ke suatu tempat lain oleh On Error yang baru.
Contoh :
On error resume next
'script yang error 1
on error goto Pesanku
'script yang error 2
on error goto 0
'script error 3
PesanKu:
msgbox "yup"
err.clear
on error goto 0
Pada script di atas, baris On error goto 0 sebelum script error 3 tidak akan pernah dieksekusi jika ada error pada script yang error 2 karena akan lompat ke Pesanku.
Pada bagian pesanku, ada pernyataan pengalihan On Error Goto 0
Jika prosedur berakhir (End Sub) maka semua error tidak akan dialihkan ketempat lain melainkan ke baris yang error tersebut.
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.com >
Apakah Artinya begini :
Jika diatas udah dipasang On Error resume next (proses pencuekan)
kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
berarti PENCUEKAN telah diakhiri ??
Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Wa'alaikumussalam Wr. Wb.
>
> Hai Heru,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> kode yang terdapat error, atau cuma satu baris yang kedapatan error
> pertama.
>>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> 'kalau ketemu error, cuekin aje bro'
>>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
> nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> berikutnya.
>>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> setelah bertemu baris error itu pantas dieksekusi atau tidak.*
> Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> hanya berisi 3 sheet saja)
> public sub SekedarContoh()
> on error resume next
>
> if sheets(23).name = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
>
> if sheets(17).name="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> Jika di eksekusi, maka akan muncul error di baris :
> if sheets(23).name = "kid" then
> karena tidak ada sheet ke-23 dalam tab sheet.
> ketika diminta untuk dicuekin, maka dieksekusilah baris :
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> dalam msgbox (IF kok bernilai TRUE) ?
> Begitu juga ketika bertemu baris :
> if sheets(17).name="kid" then
>
> Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> prosedur menjadi :
> public sub SekedarContohAntisipasi()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
>
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> dihandling errornya (biar bisa cek errornya)
>>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> dengan On Error Goto sesuatu
>>> sesuatu bisa berisi nomor baris atau label tertentu.
>>> Contoh :
> public sub SekedarContohPengalihan()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto 0*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
> end sub
>
> pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> error maka tetaplah pada baris error tersebut (Goto baris 0)
> dan hal ini akan memunculkan dialog debug.
>
> Contoh dengan label :
> public sub SekedarContohLabel()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> end sub
>
> Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> error, pergilah ke label bernama 'PesanKu'
> Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> di dekat End Sub itu akan selalu dieksekusi.
> Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
> terjadi error dengan object bernama Err yang memiliki beberapa properti
> seperti Number.
> Contoh :
> public sub SekedarContohLabelErrorSaja()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> endif
> end sub
>
> Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> PesanKu akan dieksekusi.
> Jika error pertama (akibat baris : *sNamaSheet *=sheets(23).name) sedangkan
> pada baris *sNamaSheet *=sheets(17).name tidak error, maka msgbox tetap
> dieksekusi karena status object err masih ada nilainya akibat error pertama
> baris *sNamaSheet *=sheets(23).name
> Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> *=sheets(23).name
> harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> dengan memanfaatkan methods clear milik object err.
> Contoh :
> public sub SekedarContohLabelErrorSaja()
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23).name
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku",vbinformation
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclamation
> endif
>
> msgbox "coba sheet lain ah",vbinformation
> *Err.Clear*
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17).name
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinformation
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamation
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclamation
> endif
> end sub
>
>
> Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
> memiliki banyak properti seperti Number, Description, dsb, yang juga
> memiliki methods Clear untuk menghapus error yang pernah terjadi.
>
> gitu kali ya.
>
> Wassalamu'alaikum Wr. Wb.,
> Kid.
>
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.com >
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------------------------------
>>
>> ----------------------------------------------------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-subscribe@yahoogroups.com
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@yahoogroups.com
>>
>> berkunjung ke web milis
>> http://tech.groups.yahoo.com/group/belajar-excel/messages
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-belajar-excel.1048464.n5.nabble.com/
>>
>> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>>
>> keluar dari membership milis (UnSubscribe):
>> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
>> ----------------------------------------------------------Yahoo!
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
On error resume next
'script yang error 1
on error goto 0
'script error 2
on error goto Pesanku
'script yang error 3
Jika script error 2 bisa memunculkan dialog debug artinya itu seperti yang saya harapkan
dan solusinya adalah "on error goto 0"
kemudian script yang error 3 masih tetap dihandling ke label Pesanku, dan ini menakjubkan :D
Jika itu benar berarti udah the problem has been solved
Thanks Mr.Kid ...
----- Original Message -----
From: Mr. Kid
To: belajar-excel@
Sent: Thursday, March 14, 2013 9:53 AM
Subject: Re: [belajar-excel] Tentang Error Handling
Yup.
demikianlah kira-kiranya
Konsep dasarnya adalah mengalihkan proses ketika bertemu error (On Error)
jadi karena ada baris On Error setelah On Error Resume Next, jika baris On Error baru itu tereksekusi, maka On Error Resume Next tidak berlaku lagi karena pengalihan error dirujuk ke suatu tempat lain oleh On Error yang baru.
Contoh :
On error resume next
'script yang error 1
on error goto Pesanku
'script yang error 2
on error goto 0
'script error 3
PesanKu:
msgbox "yup"
err.clear
on error goto 0
Pada script di atas, baris On error goto 0 sebelum script error 3 tidak akan pernah dieksekusi jika ada error pada script yang error 2 karena akan lompat ke Pesanku.
Pada bagian pesanku, ada pernyataan pengalihan On Error Goto 0
Jika prosedur berakhir (End Sub) maka semua error tidak akan dialihkan ketempat lain melainkan ke baris yang error tersebut.
Wassalam,
Kid.
2013/3/14 Heru Safrudin <superheruu@gmail.
Apakah Artinya begini :
Jika diatas udah dipasang On Error resume next (proses pencuekan)
kemudian hanya dengan memasang pernyataan on error goto 0 dibawahnya
berarti PENCUEKAN telah diakhiri ??
Pada tanggal 14/03/13, Mr. Kid <mr.nmkid@gmail.
> Wa'alaikumussal
>
> Hai Heru,
>
> 1. Apakah error handler On Error Resume Next akan me-resume setiap baris
> kode yang terdapat error, atau cuma satu baris yang kedapatan error
> pertama.
>>> kalau ndak salah, On Error Resume Next itu bahasa londo indonesia nya
> 'kalau ketemu error, cuekin aje bro'
>>> jadi, setelah bertemu error maka akan mengerjakan baris berikutnya. Jika
> nanti ketemu baris yang bikin error lagi, maka akan mengerjakan baris
> berikutnya.
>>> yang perlu diwaspadai adalah *baris berikutnya yang akan dijalankan
> setelah bertemu baris error itu pantas dieksekusi atau tidak.*
> Contoh prosedur : (letakkan dalam sebuah module di sebuah workbook yang
> hanya berisi 3 sheet saja)
> public sub SekedarContoh(
> on error resume next
>
> if sheets(23).name = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
>
> if sheets(17).name=
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> Jika di eksekusi, maka akan muncul error di baris :
> if sheets(23).name = "kid" then
> karena tidak ada sheet ke-23 dalam tab sheet.
> ketika diminta untuk dicuekin, maka dieksekusilah baris :
> msgbox "sheets bernama kid adalah sheet-ku"
> loh... kan gak ada sheet ke-23, kok keluar pernyataan kepemilikan sheet
> dalam msgbox (IF kok bernilai TRUE) ?
> Begitu juga ketika bertemu baris :
> if sheets(17).name=
>
> Kegiatan antisipatif terhadap proses yang sedang dibangun seperti di atas
> adalah dengan membuat sebuah variabel penyimpan nama sheet, sehingga
> prosedur menjadi :
> public sub SekedarContohAntisi
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
>
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> 2. Bagaimana cara menghentikan error handling resume next yang sudah
> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan untuk
> dihandling errornya (biar bisa cek errornya)
>>> mungkin maksudnya, kalau ada error berikutnya, jangan dicuekin.
>>> untuk kebutuhan ini, maka dilakukan pengalihan ketika bertemu error
> dengan On Error Goto sesuatu
>>> sesuatu bisa berisi nomor baris atau label tertentu.
>>> Contoh :
> public sub SekedarContohPengal
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto 0*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
> end sub
>
> pada baris On Error Goto 0 terjadi pernyataan bahwa jika menemukan baris
> error maka tetaplah pada baris error tersebut (Goto baris 0)
> dan hal ini akan memunculkan dialog debug.
>
> Contoh dengan label :
> public sub SekedarContohLabel(
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> end sub
>
> Baris On Error Goto PesanKu adalah pernyataan bahwa jika menemukan baris
> error, pergilah ke label bernama 'PesanKu&#
> Masalahnya, jika bertemu error ataupun tidak, maka label PesanKu yang ada
> di dekat End Sub itu akan selalu dieksekusi.
> Maka dibutuhkanlah suatu kondisi bahwa msgbox boleh dieksekusi jika memang
> terjadi error dengan object bernama Err yang memiliki beberapa properti
> seperti Number.
> Contoh :
> public sub SekedarContohLabelE
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> endif
> end sub
>
> Untuk prosedur di atas, jika ada error maka msgbox yang ada setelah label
> PesanKu akan dieksekusi.
> Jika error pertama (akibat baris : *sNamaSheet *=sheets(23)
> pada baris *sNamaSheet *=sheets(17)
> dieksekusi karena status object err masih ada nilainya akibat error pertama
> baris *sNamaSheet *=sheets(23)
> Agar tidak salah tangkap, maka error akibat baris *sNamaSheet
> *=sheets(23)
> harus dihapus sesaat sebelum masuk pernyataan perlakuan error berikutnya
> dengan memanfaatkan methods clear milik object err.
> Contoh :
> public sub SekedarContohLabelE
> * dim sNamaSheet as string
> * on error resume next
>
> *sNamaSheet *=sheets(23)
> if *sNamaSheet * = "kid" then
> msgbox "sheets bernama kid adalah sheet-ku"
> else
> msgbox "ternyata bukan sheet bernama kid",vbexclama
> endif
>
> msgbox "coba sheet lain ah",vbinformat
> *Err.Clear*
> *on error goto PesanKu*
> *sNamaSheet *=sheets(17)
> if *sNamaSheet *="kid" then
> msgbox "yang ini adalah sheet-ku, karena bernama
> kid",vbinforma
> else
> msgbox "ternyata juga bukan sheet-ku :(",vbexclamat
> endif
>
> *PesanKu:*
> if err.number <> 0 then
> msgbox "Yah error di sheet ke-17 deh",vbexclama
> endif
> end sub
>
>
> Jadi, ada pernyataan On Error Resume dan On Error Goto. Ada object Err yang
> memiliki banyak properti seperti Number, Description, dsb, yang juga
> memiliki methods Clear untuk menghapus error yang pernah terjadi.
>
> gitu kali ya.
>
> Wassalamu'
> Kid.
>
>
> 2013/3/14 Heru Safrudin <superheruu@gmail.
>
>> Dear Master,
>>
>> 1. Apakah error handler On Error Resume Next akan me-resume setiap
>> baris kode yang terdapat error, atau cuma satu baris yang kedapatan
>> error pertama.
>>
>> 2. Bagaimana cara menghentikan error handling resume next yang sudah
>> terpasang diatas, sedangkan baris kode dibawahnya tidak diinginkan
>> untuk dihandling errornya (biar bisa cek errornya)
>> --
>> Terima kasih
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Heru Safrudin
>>
>>
>> ------------
>>
>> ------------
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>> belajar-excel-
>>
>> posting ke milis, kirimkan ke:
>> belajar-excel@
>>
>> berkunjung ke web milis
>> http://tech.
>>
>> melihat file archive / mendownload lampiran
>> http://www.mail-
>> atau (sejak 25-Apr-2011) bisa juga di :
>> http://milis-
>>
>> menghubungi moderators & owners: belajar-excel-
>>
>> keluar dari membership milis (UnSubscribe)
>> kirim mail kosong ke belajar-excel-
>> ------------
>> Groups Links
>>
>>
>>
>>
>
--
Terima kasih
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Heru Safrudin
Wed Mar 13, 2013 6:40 pm (PDT) . Posted by:
"Budi Setiawan" vxspidy
Dear Master,
Lanjut dari permasalahan kemarin..Maaf saya kesulitan untuk mengirimkan file attachment nya
Untuk data detail transaksi tersebut (Produk, Qty, Price, Total) saya menggunakan formula dibawah ini :
=IFERROR(INDEX(
ID]=rngOrderId,
ID])-ROW(tblDetails
tblDetails[#
Tapi dengan menggunakan formula ini, saya masih bingung jika
ingin menggabungkan data detail transaksi yang sama menjadi satu baris..
Mohon bantuannya..
Thanx
To: belajar-excel@
From: hendrikkarnadi@
Date: Wed, 13 Mar 2013 17:30:19 +0700
Subject: RE: [belajar-excel] Penggabungan Detail Transaksi (Master-Detail)
Sesuai saran mod, kelihatannya paling cepat dan fleksible pake pivot.Caranya:
Salam,HK
Sent from Samsung Mobile
Sayyid <vxspidy@hotmail.
Dear Master,
Mau tanya gimana caranya menggabungkan data detail transaksi yang sama pada satu form. Contohnya :
Data sebelum penggabungan :
Order No : 1
Tgl : 13-03-2013
Produk | Qty | Price | Total
Nissin 1 1.000.000 1.000.000
Nissin 3 1.000.000 3.000.000
Nissin 5 1.000.000 5.000.000
Peugit 4 500.000 2.000.000
Hasil yang diinginkan :
Order No : 1
Tgl : 13-03-2013
Produk | Qty | Price | Total
Nissin 9 1.000.000 9.000.000
Peugit 4 500.000 2.000.000
Mohon bantuannya untuk mengisi formula nya..
Matur Thx
Iwan
--- Mods ---
Ada baiknya disertakan workbook sebagai media penjelasan yang lebih detil dan sebagai media ujicoba menyusun solusi bagi BeExceller yang ingin membantu.
Agar bisa posting disertai attachment, buka akun email pribadi Anda, compose email seperti Anda mengirim email sehari-hari ke seluruh rekan kerja atau client Anda (termasuk menyertakan attachment file).
Mungkin mau coba Pivot Table lebih dulu.
------------
Wed Mar 13, 2013 6:40 pm (PDT) . Posted by:
"ronzt" opreck74
Jazakumullah Mas Kid, semoga keberkahan selalu bersama kita semua ...
BarakaAllah Fikum
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mohon-bimbingan-mengganti-Form-lama-dengan-Form-baru-sesuai-kebutuhan-yang-berkembang-tp5716190p5716330.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
BarakaAllah Fikum
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Wed Mar 13, 2013 6:40 pm (PDT) . Posted by:
"Setia Budi" afasetia
Dear Mr Kid,
Terimakasih atas pencerahan master Mr. Kid
ternyata gak seruwet yang dibayangkan, makin semangat nih ngulik2 di exel
Regards,
SETIA
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 13 Maret 2013 17:26
Judul: Re: [belajar-excel] Fungsi if multi kondisi dan alternatifnya
Coba formula di B10 :
=LOOKUP(2,1/(('Daftar Sekolah'!$D$4:$D$422=B$8)*('Daftar Sekolah'!$F$4:$F$422=C10)),'Daftar Sekolah'!$G$4:$G$422)
Wassalam,
Kid.
2013/3/13 Setia Budi <afasetia@yahoo.co.id >
>
>Dear Miss Jan Raisin,
>
>Terimakasih sudah menanggapi, berikut saya lampirkan sample workbooknya
>
>Wassalam,
>SETIA
>
>
>
>
>
>
>________________________________
> Dari: Jan Raisin <miss.jan.raisin@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Rabu, 13 Maret 2013 15:47
>Judul: Re: [belajar-excel] Fungsi if multi kondisi dan alternatifnya
>
>
>
>
>
>
>kelihatannya bisa menggunakan formula Index & Match atau SumProduct, coba kirimkan sampel workbooknya
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>Pada 13 Maret 2013 15.13, Setia <afasetia@yahoo.co.id > menulis:
>
>
>>
>>Untuk para master exel khususnya penghuni situs ini..
>>mohon pencerahannya
>>
>>kasusnya adalah saya harus memberi informasi secepat mungkin mengenai pertandingan bola yang sedang berlangsung, sebagai gambaran:
>>
>>saya mempunyai 1 file exel berupa :
>>sheet 1 (sebagai database) :berisikan 10 nama club , nama pemain + no punggung @ club dan juga jadwal pertandingan
>>sheet 2 : kronologi pertandingan yang sedang berlangsung ( club vs club , no punggung berapa yang mencetak gol , jumlah gol
>>
>>yang saya tanyakan adalah :
>>bagaimana cara menuliskan fungsi yang cocok agar saya mendapatkan nama pemain (yang menciptakan gol) hanya dengan mengacu pada no punggung pemain, sedangkan no punggung antar club kemungkinan besar ada yang sama..
>>
>>
>>tambahan :
>>saya coba pakai rumus IF ga bisa lebih dari 7 kondisi
>>
>>terima kasih sebelumya
>>SETIA
>>
>
>
>
>
>
Terimakasih atas pencerahan master Mr. Kid
ternyata gak seruwet yang dibayangkan, makin semangat nih ngulik2 di exel
Regards,
SETIA
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Rabu, 13 Maret 2013 17:26
Judul: Re: [belajar-excel] Fungsi if multi kondisi dan alternatifnya
Coba formula di B10 :
=LOOKUP(2,1/
Wassalam,
Kid.
2013/3/13 Setia Budi <afasetia@yahoo.
>
>Dear Miss Jan Raisin,
>
>Terimakasih sudah menanggapi, berikut saya lampirkan sample workbooknya
>
>Wassalam,
>SETIA
>
>
>
>
>
>
>________
> Dari: Jan Raisin <miss.jan.raisin@
>Kepada: belajar-excel@
>Dikirim: Rabu, 13 Maret 2013 15:47
>Judul: Re: [belajar-excel] Fungsi if multi kondisi dan alternatifnya
>
>
>
>
>
>
>kelihatannya bisa menggunakan formula Index & Match atau SumProduct, coba kirimkan sampel workbooknya
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>Pada 13 Maret 2013 15.13, Setia <afasetia@yahoo.
>
>
>>
>>Untuk para master exel khususnya penghuni situs ini..
>>mohon pencerahannya
>>
>>kasusnya adalah saya harus memberi informasi secepat mungkin mengenai pertandingan bola yang sedang berlangsung, sebagai gambaran:
>>
>>saya mempunyai 1 file exel berupa :
>>sheet 1 (sebagai database) :berisikan 10 nama club , nama pemain + no punggung @ club dan juga jadwal pertandingan
>>sheet 2 : kronologi pertandingan yang sedang berlangsung ( club vs club , no punggung berapa yang mencetak gol , jumlah gol
>>
>>yang saya tanyakan adalah :
>>bagaimana cara menuliskan fungsi yang cocok agar saya mendapatkan nama pemain (yang menciptakan gol) hanya dengan mengacu pada no punggung pemain, sedangkan no punggung antar club kemungkinan besar ada yang sama..
>>
>>
>>tambahan :
>>saya coba pakai rumus IF ga bisa lebih dari 7 kondisi
>>
>>terima kasih sebelumya
>>SETIA
>>
>
>
>
>
>
Wed Mar 13, 2013 7:56 pm (PDT) . Posted by:
"Winda Miranti" winda_1504
hmpp bgtu Mr Kid
Baiklah,kl bgtu seperti nya harus diganti ni layout nya hehehehe..
Trimkasi Mr Kid atas ilmu dan pencerahanya :)
Regards,
Winda
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 13 Maret 2013 15:40
Judul: Re: [belajar-excel] Data Validation Berjama'ah
hehehe...
sayangnya ndak bisa pakai formula yang ditulis langsung dalam properti.
Properti linked cell bisa dibuat dinamis dengan menggunakan sebuah nama range yang merujuk ke sebuah cell secara dinamis dengan mengatur formula dibagian refers to-nya si nama range tersebut.
Untuk properti ListFillRange biasanya hanya isi dalam range yang dirujuk yang bisa diubah secara dinamis, tetapi area range (jumlah item list dan alamat range setiap item list) adalah tetap meski menggunakan nama range yang disusun dengan formula dinamis.
Wasssalam,
Kid.
2013/3/13 Winda Miranti <winda_1504@yahoo.co.id >
>
>Terimkasi atas petunjuknya Mr Kid
>Oia Mr Kid apakah combo box itu cell link nya bisa pake rumus?
>
>Regards,
>Winda
>
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Senin, 11 Maret 2013 21:51
>Judul: Re: [belajar-excel] Data Validation Berjama'ah
>
>
>
>
>Hai Winda,
>
>Coba manfaatkan activex combobox control yang bisa didapat pada ribbon Developer -> group Controls -> Insert -> bagian ActiveX -> Combobox.
>Karena butuh 3 bijik untuk jenis saja, maka buat 3 bijik dan atur semua properti (klik kanan object control -> properties) bernama ListFillRange agar berisi nama range yang merujuk pada daftar item yang bisa dipilih dalam combobox, dan properti bernama LInkedCell dari ketiga combobox jenis tersebut merujuk ke cell yang sama, yaitu misalnya ke D3. Cell jenis lainnya merujuk juga ke cell D3 seperti properti LinkedCell tersebut.
>
>Lakukan pula untuk Tipe.
>
>Wassalam,
>Kid.
>
>
Baiklah,kl bgtu seperti nya harus diganti ni layout nya hehehehe..
Trimkasi Mr Kid atas ilmu dan pencerahanya :)
Regards,
Winda
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Rabu, 13 Maret 2013 15:40
Judul: Re: [belajar-excel] Data Validation Berjama'
hehehe...
sayangnya ndak bisa pakai formula yang ditulis langsung dalam properti.
Properti linked cell bisa dibuat dinamis dengan menggunakan sebuah nama range yang merujuk ke sebuah cell secara dinamis dengan mengatur formula dibagian refers to-nya si nama range tersebut.
Untuk properti ListFillRange biasanya hanya isi dalam range yang dirujuk yang bisa diubah secara dinamis, tetapi area range (jumlah item list dan alamat range setiap item list) adalah tetap meski menggunakan nama range yang disusun dengan formula dinamis.
Wasssalam,
Kid.
2013/3/13 Winda Miranti <winda_1504@yahoo.
>
>Terimkasi atas petunjuknya Mr Kid
>Oia Mr Kid apakah combo box itu cell link nya bisa pake rumus?
>
>Regards,
>Winda
>
>
>
>
>________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Senin, 11 Maret 2013 21:51
>Judul: Re: [belajar-excel] Data Validation Berjama'
>
>
>
>
>Hai Winda,
>
>Coba manfaatkan activex combobox control yang bisa didapat pada ribbon Developer -> group Controls -> Insert -> bagian ActiveX -> Combobox.
>Karena butuh 3 bijik untuk jenis saja, maka buat 3 bijik dan atur semua properti (klik kanan object control -> properties) bernama ListFillRange agar berisi nama range yang merujuk pada daftar item yang bisa dipilih dalam combobox, dan properti bernama LInkedCell dari ketiga combobox jenis tersebut merujuk ke cell yang sama, yaitu misalnya ke D3. Cell jenis lainnya merujuk juga ke cell D3 seperti properti LinkedCell tersebut.
>
>Lakukan pula untuk Tipe.
>
>Wassalam,
>Kid.
>
>
Wed Mar 13, 2013 7:58 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bagaimana kalau disempatkan mencoba combobox pada file terlampir.
Wassalam,
Kid.
2013/3/14 Winda Miranti <winda_1504@yahoo.co.id >
> **
>
>
> hmpp bgtu Mr Kid
> Baiklah,kl bgtu seperti nya harus diganti ni layout nya hehehehe..
> Trimkasi Mr Kid atas ilmu dan pencerahanya :)
>
> Regards,
> Winda
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 13 Maret 2013 15:40
>
> *Judul:* Re: [belajar-excel] Data Validation Berjama'ah
>
>
> hehehe...
> sayangnya ndak bisa pakai formula yang ditulis langsung dalam properti.
> Properti linked cell bisa dibuat dinamis dengan menggunakan sebuah nama
> range yang merujuk ke sebuah cell secara dinamis dengan mengatur formula
> dibagian refers to-nya si nama range tersebut.
> Untuk properti ListFillRange biasanya hanya isi dalam range yang dirujuk
> yang bisa diubah secara dinamis, tetapi area range (jumlah item list dan
> alamat range setiap item list) adalah tetap meski menggunakan nama range
> yang disusun dengan formula dinamis.
>
> Wasssalam,
> Kid.
>
> 2013/3/13 Winda Miranti <winda_1504@yahoo.co.id >
>
> **
>
> Terimkasi atas petunjuknya Mr Kid
> Oia Mr Kid apakah combo box itu cell link nya bisa pake rumus?
>
> Regards,
> Winda
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Senin, 11 Maret 2013 21:51
> *Judul:* Re: [belajar-excel] Data Validation Berjama'ah
>
>
> Hai Winda,
>
> Coba manfaatkan activex combobox control yang bisa didapat pada ribbon
> Developer -> group Controls -> Insert -> bagian ActiveX -> Combobox.
> Karena butuh 3 bijik untuk jenis saja, maka buat 3 bijik dan atur semua
> properti (klik kanan object control -> properties) bernama ListFillRange
> agar berisi nama range yang merujuk pada daftar item yang bisa dipilih
> dalam combobox, dan properti bernama LInkedCell dari ketiga combobox jenis
> tersebut merujuk ke cell yang sama, yaitu misalnya ke D3. Cell jenis
> lainnya merujuk juga ke cell D3 seperti properti LinkedCell tersebut.
>
> Lakukan pula untuk Tipe.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
Wassalam,
Kid.
2013/3/14 Winda Miranti <winda_1504@yahoo.
> **
>
>
> hmpp bgtu Mr Kid
> Baiklah,kl bgtu seperti nya harus diganti ni layout nya hehehehe..
> Trimkasi Mr Kid atas ilmu dan pencerahanya :)
>
> Regards,
> Winda
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 13 Maret 2013 15:40
>
> *Judul:* Re: [belajar-excel] Data Validation Berjama'
>
>
> hehehe...
> sayangnya ndak bisa pakai formula yang ditulis langsung dalam properti.
> Properti linked cell bisa dibuat dinamis dengan menggunakan sebuah nama
> range yang merujuk ke sebuah cell secara dinamis dengan mengatur formula
> dibagian refers to-nya si nama range tersebut.
> Untuk properti ListFillRange biasanya hanya isi dalam range yang dirujuk
> yang bisa diubah secara dinamis, tetapi area range (jumlah item list dan
> alamat range setiap item list) adalah tetap meski menggunakan nama range
> yang disusun dengan formula dinamis.
>
> Wasssalam,
> Kid.
>
> 2013/3/13 Winda Miranti <winda_1504@yahoo.
>
> **
>
> Terimkasi atas petunjuknya Mr Kid
> Oia Mr Kid apakah combo box itu cell link nya bisa pake rumus?
>
> Regards,
> Winda
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Senin, 11 Maret 2013 21:51
> *Judul:* Re: [belajar-excel] Data Validation Berjama'
>
>
> Hai Winda,
>
> Coba manfaatkan activex combobox control yang bisa didapat pada ribbon
> Developer -> group Controls -> Insert -> bagian ActiveX -> Combobox.
> Karena butuh 3 bijik untuk jenis saja, maka buat 3 bijik dan atur semua
> properti (klik kanan object control -> properties) bernama ListFillRange
> agar berisi nama range yang merujuk pada daftar item yang bisa dipilih
> dalam combobox, dan properti bernama LInkedCell dari ketiga combobox jenis
> tersebut merujuk ke cell yang sama, yaitu misalnya ke D3. Cell jenis
> lainnya merujuk juga ke cell D3 seperti properti LinkedCell tersebut.
>
> Lakukan pula untuk Tipe.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
Wed Mar 13, 2013 7:56 pm (PDT) . Posted by:
"Indra Enter" indraenter@ymail.com
Salam sejahtera buat rekan2....
Mohon kepada rekan2 bagaiman cara membuat Buku Induk Siswa dengan menggunakan Ms. Excel?
Terima kasih,
Salam hormat,
Indraenter
Mohon kepada rekan2 bagaiman cara membuat Buku Induk Siswa dengan menggunakan Ms. Excel?
Terima kasih,
Salam hormat,
Indraenter
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar