3 Messages
Digest #4626
Messages
Sun Oct 14, 2018 2:09 am (PDT) . Posted by:
"Agus"
Silahkan dicoba pada lampiran
Regard
Nang Agus
On 10/14/2018 06:16, Hendry Mahmud hendrymahmud@yahoo.com
[belajar-excel] wrote:
>
> Terima Kasih mas Agus,
>
> Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol "MULAI" , Tombol
> "BERHENTI" dan Tombol "RESET".
>
> Terima Kasih atas supportnya.
>
> CONTOH TERLAMPIR :
>
>
> Regards,
>
>
> HENDRY MAHMUD
> Mobile : +62 813 4373 8898
>
> Website : www.ikramgroup.id
>
> e-mail :
> hendrymahmud@ikramgroup.id
> *hendrymahmud@yahoo.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
> ----------------------------------------------------------
> Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmdjliZjQ2BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1Mzk0OTA2OTM->
>
>
> Yahoo! Groups
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJlNm9yNW1jBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTUzOTQ5MDY5Mw-->
>
> • Privacy
> <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <mailto:belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe>
> • Terms of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> SPONSORED LINKS
> .
>
>
Regard
Nang Agus
On 10/14/2018 06:16, Hendry Mahmud hendrymahmud@yahoo.com
[belajar-excel] wrote:
>
> Terima Kasih mas Agus,
>
> Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol "MULAI" , Tombol
> "BERHENTI" dan Tombol "RESET".
>
> Terima Kasih atas supportnya.
>
> CONTOH TERLAMPIR :
>
>
> Regards,
>
>
> HENDRY MAHMUD
> Mobile : +62 813 4373 8898
>
> Website : www.ikramgroup.id
>
> e-mail :
> hendrymahmud@ikramgroup.id
> *hendrymahmud@yahoo.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
> ----------------------------------------------------------
> Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmdjliZjQ2BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1Mzk0OTA2OTM->
>
>
> Yahoo! Groups
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJlNm9yNW1jBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTUzOTQ5MDY5Mw-->
>
> • Privacy
> <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <mailto:belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe>
> • Terms of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> SPONSORED LINKS
> .
>
>
Sun Oct 14, 2018 5:03 pm (PDT) . Posted by:
"Agus"
Dear Hendri Mahmud
Mohon maaf ada kesalahan sedikit cekrip pada file terdahulu,
waktunya melompat-lompat
file terakhir dapat diresume dengan cell bantu di F2
regard
NangAgus
On 10/14/2018 16:09, Agus nangagus@gmail.com [belajar-excel] wrote:
>
> Silahkan dicoba pada lampiran
>
> Regard
> Nang Agus
> On 10/14/2018 06:16, Hendry Mahmud hendrymahmud@yahoo.com
> [belajar-excel] wrote:
>>
>> Terima Kasih mas Agus,
>>
>> Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol "MULAI" , Tombol
>> "BERHENTI" dan Tombol "RESET".
>>
>> Terima Kasih atas supportnya.
>>
>> CONTOH TERLAMPIR :
>>
>>
>> Regards,
>>
>>
>> HENDRY MAHMUD
>> Mobile : +62 813 4373 8898
>>
>> Website : www.ikramgroup.id
>>
>> e-mail :
>> hendrymahmud@ikramgroup.id
>> *hendrymahmud@yahoo.com
>> *
>>
>>
>> ----------------------------------------------------------
>> .
>>
>
>
Mohon maaf ada kesalahan sedikit cekrip pada file terdahulu,
waktunya melompat-lompat
file terakhir dapat diresume dengan cell bantu di F2
regard
NangAgus
On 10/14/2018 16:09, Agus nangagus@gmail.com [belajar-excel] wrote:
>
> Silahkan dicoba pada lampiran
>
> Regard
> Nang Agus
> On 10/14/2018 06:16, Hendry Mahmud hendrymahmud@yahoo.com
> [belajar-excel] wrote:
>>
>> Terima Kasih mas Agus,
>>
>> Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol "MULAI" , Tombol
>> "BERHENTI" dan Tombol "RESET".
>>
>> Terima Kasih atas supportnya.
>>
>> CONTOH TERLAMPIR :
>>
>>
>> Regards,
>>
>>
>> HENDRY MAHMUD
>> Mobile : +62 813 4373 8898
>>
>> Website : www.ikramgroup.id
>>
>> e-mail :
>> hendrymahmud@ikramgroup.id
>> *hendrymahmud@yahoo.com
>> *
>>
>>
>> ------------
>> .
>>
>
>
Sun Oct 14, 2018 3:27 pm (PDT) . Posted by:
"Zainul Ulum" zainul_ulum
Mas Kid,Terimakasih masukannya akan saya coba dan hasilnya akan share di milis.
tanya lagi:-- apakah memang ada beberapa element html di browser yang tidak dikenali oleh internet explorer? saya coba oHTML_Element = oHTMLDoc..getElementById(sElemenID), object ketemu, tetapi tidak bisa diset atau diganti atribute atau propertinya.
Thanks,-zainu
On Sunday, 14 October 2018, 12:53:32 AM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
hmmm...
kalau begini bisa gak ?
(dicoba dengan sebuah prosedur sederhana ya, apa saja nama prosedurnya)
dim oBrowser as objectset obrowser=createobject("Internetexplorer.Application")with obrowser .visible=true .navigate "alamat webpage" do while .readystate<>4 or .busy 'proses cek timeout bisa dilakukan disini
loop msgbox "Browser sudah siap.",vbinformation
end with
Contoh kalau mau pakai timeout, lalu batalkan (tutup browser-nya sekalian)
dim oBrowser as object ,dblTimer as double, dblTimeOut as double
dbltimeout=1 'misal timeout 1 detik (buat nyoba saja)
set obrowser=createobject("Internetexplorer.Application")with obrowser .visible=true .navigate "alamat webpage" dbltimer=timer
do while .readystate<>4 or .busy 'proses cek timeout bisa dilakukan disini if timer-dbltimer>dbltimeout then .quit msgbox "Timeout",vbexclamation exit sub
endif
loop msgbox "Browser sudah siap.",vbinformation
end with
Regards,Kid
On Mon, Oct 8, 2018 at 11:59 AM Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Rekan Be-Excel,saya membuat coding sederhana di vba-excel untuk otomasi pengisian form di internet explorer dengan menggunakan object library/reference: microsoft interner control.
Salah satu kendalanya adalah untuk memastikan bahwa object/ internet element dalam form di internet explorer adalah siap (ready) untuk diisi dari data yang saya ambil dari spead sheet excel.
Berdasarkan online help yang saya baca, untuk mengecek bahwa object sudah terunduh sempurna adalah dengan menggunakan nilai property readystate. Jika nilai readystate bernilai = 4 , maka object di internet explorer sudah ter-loaded dan siap untuk diisi sedangkan untuk menunggu readystate=4 dilakukan looping sampai didapat nilai property=4 (ready).
Akan tetapi dalam implementasinya, terutama jika internet connectionnya jelek, saat menggunakan looping (do.....loop atau while....wend) ternyata object belum siap atau belum ready. Untuk memaksa object menjadi ready, saya menambahkan tambahan waktu tunggu / waktu looping Application.Wait dengan tambahan nilai tunggu 1 detik ( sDelay = Format(TimeValue(sDelay) + TimeValue("00:00:" & Format(i, "00")), "hh:mm:ss")) , sampai object benar-benar siap.
Kelemahan dari penambahan application.wait tersebut adalah proses pengisian form akan lama karena tiap loop ditambahkan waktu. tunggu.
di bawah, contoh code yang telah saya buat dengan tambahan proses delay (application.wat). Mohon bantuan atau masukan dari teman-teman yang pengalaman di "web scrapping"
Wassalam,-zainul
'==========================================================================Private Function SetAttributeWithDelay(objBrowser As InternetExplorer, ByVal sDelay As String, _ ByVal sElemenID As String, ByVal sAttrKey As String, ByVal vValue As Variant) As Boolean Dim oHTMLDoc As HTMLDocument Dim oHTML_Element As Object Dim i As Integer Dim bol As Boolean SetAttributeWithDelay = True i = -1 Do i = i + 1 sDelay = Format(TimeValue(sDelay) + TimeValue("00:00:" & Format(i, "00")), "hh:mm:ss") Do ' Wait till the Browser is loaded Application.Wait (Now + TimeValue(sDelay)) '--->NOTE: dicoba pakai ini berhasil tetapi proses lama Loop Until objBrowser.readyState = 4 'READYSTATE_COMPLETE 'While objBrowser.readyState <> 4 Or objBrowser.Busy: DoEvents: Wend--->note: dicoba pakai ini tidak berhasil Set oHTMLDoc = objBrowser.document On Error Resume Next Set oHTML_Element = oHTMLDoc.getElementById(sElemenID) If Err.Number Then Err.Clear 'Application.Wait (Now + TimeValue(sDelay))'---> note:dicoba pakai ini tidak berhasil 'oHTML_Element = oHTMLDoc.getElementById(sElemenID) End If If i = 10 Then SetAttributeWithDelay = False Exit Function End If Loop Until Not oHTML_Element Is Nothing Call oHTML_Element.setAttribute(sAttrKey, vValue)End Function
#yiv4949035968 #yiv4949035968 -- #yiv4949035968ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4949035968 #yiv4949035968ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4949035968 #yiv4949035968ygrp-mkp #yiv4949035968hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4949035968 #yiv4949035968ygrp-mkp #yiv4949035968ads {margin-bottom:10px;}#yiv4949035968 #yiv4949035968ygrp-mkp .yiv4949035968ad {padding:0 0;}#yiv4949035968 #yiv4949035968ygrp-mkp .yiv4949035968ad p {margin:0;}#yiv4949035968 #yiv4949035968ygrp-mkp .yiv4949035968ad a {color:#0000ff;text-decoration:none;}#yiv4949035968 #yiv4949035968ygrp-sponsor #yiv4949035968ygrp-lc {font-family:Arial;}#yiv4949035968 #yiv4949035968ygrp-sponsor #yiv4949035968ygrp-lc #yiv4949035968hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4949035968 #yiv4949035968ygrp-sponsor #yiv4949035968ygrp-lc .yiv4949035968ad {margin-bottom:10px;padding:0 0;}#yiv4949035968 #yiv4949035968actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4949035968 #yiv4949035968activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4949035968 #yiv4949035968activity span {font-weight:700;}#yiv4949035968 #yiv4949035968activity span:first-child {text-transform:uppercase;}#yiv4949035968 #yiv4949035968activity span a {color:#5085b6;text-decoration:none;}#yiv4949035968 #yiv4949035968activity span span {color:#ff7900;}#yiv4949035968 #yiv4949035968activity span .yiv4949035968underline {text-decoration:underline;}#yiv4949035968 .yiv4949035968attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4949035968 .yiv4949035968attach div a {text-decoration:none;}#yiv4949035968 .yiv4949035968attach img {border:none;padding-right:5px;}#yiv4949035968 .yiv4949035968attach label {display:block;margin-bottom:5px;}#yiv4949035968 .yiv4949035968attach label a {text-decoration:none;}#yiv4949035968 blockquote {margin:0 0 0 4px;}#yiv4949035968 .yiv4949035968bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4949035968 .yiv4949035968bold a {text-decoration:none;}#yiv4949035968 dd.yiv4949035968last p a {font-family:Verdana;font-weight:700;}#yiv4949035968 dd.yiv4949035968last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4949035968 dd.yiv4949035968last p span.yiv4949035968yshortcuts {margin-right:0;}#yiv4949035968 div.yiv4949035968attach-table div div a {text-decoration:none;}#yiv4949035968 div.yiv4949035968attach-table {width:400px;}#yiv4949035968 div.yiv4949035968file-title a, #yiv4949035968 div.yiv4949035968file-title a:active, #yiv4949035968 div.yiv4949035968file-title a:hover, #yiv4949035968 div.yiv4949035968file-title a:visited {text-decoration:none;}#yiv4949035968 div.yiv4949035968photo-title a, #yiv4949035968 div.yiv4949035968photo-title a:active, #yiv4949035968 div.yiv4949035968photo-title a:hover, #yiv4949035968 div.yiv4949035968photo-title a:visited {text-decoration:none;}#yiv4949035968 div#yiv4949035968ygrp-mlmsg #yiv4949035968ygrp-msg p a span.yiv4949035968yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4949035968 .yiv4949035968green {color:#628c2a;}#yiv4949035968 .yiv4949035968MsoNormal {margin:0 0 0 0;}#yiv4949035968 o {font-size:0;}#yiv4949035968 #yiv4949035968photos div {float:left;width:72px;}#yiv4949035968 #yiv4949035968photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4949035968 #yiv4949035968photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4949035968 #yiv4949035968reco-category {font-size:77%;}#yiv4949035968 #yiv4949035968reco-desc {font-size:77%;}#yiv4949035968 .yiv4949035968replbq {margin:4px;}#yiv4949035968 #yiv4949035968ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4949035968 #yiv4949035968ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4949035968 #yiv4949035968ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4949035968 #yiv4949035968ygrp-mlmsg select, #yiv4949035968 input, #yiv4949035968 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4949035968 #yiv4949035968ygrp-mlmsg pre, #yiv4949035968 code {font:115% monospace;}#yiv4949035968 #yiv4949035968ygrp-mlmsg * {line-height:1..22em;}#yiv4949035968 #yiv4949035968ygrp-mlmsg #yiv4949035968logo {padding-bottom:10px;}#yiv4949035968 #yiv4949035968ygrp-msg p a {font-family:Verdana;}#yiv4949035968 #yiv4949035968ygrp-msg p#yiv4949035968attach-count span {color:#1E66AE;font-weight:700;}#yiv4949035968 #yiv4949035968ygrp-reco #yiv4949035968reco-head {color:#ff7900;font-weight:700;}#yiv4949035968 #yiv4949035968ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4949035968 #yiv4949035968ygrp-sponsor #yiv4949035968ov li a {font-size:130%;text-decoration:none;}#yiv4949035968 #yiv4949035968ygrp-sponsor #yiv4949035968ov li {font-size:77%
tanya lagi:-- apakah memang ada beberapa element html di browser yang tidak dikenali oleh internet explorer? saya coba oHTML_Element = oHTMLDoc..getElementById(sElemenID), object ketemu, tetapi tidak bisa diset atau diganti atribute atau propertinya.
Thanks,-zainu
On Sunday, 14 October 2018, 12:53:32 AM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
hmmm...
kalau begini bisa gak ?
(dicoba dengan sebuah prosedur sederhana ya, apa saja nama prosedurnya)
dim oBrowser as objectset obrowser=createobject("Internetexplorer.Application")with obrowser .visible=true .navigate "alamat webpage" do while .readystate<>4 or .busy 'proses cek timeout bisa dilakukan disini
loop msgbox "Browser sudah siap.",vbinformation
end with
Contoh kalau mau pakai timeout, lalu batalkan (tutup browser-nya sekalian)
dim oBrowser as object ,dblTimer as double, dblTimeOut as double
dbltimeout=1 'misal timeout 1 detik (buat nyoba saja)
set obrowser=createobject("Internetexplorer.Application")with obrowser .visible=true .navigate "alamat webpage" dbltimer=timer
do while .readystate<>4 or .busy 'proses cek timeout bisa dilakukan disini if timer-dbltimer>dbltimeout then .quit msgbox "Timeout",vbexclamation exit sub
endif
loop msgbox "Browser sudah siap.",vbinformation
end with
Regards,Kid
On Mon, Oct 8, 2018 at 11:59 AM Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Rekan Be-Excel,saya membuat coding sederhana di vba-excel untuk otomasi pengisian form di internet explorer dengan menggunakan object library/reference: microsoft interner control.
Salah satu kendalanya adalah untuk memastikan bahwa object/ internet element dalam form di internet explorer adalah siap (ready) untuk diisi dari data yang saya ambil dari spead sheet excel.
Berdasarkan online help yang saya baca, untuk mengecek bahwa object sudah terunduh sempurna adalah dengan menggunakan nilai property readystate. Jika nilai readystate bernilai = 4 , maka object di internet explorer sudah ter-loaded dan siap untuk diisi sedangkan untuk menunggu readystate=4 dilakukan looping sampai didapat nilai property=4 (ready).
Akan tetapi dalam implementasinya, terutama jika internet connectionnya jelek, saat menggunakan looping (do.....loop atau while....wend) ternyata object belum siap atau belum ready. Untuk memaksa object menjadi ready, saya menambahkan tambahan waktu tunggu / waktu looping Application.
Kelemahan dari penambahan application.
di bawah, contoh code yang telah saya buat dengan tambahan proses delay (application.
Wassalam,-zainul
'=======
#yiv4949035968 #yiv4949035968 -- #yiv4949035968ygrp-