8 Messages
Digest #3966
5d
menghitung data duplikat pada dua workbook/file yang berbeda by "Fajar Fatahillah" fajar.fatahillah
Messages
Wed Sep 14, 2016 2:13 am (PDT) . Posted by:
"Heru Safrudin" heru.safrudin
SubhanAllah begitu detail, terima kasih Mr. Kid
Tujuan saya untuk membuat laporan seberapa sering jaringan di tempat kerja saya mengalami masalah, ketika mengakses server.
begitu Mr. Kid
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 14 September 2016 13:28
To: BeExcel
Subject: Re: [belajar-excel] Tes koneksi
Hai Heru,
Bisa.
Untuk apa ya hasil ping nya ?
ya wis lah... untuk apa sajalah...
Asumsi : hasilnya ditulis di kolom A sheet pertama dalam tab sheet di workbook berisi script
Peringatan :
- perhatikan dan bandingkan bagian yang di-biru ya
- yang di-merah sekedar untuk antisipasi kalau nama folder atau nama filenya ada yang pakai spasi atau karakter special tertentu
1. Ping memanfaatkan shell
dim sFile as string, sAddress as string 'info file hasil ping dan url yang di-ping
dim iFile as integer, sLine as string, lLine as long 'variabel kerja baca file hasil ping
thisworkbook.sheets(1).range("a:a").clearcontents 'hapus area penulisan hasil
'init file hasil ping dan url yang di-ping
sfile=thisworkbook.path & "\res.txt" 'hasil ping disimpan di file res.txt di path yang sama dengan workbook
saddress="www.google.com" 'url yang di-ping, bisa juga ip address-nya seperti untuk google bisa 111.95.240.85 (nslookup untuk list ip address sebuah domain)
'perintah ping dengan shell
'-> catatan : jika url-nya timeout, butuh waktu beberapa detik untuk selesaikan proses,
' ping 1 kali saja
shell "cmd /c ping " & sAddress & " -n 1 > """ & sFile & """", vbHide
application.wait now + timevalue("00:00:05")
'baca file hasil ping (file res.txt dalam sFile) dengan open
lline=0 'baris hasil di sheet(1) masih 0
ifile=freefile 'generate nomor file
open sfile for input as ifile 'buka file
do while not eof(ifile) 'loop setiap baris dalam file sampai akhir file
lline=lline+1 'set baris hasil bertambah 1
line input #ifile,sline 'ambil isi sebaris file dan masukkan ke sline
thisworkbook.sheets(1).cells( lline , 1 ).value= "'" & sline 'tulis ke cells hasil
loop
close ifile 'tutup file
kill sfile 'delete file
*** cara 1 ini menggunakan application.wait untuk memastikan bahwa proses oleh baris shell dipastikan telah selesai lebih dulu sebelum mulai membaca isi file hasil
2. ping menggunakan wscript.shell (supaya lebih pasti bahwa proses telah selesai dan siap dibaca filenya)
dim sFile as string, sAddress as string 'info file hasil ping dan url yang di-ping
dim iFile as integer, sLine as string, lLine as long 'variabel kerja baca file hasil ping
dim wsh as object
thisworkbook.sheets(1).range("a:a").clearcontents 'hapus area penulisan hasil
'init file hasil ping dan url yang di-ping
sfile=thisworkbook.path & "\res.txt" 'hasil ping disimpan di file res.txt di path yang sama dengan workbook
saddress="www.google.com" 'url yang di-ping, bisa juga ip address-nya seperti untuk google bisa 111.95.240.85 (nslookup untuk list ip address sebuah domain)
'perintah ping dengan shell
'-> catatan : jika url-nya timeout, butuh waktu beberapa detik untuk selesaikan proses,
' ping 1 kali saja
set wsh=createobject("WScript.Shell")
wsh.run "cmd /c ping " & sAddress & " -n 1 > """ & sFile & """", 0,true
'baca file hasil ping (file res.txt dalam sFile) dengan open
lline=0 'baris hasil di sheet(1) masih 0
ifile=freefile 'generate nomor file
open sfile for input as ifile 'buka file
do while not eof(ifile) 'loop setiap baris dalam file sampai akhir file
lline=lline+1 'set baris hasil bertambah 1
line input #ifile,sline 'ambil isi sebaris file dan masukkan ke sline
thisworkbook.sheets(1).cells( lline , 1 ).value= "'" & sline 'tulis ke cells hasil
loop
close ifile 'tutup file
kill sfile 'delete file
*** cara 2 ini lebih pasti bahwa ketika proses ping telah selesai barulah baca file hasil ping
fyi,
ping menggunakan ICMP dan beberapa url tidak mengijinkan akses dengan ICMP, sehingga akan menghasilkan timeout, padahal jika url dibuka dengan browser tetap akan terbuka alias tidak timeout. Contohnya, website Bank Indonesia di www.bi.go.id
Dengan ping ke www.bi.go.id hasilnya akan timeout, tetapi di browser ditulis url www.bi.go.id, browser akan membuka website Bank Indonesia.
Hal ini disebabkan karena ICMP di-disable oleh server Bank Indonesia, tetapi browser di-Enable.
Jika maskud penggunaan ping untuk mengetahui url dapat diakses atau tidak, maka bisa juga menggunakan cara lainnya, seperti followhyperlink.
Contoh :
A. Pakai followhyperlink (sayangnya, kalau url bisa diakses, akan membuka url terebut di browser)
dim sAddress as string
thisworkbook.sheets(1).range("a:a").clearcontents 'hapus area penulisan hasil
'init url yang di-ping
saddress="www.google.com" 'url yang di-ping, bisa juga ip address-nya seperti untuk google bisa 111.95.240.85 (nslookup untuk list ip address sebuah domain)
'perintah followhyperlink
on error resume next 'trap error
thisworkbook.followhyperlink "http://" & saddress
'tulis status hasil
if err.number<>0 then
err.clear
thisworkbook.sheets(1).cells(1, 1).value = sAddress & " : Request Timeout"
else
thisworkbook.sheets(1).cells(1, 1).value = sAddress & " : OK"
endif
on error goto 0 'kembalikan trap error ke default
B. Pakai xlmHTTP
dim sAddress as string
dim sRes as string, oXML as object 'variabel penyimpan response dan object xmlhttp
thisworkbook.sheets(1).range("a:a").clearcontents 'hapus area penulisan hasil
'init url yang di-ping
saddress="www.google.com" 'url yang di-ping, bisa juga ip address-nya seperti untuk google bisa 111.95.240.85 (nslookup untuk list ip address sebuah domain)
'perintah panggil url
set oxml=createobject("MSXML2.serverXMLHTTP")
oxml.open "GET", "http://" & saddress ,false
oxml.send
sres=oxml.responsetext
'tulis status hasil
if err.number<>0 then
err.clear
thisworkbook.sheets(1).cells(1, 1).value = sAddress & " : Request Timeout"
else
thisworkbook.sheets(1).cells(1, 1).value = sAddress & " : OK"
endif
on error goto 0 'kembalikan trap error ke default
Regards,
Kid
2016-09-14 9:24 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear be Exceller..
Bisakah VBA mendapatkan hasil informasi ping ke dari alamat tertentu
Contoh :
Ping statistics for 123.456.789:
Packets: Sent = 4, Received = 0, Lost = 4 (100% loss)
Mohon pencerahannya
Tujuan saya untuk membuat laporan seberapa sering jaringan di tempat kerja saya mengalami masalah, ketika mengakses server.
begitu Mr. Kid
<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 14 September 2016 13:28
To: BeExcel
Subject: Re: [belajar-excel] Tes koneksi
Hai Heru,
Bisa.
Untuk apa ya hasil ping nya ?
ya wis lah... untuk apa sajalah...
Asumsi : hasilnya ditulis di kolom A sheet pertama dalam tab sheet di workbook berisi script
Peringatan :
- perhatikan dan bandingkan bagian yang di-biru ya
- yang di-merah sekedar untuk antisipasi kalau nama folder atau nama filenya ada yang pakai spasi atau karakter special tertentu
1. Ping memanfaatkan shell
dim sFile as string, sAddress as string 'info file hasil ping dan url yang di-ping
dim iFile as integer, sLine as string, lLine as long 'variabel kerja baca file hasil ping
thisworkbook.sheets(1).range("a:a").clearcontents 'hapus area penulisan hasil
'init file hasil ping dan url yang di-ping
sfile=thisworkbook.path & "\res.txt" 'hasil ping disimpan di file res.txt di path yang sama dengan workbook
saddress="www.google.com" 'url yang di-ping, bisa juga ip address-nya seperti untuk google bisa 111.95.240.85 (nslookup untuk list ip address sebuah domain)
'perintah ping dengan shell
'-> catatan : jika url-nya timeout, butuh waktu beberapa detik untuk selesaikan proses,
' ping 1 kali saja
shell "cmd /c ping " & sAddress & " -n 1 > """ & sFile & """", vbHide
application.wait now + timevalue("00:00:05")
'baca file hasil ping (file res.txt dalam sFile) dengan open
lline=0 'baris hasil di sheet(1) masih 0
ifile=freefile 'generate nomor file
open sfile for input as ifile 'buka file
do while not eof(ifile) 'loop setiap baris dalam file sampai akhir file
lline=lline+1 'set baris hasil bertambah 1
line input #ifile,sline 'ambil isi sebaris file dan masukkan ke sline
thisworkbook.sheets(1).cells( lline , 1 ).value= "'" & sline 'tulis ke cells hasil
loop
close ifile 'tutup file
kill sfile 'delete file
*** cara 1 ini menggunakan application.wait untuk memastikan bahwa proses oleh baris shell dipastikan telah selesai lebih dulu sebelum mulai membaca isi file hasil
2. ping menggunakan wscript.shell (supaya lebih pasti bahwa proses telah selesai dan siap dibaca filenya)
dim sFile as string, sAddress as string 'info file hasil ping dan url yang di-ping
dim iFile as integer, sLine as string, lLine as long 'variabel kerja baca file hasil ping
dim wsh as object
thisworkbook.sheets(1).range("a:a").clearcontents 'hapus area penulisan hasil
'init file hasil ping dan url yang di-ping
sfile=thisworkbook.path & "\res.txt" 'hasil ping disimpan di file res.txt di path yang sama dengan workbook
saddress="www.google.com" 'url yang di-ping, bisa juga ip address-nya seperti untuk google bisa 111.95.240.85 (nslookup untuk list ip address sebuah domain)
'perintah ping dengan shell
'-> catatan : jika url-nya timeout, butuh waktu beberapa detik untuk selesaikan proses,
' ping 1 kali saja
set wsh=createobject("WScript.Shell")
wsh.run "cmd /c ping " & sAddress & " -n 1 > """ & sFile & """", 0,true
'baca file hasil ping (file res.txt dalam sFile) dengan open
lline=0 'baris hasil di sheet(1) masih 0
ifile=freefile 'generate nomor file
open sfile for input as ifile 'buka file
do while not eof(ifile) 'loop setiap baris dalam file sampai akhir file
lline=lline+1 'set baris hasil bertambah 1
line input #ifile,sline 'ambil isi sebaris file dan masukkan ke sline
thisworkbook.sheets(1).cells( lline , 1 ).value= "'" & sline 'tulis ke cells hasil
loop
close ifile 'tutup file
kill sfile 'delete file
*** cara 2 ini lebih pasti bahwa ketika proses ping telah selesai barulah baca file hasil ping
fyi,
ping menggunakan ICMP dan beberapa url tidak mengijinkan akses dengan ICMP, sehingga akan menghasilkan timeout, padahal jika url dibuka dengan browser tetap akan terbuka alias tidak timeout. Contohnya, website Bank Indonesia di www.bi.go.id
Dengan ping ke www.bi.go.id hasilnya akan timeout, tetapi di browser ditulis url www.bi.go.id, browser akan membuka website Bank Indonesia.
Hal ini disebabkan karena ICMP di-disable oleh server Bank Indonesia, tetapi browser di-Enable.
Jika maskud penggunaan ping untuk mengetahui url dapat diakses atau tidak, maka bisa juga menggunakan cara lainnya, seperti followhyperlink.
Contoh :
A. Pakai followhyperlink (sayangnya, kalau url bisa diakses, akan membuka url terebut di browser)
dim sAddress as string
thisworkbook.sheets(1).range("a:a").clearcontents 'hapus area penulisan hasil
'init url yang di-ping
saddress="www.google.com" 'url yang di-ping, bisa juga ip address-nya seperti untuk google bisa 111.95.240.85 (nslookup untuk list ip address sebuah domain)
'perintah followhyperlink
on error resume next 'trap error
thisworkbook.followhyperlink "http://" & saddress
'tulis status hasil
if err.number<>0 then
err.clear
thisworkbook.sheets(1).cells(1, 1).value = sAddress & " : Request Timeout"
else
thisworkbook.sheets(1).cells(1, 1).value = sAddress & " : OK"
endif
on error goto 0 'kembalikan trap error ke default
B. Pakai xlmHTTP
dim sAddress as string
dim sRes as string, oXML as object 'variabel penyimpan response dan object xmlhttp
thisworkbook.sheets(1).range("a:a").clearcontents 'hapus area penulisan hasil
'init url yang di-ping
saddress="www.google.com" 'url yang di-ping, bisa juga ip address-nya seperti untuk google bisa 111.95.240.85 (nslookup untuk list ip address sebuah domain)
'perintah panggil url
set oxml=createobject("MSXML2.serverXMLHTTP")
oxml.open "GET", "http://" & saddress ,false
oxml.send
sres=oxml.responsetext
'tulis status hasil
if err.number<>0 then
err.clear
thisworkbook.sheets(1).cells(1, 1).value = sAddress & " : Request Timeout"
else
thisworkbook.sheets(1).cells(1, 1).value = sAddress & " : OK"
endif
on error goto 0 'kembalikan trap error ke default
Regards,
Kid
2016-09-14 9:24 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear be Exceller..
Bisakah VBA mendapatkan hasil informasi ping ke dari alamat tertentu
Contoh :
Ping statistics for 123.456.789:
Packets: Sent = 4, Received = 0, Lost = 4 (100% loss)
Mohon pencerahannya
Wed Sep 14, 2016 2:32 am (PDT) . Posted by:
"Toby kenzo" tobykenzo
Hai Roni,
coba kamu click Debug pada pesan tersebut, maka akan tertuju script mana yang bemasalah.
TerimaKasih.
Pada Rabu, 14 September 2016 15:36, "y.roni35@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Saya punya file vba excel ketika digunakan muncul Run Time Eror 75.Kira2 kesalahan yang harus saya perbaiki terletak dmn. makasih
#yiv5706726880 #yiv5706726880 -- #yiv5706726880ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5706726880 #yiv5706726880ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5706726880 #yiv5706726880ygrp-mkp #yiv5706726880hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5706726880 #yiv5706726880ygrp-mkp #yiv5706726880ads {margin-bottom:10px;}#yiv5706726880 #yiv5706726880ygrp-mkp .yiv5706726880ad {padding:0 0;}#yiv5706726880 #yiv5706726880ygrp-mkp .yiv5706726880ad p {margin:0;}#yiv5706726880 #yiv5706726880ygrp-mkp .yiv5706726880ad a {color:#0000ff;text-decoration:none;}#yiv5706726880 #yiv5706726880ygrp-sponsor #yiv5706726880ygrp-lc {font-family:Arial;}#yiv5706726880 #yiv5706726880ygrp-sponsor #yiv5706726880ygrp-lc #yiv5706726880hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5706726880 #yiv5706726880ygrp-sponsor #yiv5706726880ygrp-lc .yiv5706726880ad {margin-bottom:10px;padding:0 0;}#yiv5706726880 #yiv5706726880actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5706726880 #yiv5706726880activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5706726880 #yiv5706726880activity span {font-weight:700;}#yiv5706726880 #yiv5706726880activity span:first-child {text-transform:uppercase;}#yiv5706726880 #yiv5706726880activity span a {color:#5085b6;text-decoration:none;}#yiv5706726880 #yiv5706726880activity span span {color:#ff7900;}#yiv5706726880 #yiv5706726880activity span .yiv5706726880underline {text-decoration:underline;}#yiv5706726880 .yiv5706726880attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5706726880 .yiv5706726880attach div a {text-decoration:none;}#yiv5706726880 .yiv5706726880attach img {border:none;padding-right:5px;}#yiv5706726880 .yiv5706726880attach label {display:block;margin-bottom:5px;}#yiv5706726880 .yiv5706726880attach label a {text-decoration:none;}#yiv5706726880 blockquote {margin:0 0 0 4px;}#yiv5706726880 .yiv5706726880bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5706726880 .yiv5706726880bold a {text-decoration:none;}#yiv5706726880 dd.yiv5706726880last p a {font-family:Verdana;font-weight:700;}#yiv5706726880 dd.yiv5706726880last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5706726880 dd.yiv5706726880last p span.yiv5706726880yshortcuts {margin-right:0;}#yiv5706726880 div.yiv5706726880attach-table div div a {text-decoration:none;}#yiv5706726880 div.yiv5706726880attach-table {width:400px;}#yiv5706726880 div.yiv5706726880file-title a, #yiv5706726880 div.yiv5706726880file-title a:active, #yiv5706726880 div.yiv5706726880file-title a:hover, #yiv5706726880 div.yiv5706726880file-title a:visited {text-decoration:none;}#yiv5706726880 div.yiv5706726880photo-title a, #yiv5706726880 div.yiv5706726880photo-title a:active, #yiv5706726880 div.yiv5706726880photo-title a:hover, #yiv5706726880 div.yiv5706726880photo-title a:visited {text-decoration:none;}#yiv5706726880 div#yiv5706726880ygrp-mlmsg #yiv5706726880ygrp-msg p a span.yiv5706726880yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5706726880 .yiv5706726880green {color:#628c2a;}#yiv5706726880 .yiv5706726880MsoNormal {margin:0 0 0 0;}#yiv5706726880 o {font-size:0;}#yiv5706726880 #yiv5706726880photos div {float:left;width:72px;}#yiv5706726880 #yiv5706726880photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5706726880 #yiv5706726880photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5706726880 #yiv5706726880reco-category {font-size:77%;}#yiv5706726880 #yiv5706726880reco-desc {font-size:77%;}#yiv5706726880 .yiv5706726880replbq {margin:4px;}#yiv5706726880 #yiv5706726880ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5706726880 #yiv5706726880ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5706726880 #yiv5706726880ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5706726880 #yiv5706726880ygrp-mlmsg select, #yiv5706726880 input, #yiv5706726880 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5706726880 #yiv5706726880ygrp-mlmsg pre, #yiv5706726880 code {font:115% monospace;}#yiv5706726880 #yiv5706726880ygrp-mlmsg * {line-height:1.22em;}#yiv5706726880 #yiv5706726880ygrp-mlmsg #yiv5706726880logo {padding-bottom:10px;}#yiv5706726880 #yiv5706726880ygrp-msg p a {font-family:Verdana;}#yiv5706726880 #yiv5706726880ygrp-msg p#yiv5706726880attach-count span {color:#1E66AE;font-weight:700;}#yiv5706726880 #yiv5706726880ygrp-reco #yiv5706726880reco-head {color:#ff7900;font-weight:700;}#yiv5706726880 #yiv5706726880ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5706726880 #yiv5706726880ygrp-sponsor #yiv5706726880ov li a {font-size:130%;text-decoration:none;}#yiv5706726880 #yiv5706726880ygrp-sponsor #yiv5706726880ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5706726880 #yiv5706726880ygrp-sponsor #yiv5706726880ov ul {margin:0;padding:0 0 0 8px;}#yiv5706726880 #yiv5706726880ygrp-text {font-family:Georgia;}#yiv5706726880 #yiv5706726880ygrp-text p {margin:0 0 1em 0;}#yiv5706726880 #yiv5706726880ygrp-text tt {font-size:120%;}#yiv5706726880 #yiv5706726880ygrp-vital ul li:last-child {border-right:none !important;}#yiv5706726880
coba kamu click Debug pada pesan tersebut, maka akan tertuju script mana yang bemasalah.
TerimaKasih.
Pada Rabu, 14 September 2016 15:36, "y.roni35@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Saya punya file vba excel ketika digunakan muncul Run Time Eror 75.Kira2 kesalahan yang harus saya perbaiki terletak dmn. makasih
#yiv5706726880 #yiv5706726880 -- #yiv5706726880ygrp-
Wed Sep 14, 2016 2:58 am (PDT) . Posted by:
"ribowo ." ribowo25
Selamat Sore dear Exceller,
mohon dibantu untuk formula penghitungan denda pada list excel terlampir,
Atas bantuannya saya ucapkan banyak terimakasih.
B3B0South Jakarta
mohon dibantu untuk formula penghitungan denda pada list excel terlampir,
Atas bantuannya saya ucapkan banyak terimakasih.
B3B0South Jakarta
Wed Sep 14, 2016 3:53 am (PDT) . Posted by:
"Walsoyo"
Terimakasih pencerahannya mr. Dengan terpaksa karena alasan wewenang maka
disetiap rumus yg gak sesuai aturan saya pakai sum
disetiap rumus yg gak sesuai aturan saya pakai sum
Wed Sep 14, 2016 4:49 pm (PDT) . Posted by:
"Nang Agus"
Asalamualaikum warahmatullah
Dear member Belajar Excel
saya membuat sebuah cekrip sederhana untuk menangkap error namun error
tersebut tidak dapat diubah karena hasilnya selalu #VALUE
h = application.worksheetFunction.Find("a",x,1)
if iserror(h) then h = 15
hasil h selalu #VALUE jika a tidak ditemukan
bagaimanakah cekripnya agar h = 15 jika a tidak ditemukan?
terima kasih atas perhatiannya
Wasalamualaikum warahmatullah
Dear member Belajar Excel
saya membuat sebuah cekrip sederhana untuk menangkap error namun error
tersebut tidak dapat diubah karena hasilnya selalu #VALUE
h = application.
if iserror(h) then h = 15
hasil h selalu #VALUE jika a tidak ditemukan
bagaimanakah cekripnya agar h = 15 jika a tidak ditemukan?
terima kasih atas perhatiannya
Wasalamualaikum warahmatullah
Wed Sep 14, 2016 6:57 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wa'alaikumussalam wr wb
mas Nang,
coba pakai on error resume next
dim h as long, x as string
on error resume next
x="bc"
h=application.worksheetfunction.find("a",x)
if h=0 then
h=15
endif
err.clear
on error goto 0
atau pakai evaluate
dim h as long, x as string
x="bc"
h=evaluate("=iferror( find( *""*a*""* , *""*" & x & "*""* ) ,15)")
'kalau di sebuah cells, sama dengan formula berbunyi : =iferror( find( *"*
a*"* , *"*bc*"* ) , 15 )
'satu bijik petik dua (") disebuah bunyi teks menjadi 2 buah petik dua ("")
di dalam penulisan nilai teks di baris kode
'x="b dan "" c juga d" 'akan membuat x berisi nilai teks berbunyi b dan "
c juga d
Wassalamu'alaikum wr wb
Kid
2016-09-15 6:49 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Asalamualaikum warahmatullah
>
> Dear member Belajar Excel
>
> saya membuat sebuah cekrip sederhana untuk menangkap error namun error
> tersebut tidak dapat diubah karena hasilnya selalu #VALUE
>
> h = application.worksheetFunction.Find("a",x,1)
> if iserror(h) then h = 15
>
> hasil h selalu #VALUE jika a tidak ditemukan
> bagaimanakah cekripnya agar h = 15 jika a tidak ditemukan?
> terima kasih atas perhatiannya
> Wasalamualaikum warahmatullah
>
>
>
mas Nang,
coba pakai on error resume next
dim h as long, x as string
on error resume next
x="bc"
h=application.worksheetfunction.find("a",x)
if h=0 then
h=15
endif
err.clear
on error goto 0
atau pakai evaluate
dim h as long, x as string
x="bc"
h=evaluate("=iferror( find( *""*a*""* , *""*" & x & "*""* ) ,15)")
'kalau di sebuah cells, sama dengan formula berbunyi : =iferror( find( *"*
a*"* , *"*bc*"* ) , 15 )
'satu bijik petik dua (") disebuah bunyi teks menjadi 2 buah petik dua ("")
di dalam penulisan nilai teks di baris kode
'x="b dan "" c juga d" 'akan membuat x berisi nilai teks berbunyi b dan "
c juga d
Wassalamu'alaikum wr wb
Kid
2016-09-15 6:49 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Asalamualaikum warahmatullah
>
> Dear member Belajar Excel
>
> saya membuat sebuah cekrip sederhana untuk menangkap error namun error
> tersebut tidak dapat diubah karena hasilnya selalu #VALUE
>
> h = application.
> if iserror(h) then h = 15
>
> hasil h selalu #VALUE jika a tidak ditemukan
> bagaimanakah cekripnya agar h = 15 jika a tidak ditemukan?
> terima kasih atas perhatiannya
> Wasalamualaikum warahmatullah
>
>
>
Wed Sep 14, 2016 9:03 pm (PDT) . Posted by:
"Nang Agus"
Asalamualaikum warahmatullah.
Terima kasih mas Kid
permasalahan selesai.
Wasalamualaikum warahmatullah.
2016-09-15 8:33 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> wa'alaikumussalam wr wb
>
> mas Nang,
>
> coba pakai on error resume next
>
> dim h as long, x as string
> on error resume next
> x="bc"
> h=application.worksheetfunction.find("a",x)
> if h=0 then
> h=15
> endif
> err.clear
> on error goto 0
>
> atau pakai evaluate
> dim h as long, x as string
> x="bc"
> h=evaluate("=iferror( find( *""*a*""* , *""*" & x & "*""* ) ,15)")
> 'kalau di sebuah cells, sama dengan formula berbunyi : =iferror( find(
> *"*a*"* , *"*bc*"* ) , 15 )
> 'satu bijik petik dua (") disebuah bunyi teks menjadi 2 buah petik dua
> ("") di dalam penulisan nilai teks di baris kode
> 'x="b dan "" c juga d" 'akan membuat x berisi nilai teks berbunyi b dan
> " c juga d
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
> 2016-09-15 6:49 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Asalamualaikum warahmatullah
>>
>> Dear member Belajar Excel
>>
>> saya membuat sebuah cekrip sederhana untuk menangkap error namun error
>> tersebut tidak dapat diubah karena hasilnya selalu #VALUE
>>
>> h = application.worksheetFunction.Find("a",x,1)
>> if iserror(h) then h = 15
>>
>> hasil h selalu #VALUE jika a tidak ditemukan
>> bagaimanakah cekripnya agar h = 15 jika a tidak ditemukan?
>> terima kasih atas perhatiannya
>> Wasalamualaikum warahmatullah
>>
>>
>
>
Terima kasih mas Kid
permasalahan selesai.
Wasalamualaikum warahmatullah.
2016-09-15 8:33 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> wa'alaikumussalam wr wb
>
> mas Nang,
>
> coba pakai on error resume next
>
> dim h as long, x as string
> on error resume next
> x="bc"
> h=application.worksheetfunction.find("a",x)
> if h=0 then
> h=15
> endif
> err.clear
> on error goto 0
>
> atau pakai evaluate
> dim h as long, x as string
> x="bc"
> h=evaluate("=iferror( find( *""*a*""* , *""*" & x & "*""* ) ,15)")
> 'kalau di sebuah cells, sama dengan formula berbunyi : =iferror( find(
> *"*a*"* , *"*bc*"* ) , 15 )
> 'satu bijik petik dua (") disebuah bunyi teks menjadi 2 buah petik dua
> ("") di dalam penulisan nilai teks di baris kode
> 'x="b dan "" c juga d" 'akan membuat x berisi nilai teks berbunyi b dan
> " c juga d
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
> 2016-09-15 6:49 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Asalamualaikum warahmatullah
>>
>> Dear member Belajar Excel
>>
>> saya membuat sebuah cekrip sederhana untuk menangkap error namun error
>> tersebut tidak dapat diubah karena hasilnya selalu #VALUE
>>
>> h = application.
>> if iserror(h) then h = 15
>>
>> hasil h selalu #VALUE jika a tidak ditemukan
>> bagaimanakah cekripnya agar h = 15 jika a tidak ditemukan?
>> terima kasih atas perhatiannya
>> Wasalamualaikum warahmatullah
>>
>>
>
>
Thu Sep 15, 2016 1:05 am (PDT) . Posted by:
"Fajar Fatahillah" fajar.fatahillah
Dear Master Excel,mohon bantuannya untuk kasus saya,ada dua file/workbook berbeda yang berisi nama-nama costumer,yang ingin saya tanyakan , bagaimana cara menghitung jumlah nama costumer yang sama antara file 1 dan file 2.Terima kasih Best Regards, Fajar Fatahillah
#yiv9108460622 #yiv9108460622 -- #yiv9108460622ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9108460622 #yiv9108460622ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9108460622 #yiv9108460622ygrp-mkp #yiv9108460622hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9108460622 #yiv9108460622ygrp-mkp #yiv9108460622ads {margin-bottom:10px;}#yiv9108460622 #yiv9108460622ygrp-mkp .yiv9108460622ad {padding:0 0;}#yiv9108460622 #yiv9108460622ygrp-mkp .yiv9108460622ad p {margin:0;}#yiv9108460622 #yiv9108460622ygrp-mkp .yiv9108460622ad a {color:#0000ff;text-decoration:none;}#yiv9108460622 #yiv9108460622ygrp-sponsor #yiv9108460622ygrp-lc {font-family:Arial;}#yiv9108460622 #yiv9108460622ygrp-sponsor #yiv9108460622ygrp-lc #yiv9108460622hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9108460622 #yiv9108460622ygrp-sponsor #yiv9108460622ygrp-lc .yiv9108460622ad {margin-bottom:10px;padding:0 0;}#yiv9108460622 #yiv9108460622actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9108460622 #yiv9108460622activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9108460622 #yiv9108460622activity span {font-weight:700;}#yiv9108460622 #yiv9108460622activity span:first-child {text-transform:uppercase;}#yiv9108460622 #yiv9108460622activity span a {color:#5085b6;text-decoration:none;}#yiv9108460622 #yiv9108460622activity span span {color:#ff7900;}#yiv9108460622 #yiv9108460622activity span .yiv9108460622underline {text-decoration:underline;}#yiv9108460622 .yiv9108460622attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9108460622 .yiv9108460622attach div a {text-decoration:none;}#yiv9108460622 .yiv9108460622attach img {border:none;padding-right:5px;}#yiv9108460622 .yiv9108460622attach label {display:block;margin-bottom:5px;}#yiv9108460622 .yiv9108460622attach label a {text-decoration:none;}#yiv9108460622 blockquote {margin:0 0 0 4px;}#yiv9108460622 .yiv9108460622bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9108460622 .yiv9108460622bold a {text-decoration:none;}#yiv9108460622 dd.yiv9108460622last p a {font-family:Verdana;font-weight:700;}#yiv9108460622 dd.yiv9108460622last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9108460622 dd.yiv9108460622last p span.yiv9108460622yshortcuts {margin-right:0;}#yiv9108460622 div.yiv9108460622attach-table div div a {text-decoration:none;}#yiv9108460622 div.yiv9108460622attach-table {width:400px;}#yiv9108460622 div.yiv9108460622file-title a, #yiv9108460622 div.yiv9108460622file-title a:active, #yiv9108460622 div.yiv9108460622file-title a:hover, #yiv9108460622 div.yiv9108460622file-title a:visited {text-decoration:none;}#yiv9108460622 div.yiv9108460622photo-title a, #yiv9108460622 div.yiv9108460622photo-title a:active, #yiv9108460622 div.yiv9108460622photo-title a:hover, #yiv9108460622 div.yiv9108460622photo-title a:visited {text-decoration:none;}#yiv9108460622 div#yiv9108460622ygrp-mlmsg #yiv9108460622ygrp-msg p a span.yiv9108460622yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9108460622 .yiv9108460622green {color:#628c2a;}#yiv9108460622 .yiv9108460622MsoNormal {margin:0 0 0 0;}#yiv9108460622 o {font-size:0;}#yiv9108460622 #yiv9108460622photos div {float:left;width:72px;}#yiv9108460622 #yiv9108460622photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9108460622 #yiv9108460622photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9108460622 #yiv9108460622reco-category {font-size:77%;}#yiv9108460622 #yiv9108460622reco-desc {font-size:77%;}#yiv9108460622 .yiv9108460622replbq {margin:4px;}#yiv9108460622 #yiv9108460622ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9108460622 #yiv9108460622ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9108460622 #yiv9108460622ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9108460622 #yiv9108460622ygrp-mlmsg select, #yiv9108460622 input, #yiv9108460622 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9108460622 #yiv9108460622ygrp-mlmsg pre, #yiv9108460622 code {font:115% monospace;}#yiv9108460622 #yiv9108460622ygrp-mlmsg * {line-height:1.22em;}#yiv9108460622 #yiv9108460622ygrp-mlmsg #yiv9108460622logo {padding-bottom:10px;}#yiv9108460622 #yiv9108460622ygrp-msg p a {font-family:Verdana;}#yiv9108460622 #yiv9108460622ygrp-msg p#yiv9108460622attach-count span {color:#1E66AE;font-weight:700;}#yiv9108460622 #yiv9108460622ygrp-reco #yiv9108460622reco-head {color:#ff7900;font-weight:700;}#yiv9108460622 #yiv9108460622ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9108460622 #yiv9108460622ygrp-sponsor #yiv9108460622ov li a {font-size:130%;text-decoration:none;}#yiv9108460622 #yiv9108460622ygrp-sponsor #yiv9108460622ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9108460622 #yiv9108460622ygrp-sponsor #yiv9108460622ov ul {margin:0;padding:0 0 0 8px;}#yiv9108460622 #yiv9108460622ygrp-text {font-family:Georgia;}#yiv9108460622 #yiv9108460622ygrp-text p {margin:0 0 1em 0;}#yiv9108460622 #yiv9108460622ygrp-text tt {font-size:120%;}#yiv9108460622 #yiv9108460622ygrp-vital ul li:last-child {border-right:none !important;}#yiv91084606
#yiv9108460622 #yiv9108460622 -- #yiv9108460622ygrp-
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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