6 Messages
Digest #4627
Messages
Mon Oct 15, 2018 5:19 am (PDT) . Posted by:
"Febri Ulan"
Malem master
Mau tnya, fbri udh ikutin doc yg trlmpir. To konurutan nomor nya beda" ya
distiap sheet nya.
Boleh dibntu jelasin master
Trimksih sblumny
Kam, 4 Okt 2018 pukul 14.23 Febri Ulan febriulan26@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
> terima kasih banya bantuaan ka aguus,
>
> regards
> febri
>
>
> Pada tanggal Kam, 4 Okt 2018 pukul 13.43 Agus nangagus@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Dear Febri,
>> Mungkinkah seperti terlampir contoh dimaksud?
>> Pada sheet1 KLik Input Data, akan muncul form sederhana untuk nama dan
>> alamat.
>> Jika di klik OK maka nama dan alamat akan disimpan pada sheet1, sheet2,
>> sheet3 dan sheet4.
>> Macro dibuat sangat sederhana agar mudah dipelajari. (karena macro
>> tersebut dapat disingkat)
>> lebih lengkapnya belajar mulai dari sini,
>> <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>
>> baca pelan-pelan resapi lalu praktikkan. jika ada kendala kirimkan ke
>> milis
>> Selamat belajar
>> Regard
>> Agus
>> On 10/4/2018 08:36, Febri Ulan febriulan26@gmail.com [belajar-excel]
>> wrote:
>>
>>
>> terimakash atas responnya,
>> nah maksudnya itu,
>> code untuk otomisasi di VBA nya ka, heheeh
>>
>> karena setiap google atau nge youtube, itu ga ktemu" kak,
>> klo ada link mengenai tutorial dari pertnyaan (input data lewat form dan
>> masuk dalam setiap sheet), boleh sklian di cantumin kak link nya,
>>
>> regards
>> febri😊
>>
>>
>> Pada tanggal Rab, 3 Okt 2018 pukul 21.17 Agus nangagus@gmail..com
>> <nangagus@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com>
>> menulis:
>>
>>>
>>>
>>> Selamat Malam Febri,
>>> Selamat bergabung dengan Milis.
>>> saya juga orang yang baru belajar VBA ...
>>> Sebaiknya kirimkan file excel dengan data dummi, maksimal 250 KB dengan
>>> contoh hasil yang dimaksud.
>>> Hal ini akan memudahkan para penanggap (menjawab pertanyaan) memahami
>>> dan memberikan jawaban.
>>>
>>> problem : mau input 1 kali namun masuk di beberapa sheet.
>>> bisa di bntu untuk solusi nya?
>>> =>> dapat dilakukan dengan banyak cara misalnya:
>>> 1. Gunakan otomatisasi dengan VBA.
>>> 2. Gunakan formula.
>>> 3. Gunakan pivot.
>>> tentunya semua memiliki keterbatasan masing-masing..
>>>
>>> On 10/3/2018 12:00, Febri Ulan febriulan26@gmail.com [belajar-excel]
>>> wrote:
>>>
>>>
>>> selamat siang, saya febri. baru bergabung di belajar-excel ini.. mau
>>> bnyak nnya mengenai macro vba nya, karena baru menyentuh bahasa codingan VB
>>> ini.
>>>
>>> problem : mau input 1 kali namun masuk di beberapa sheet.
>>>
>>> bisa di bntu untuk solusi nya?
>>> terimakasih
>>>
>>>
>>>
>>
>
Mau tnya, fbri udh ikutin doc yg trlmpir. To konurutan nomor nya beda" ya
distiap sheet nya.
Boleh dibntu jelasin master
Trimksih sblumny
Kam, 4 Okt 2018 pukul 14.23 Febri Ulan febriulan26@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
> terima kasih banya bantuaan ka aguus,
>
> regards
> febri
>
>
> Pada tanggal Kam, 4 Okt 2018 pukul 13.43 Agus nangagus@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Dear Febri,
>> Mungkinkah seperti terlampir contoh dimaksud?
>> Pada sheet1 KLik Input Data, akan muncul form sederhana untuk nama dan
>> alamat.
>> Jika di klik OK maka nama dan alamat akan disimpan pada sheet1, sheet2,
>> sheet3 dan sheet4.
>> Macro dibuat sangat sederhana agar mudah dipelajari. (karena macro
>> tersebut dapat disingkat)
>> lebih lengkapnya belajar mulai dari sini,
>> <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html>
>> baca pelan-pelan resapi lalu praktikkan. jika ada kendala kirimkan ke
>> milis
>> Selamat belajar
>> Regard
>> Agus
>> On 10/4/2018 08:36, Febri Ulan febriulan26@gmail.com [belajar-excel]
>> wrote:
>>
>>
>> terimakash atas responnya,
>> nah maksudnya itu,
>> code untuk otomisasi di VBA nya ka, heheeh
>>
>> karena setiap google atau nge youtube, itu ga ktemu" kak,
>> klo ada link mengenai tutorial dari pertnyaan (input data lewat form dan
>> masuk dalam setiap sheet), boleh sklian di cantumin kak link nya,
>>
>> regards
>> febri😊
>>
>>
>> Pada tanggal Rab, 3 Okt 2018 pukul 21.17 Agus nangagus@gmail..com
>> <nangagus@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com>
>> menulis:
>>
>>>
>>>
>>> Selamat Malam Febri,
>>> Selamat bergabung dengan Milis.
>>> saya juga orang yang baru belajar VBA ...
>>> Sebaiknya kirimkan file excel dengan data dummi, maksimal 250 KB dengan
>>> contoh hasil yang dimaksud.
>>> Hal ini akan memudahkan para penanggap (menjawab pertanyaan) memahami
>>> dan memberikan jawaban.
>>>
>>> problem : mau input 1 kali namun masuk di beberapa sheet.
>>> bisa di bntu untuk solusi nya?
>>> =>> dapat dilakukan dengan banyak cara misalnya:
>>> 1. Gunakan otomatisasi dengan VBA.
>>> 2. Gunakan formula.
>>> 3. Gunakan pivot.
>>> tentunya semua memiliki keterbatasan masing-masing..
>>>
>>> On 10/3/2018 12:00, Febri Ulan febriulan26@gmail.com [belajar-excel]
>>> wrote:
>>>
>>>
>>> selamat siang, saya febri. baru bergabung di belajar-excel ini.. mau
>>> bnyak nnya mengenai macro vba nya, karena baru menyentuh bahasa codingan VB
>>> ini.
>>>
>>> problem : mau input 1 kali namun masuk di beberapa sheet.
>>>
>>> bisa di bntu untuk solusi nya?
>>> terimakasih
>>>
>>>
>>>
>>
>
Mon Oct 15, 2018 7:23 pm (PDT) . Posted by:
"Agus"
Dear febri,
Cekrip kemarin memerintahkan komputer untuk:
baris = Sheets("sheet1").Range("A1048576").End(xlUp).Row + 1 => carilah
nomor row terakhir yang kosong di sheet1 kolom A isikan dalam variabel baris
Sheets("sheet1").Cells(baris, 1) = Cells(baris - 1, 1) + 1 => isi cell
di row= baris dengan isi cell diatasnya ditambah 1
Sheets("sheet1").Cells(baris, 2) = TextBox1.Text => isi cell sheet1 di
row = baris kolom 2 dengan isi textbox1
Sheets("sheet1").Cells(baris, 3) = TextBox2.Text => isi cell sheet1 di
row = baris kolom 3 dengan isi textbox2
Sheets("sheet2").Cells(baris, 1) = Cells(baris - 1, 1) + 1 => isi cell
sheet2 di row= baris dengan isi cell sama dengan isi cell row = baris,
kolom 1 pada sheet1
Sheets("sheet2").Cells(baris, 2) = TextBox1.Text => isi cell sheet2 di
row= baris kolom 2 dengan isi textbox1
Sheets("sheet2").Cells(baris, 3) = TextBox2.Text => isi cell sheet1 di
row = baris kolom 3 dengan isi textbox2
Regard
NangAgus
On 10/15/2018 18:44, Febri Ulan febriulan26@gmail.com [belajar-excel] wrote:
> Malem master
>
> Mau tnya, fbri udh ikutin doc yg trlmpir. To konurutan nomor nya beda"
> ya distiap sheet nya.
> Boleh dibntu jelasin master
>
> Trimksih sblumny
>
> Kam, 4 Okt 2018 pukul 14..23 Febri Ulan febriulan26@gmail.com
> <mailto:febriulan26@gmail.com> [belajar-excel]
> <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups..com>>
> menulis:
>
> terima kasih banya bantuaan ka aguus,
>
> regards
> febri
>
>
> Pada tanggal Kam, 4 Okt 2018 pukul 13.43 Agus nangagus@gmail.com
> <mailto:nangagus@gmail.com> [belajar-excel]
> <belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>> menulis:
>
> Dear Febri,
> Mungkinkah seperti terlampir contoh dimaksud?
> Pada sheet1 KLik Input Data, akan muncul form sederhana untuk
> nama dan alamat.
> Jika di klik OK maka nama dan alamat akan disimpan pada
> sheet1, sheet2, sheet3 dan sheet4.
> Macro dibuat sangat sederhana agar mudah dipelajari. (karena
> macro tersebut dapat disingkat)
> lebih lengkapnya belajar mulai dari sini,
> <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan..html>
> baca pelan-pelan resapi lalu praktikkan. jika ada kendala
> kirimkan ke milis
> Selamat belajar
> Regard
> Agus
> On 10/4/2018 08:36, Febri Ulan febriulan26@gmail.com
> <mailto:febriulan26@gmail.com> [belajar-excel] wrote:
>> terimakash atas responnya,
>> nah maksudnya itu,
>> code untuk otomisasi di VBA nya ka, heheeh
>>
>> karena setiap google atau nge youtube, itu ga ktemu" kak,
>> klo ada link mengenai tutorial dari pertnyaan (input data
>> lewat form dan masuk dalam setiap sheet), boleh sklian di
>> cantumin kak link nya,
>>
>> regards
>> febri😊
>>
>>
>> Pada tanggal Rab, 3 Okt 2018 pukul 21.17 Agus
>> nangagus@gmail..com <mailto:nangagus@gmail.com>
>> [belajar-excel] <belajar-excel@yahoogroups.com
>> <mailto:belajar-excel@yahoogroups.com>> menulis:
>>
>> Selamat Malam Febri,
>> Selamat bergabung dengan Milis.
>> saya juga orang yang baru belajar VBA ...
>> Sebaiknya kirimkan file excel dengan data dummi, maksimal
>> 250 KB dengan contoh hasil yang dimaksud.
>> Hal ini akan memudahkan para penanggap (menjawab
>> pertanyaan) memahami dan memberikan jawaban.
>>
>> problem : mau input 1 kali namun masuk di beberapa sheet.
>> bisa di bntu untuk solusi nya?
>> =>> dapat dilakukan dengan banyak cara misalnya:
>> 1. Gunakan otomatisasi dengan VBA.
>> 2. Gunakan formula.
>> 3. Gunakan pivot.
>> tentunya semua memiliki keterbatasan masing-masing..
>>
>> On 10/3/2018 12:00, Febri Ulan febriulan26@gmail.com
>> <mailto:febriulan26@gmail..com> [belajar-excel] wrote:
>>> selamat siang, saya febri.. baru bergabung di
>>> belajar-excel ini. mau bnyak nnya mengenai macro vba
>>> nya, karena baru menyentuh bahasa codingan VB ini.
>>>
>>> problem : mau input 1 kali namun masuk di beberapa sheet.
>>>
>>> bisa di bntu untuk solusi nya?
>>> terimakasih
>>
>>
>
>
Cekrip kemarin memerintahkan komputer untuk:
baris = Sheets("sheet1").Range("A1048576").End(xlUp).Row + 1 => carilah
nomor row terakhir yang kosong di sheet1 kolom A isikan dalam variabel baris
Sheets("sheet1").Cells(baris, 1) = Cells(baris - 1, 1) + 1 => isi cell
di row= baris dengan isi cell diatasnya ditambah 1
Sheets("sheet1").Cells(baris, 2) = TextBox1.Text => isi cell sheet1 di
row = baris kolom 2 dengan isi textbox1
Sheets("sheet1").Cells(baris, 3) = TextBox2.Text => isi cell sheet1 di
row = baris kolom 3 dengan isi textbox2
Sheets("sheet2").Cells(baris, 1) = Cells(baris - 1, 1) + 1 => isi cell
sheet2 di row= baris dengan isi cell sama dengan isi cell row = baris,
kolom 1 pada sheet1
Sheets("sheet2").Cells(baris, 2) = TextBox1.Text => isi cell sheet2 di
row= baris kolom 2 dengan isi textbox1
Sheets("sheet2").Cells(baris, 3) = TextBox2.Text => isi cell sheet1 di
row = baris kolom 3 dengan isi textbox2
Regard
NangAgus
On 10/15/2018 18:44, Febri Ulan febriulan26@gmail.com [belajar-excel] wrote:
> Malem master
>
> Mau tnya, fbri udh ikutin doc yg trlmpir. To konurutan nomor nya beda"
> ya distiap sheet nya.
> Boleh dibntu jelasin master
>
> Trimksih sblumny
>
> Kam, 4 Okt 2018 pukul 14..23 Febri Ulan febriulan26@gmail.com
> <mailto:febriulan26@gmail.com> [belajar-excel]
> <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups..com>>
> menulis:
>
> terima kasih banya bantuaan ka aguus,
>
> regards
> febri
>
>
> Pada tanggal Kam, 4 Okt 2018 pukul 13.43 Agus nangagus@gmail.com
> <mailto:nangagus@gmail.com> [belajar-excel]
> <belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>> menulis:
>
> Dear Febri,
> Mungkinkah seperti terlampir contoh dimaksud?
> Pada sheet1 KLik Input Data, akan muncul form sederhana untuk
> nama dan alamat.
> Jika di klik OK maka nama dan alamat akan disimpan pada
> sheet1, sheet2, sheet3 dan sheet4.
> Macro dibuat sangat sederhana agar mudah dipelajari. (karena
> macro tersebut dapat disingkat)
> lebih lengkapnya belajar mulai dari sini,
> <http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan..html>
> baca pelan-pelan resapi lalu praktikkan. jika ada kendala
> kirimkan ke milis
> Selamat belajar
> Regard
> Agus
> On 10/4/2018 08:36, Febri Ulan febriulan26@gmail.com
> <mailto:febriulan26@gmail.com> [belajar-excel] wrote:
>> terimakash atas responnya,
>> nah maksudnya itu,
>> code untuk otomisasi di VBA nya ka, heheeh
>>
>> karena setiap google atau nge youtube, itu ga ktemu" kak,
>> klo ada link mengenai tutorial dari pertnyaan (input data
>> lewat form dan masuk dalam setiap sheet), boleh sklian di
>> cantumin kak link nya,
>>
>> regards
>> febri😊
>>
>>
>> Pada tanggal Rab, 3 Okt 2018 pukul 21.17 Agus
>> nangagus@gmail..com <mailto:nangagus@gmail.com>
>> [belajar-excel] <belajar-excel@yahoogroups.com
>> <mailto:belajar-excel@yahoogroups.com>> menulis:
>>
>> Selamat Malam Febri,
>> Selamat bergabung dengan Milis.
>> saya juga orang yang baru belajar VBA ...
>> Sebaiknya kirimkan file excel dengan data dummi, maksimal
>> 250 KB dengan contoh hasil yang dimaksud.
>> Hal ini akan memudahkan para penanggap (menjawab
>> pertanyaan) memahami dan memberikan jawaban.
>>
>> problem : mau input 1 kali namun masuk di beberapa sheet.
>> bisa di bntu untuk solusi nya?
>> =>> dapat dilakukan dengan banyak cara misalnya:
>> 1. Gunakan otomatisasi dengan VBA.
>> 2. Gunakan formula.
>> 3. Gunakan pivot.
>> tentunya semua memiliki keterbatasan masing-masing..
>>
>> On 10/3/2018 12:00, Febri Ulan febriulan26@gmail.com
>> <mailto:febriulan26@gmail..com> [belajar-excel] wrote:
>>> selamat siang, saya febri.. baru bergabung di
>>> belajar-excel ini. mau bnyak nnya mengenai macro vba
>>> nya, karena baru menyentuh bahasa codingan VB ini.
>>>
>>> problem : mau input 1 kali namun masuk di beberapa sheet.
>>>
>>> bisa di bntu untuk solusi nya?
>>> terimakasih
>>
>>
>
>
Mon Oct 15, 2018 6:17 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
mas Zainul,
Mungkin nama properti (attribut) nya yang berbeda.
Contohnya, object Label memiliki properti Caption (bersifat read/write)
tapi tidak memiliki properti Text atau Value (keduanya juga bersifat
read/write)
Sedangkan object TextBox memiliki properti Text atau Value tapi tidak
memiliki properti Caption (ketiganya bersifat read/write).
Object Range juga tidak memiliki properti Caption, tapi memiliki properti
Value (bersifat read/write) dan Text (bersifat read only).
Sifat read/write -> programmer bisa melakukan get (ambil nilai alias read)
dan set (tulis nilai alias write).
Sifat read only -> programmer hanya bisa ambil nilai (alias read) saja.
Term read/write tersebut di atas adalah untuk design dasar si object
(bawaan dari sononya)
Jadi berbeda hal dengan konteks sebuah textbox yang bisa di-input oleh
user, tapi juga bisa di-lock agar user tidak bisa mengubah nilai.
Maksudnya, jangan sampai dikiranya bahwa properti Text milik textbox bisa
bersifat read/write maupun read only. Properti Text milik Textbox itu sifat
bawaannya hanyalah Read/Write, walau diset bagi user tidak bisa mengubah
isinya.
Regards,
Kid
On Mon, Oct 15, 2018 at 5:27 AM Zainul Ulum zainul_ulum@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> 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 object
> set 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
>
>
>
Mungkin nama properti (attribut) nya yang berbeda.
Contohnya, object Label memiliki properti Caption (bersifat read/write)
tapi tidak memiliki properti Text atau Value (keduanya juga bersifat
read/write)
Sedangkan object TextBox memiliki properti Text atau Value tapi tidak
memiliki properti Caption (ketiganya bersifat read/write).
Object Range juga tidak memiliki properti Caption, tapi memiliki properti
Value (bersifat read/write) dan Text (bersifat read only).
Sifat read/write -> programmer bisa melakukan get (ambil nilai alias read)
dan set (tulis nilai alias write).
Sifat read only -> programmer hanya bisa ambil nilai (alias read) saja.
Term read/write tersebut di atas adalah untuk design dasar si object
(bawaan dari sononya)
Jadi berbeda hal dengan konteks sebuah textbox yang bisa di-input oleh
user, tapi juga bisa di-lock agar user tidak bisa mengubah nilai.
Maksudnya, jangan sampai dikiranya bahwa properti Text milik textbox bisa
bersifat read/write maupun read only. Properti Text milik Textbox itu sifat
bawaannya hanyalah Read/Write, walau diset bagi user tidak bisa mengubah
isinya.
Regards,
Kid
On Mon, Oct 15, 2018 at 5:27 AM Zainul Ulum zainul_ulum@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> 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 object
> set 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.
> dengan tambahan nilai tunggu 1 detik ( sDelay = Format(TimeValue(
> + TimeValue("
> benar-benar siap.
>
> Kelemahan dari penambahan application.
> pengisian form akan lama karena tiap loop ditambahkan waktu. tunggu.
>
> di bawah, contoh code yang telah saya buat dengan tambahan proses delay
> (application.
> Mohon bantuan atau masukan dari teman-teman yang pengalaman di "web
> scrapping"
>
> Wassalam,
> -zainul
>
> '=======
> Private Function SetAttributeWithDel
> 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
> SetAttributeWithDel
> i = -1
> Do
> i = i + 1
> sDelay = Format(TimeValue(
> "00"
> Do ' Wait till the Browser is loaded
> Application.
> pakai ini berhasil tetapi proses lama
> Loop Until objBrowser.readySta
>
> 'While objBrowser.readySta
> Wend--->note: dicoba pakai ini tidak berhasil
> Set oHTMLDoc = objBrowser.document
> On Error Resume Next
> Set oHTML_Element = oHTMLDoc.getElement
> If Err.Number Then
> Err.Clear
> 'Application.
> note:dicoba pakai ini tidak berhasil
> 'oHTML_Element = oHTMLDoc.getElement
> End If
> If i = 10 Then
> SetAttributeWithDel
> Exit Function
> End If
> Loop Until Not oHTML_Element Is Nothing
> Call oHTML_Element.
> End Function
>
>
>
Mon Oct 15, 2018 7:36 pm (PDT) . Posted by:
"Pak Cik Lukman"
dear master excel,
mohon bantuannya, saya membuat penjumlahan dari beberapa formula2 sumifs,
dan ini terlihat sangat panjang.
adakah formula lain agar formula sumifs yg saya buat lebih simple dan
ringkas
berikut contoh formula yg saya buat
terima kasih atas bantuannya
salam,
pcl
mohon bantuannya, saya membuat penjumlahan dari beberapa formula2 sumifs,
dan ini terlihat sangat panjang.
adakah formula lain agar formula sumifs yg saya buat lebih simple dan
ringkas
berikut contoh formula yg saya buat
terima kasih atas bantuannya
salam,
pcl
Mon Oct 15, 2018 7:42 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Copy ke kanan dan ke bawah ya :
=SUMIFS($C4:$G4,$B$3:$F$3,"Tgl",$B4:$F4,">="&DATE(2018,COLUMN()-COLUMN($J$3),1),$B4:$F4,"<="&DATE(2018,COLUMN()-COLUMN($J$3)+1,0))
Regards,
Kid
On Tue, Oct 16, 2018 at 9:36 AM Pak Cik Lukman pakciklukman@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> dear master excel,
> mohon bantuannya, saya membuat penjumlahan dari beberapa formula2 sumifs,
> dan ini terlihat sangat panjang.
> adakah formula lain agar formula sumifs yg saya buat lebih simple dan
> ringkas
>
> berikut contoh formula yg saya buat
> terima kasih atas bantuannya
>
> salam,
> pcl
>
>
>
>
=SUMIFS($C4:$G4,$B$3:$F$3,"Tgl",$B4:$F4,">="&DATE(2018,COLUMN()-COLUMN($J$3),1),$B4:$F4,"<="&DATE(2018,COLUMN()-COLUMN($J$3)+1,0))
Regards,
Kid
On Tue, Oct 16, 2018 at 9:36 AM Pak Cik Lukman pakciklukman@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> dear master excel,
> mohon bantuannya, saya membuat penjumlahan dari beberapa formula2 sumifs,
> dan ini terlihat sangat panjang.
> adakah formula lain agar formula sumifs yg saya buat lebih simple dan
> ringkas
>
> berikut contoh formula yg saya buat
> terima kasih atas bantuannya
>
> salam,
> pcl
>
>
>
>
Mon Oct 15, 2018 8:20 pm (PDT) . Posted by:
"Pak Cik Lukman"
terima kasih Mr Kid
jadi lebih simple formulanya, saya coba belajari dari formula tsb
sekali lagi terima kasih atas bantuanya Mr & Jazakallah khoiron
wasalam
pcl
Pada tanggal Sel, 16 Okt 2018 pukul 09.43 'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
> Copy ke kanan dan ke bawah ya :
>
> =SUMIFS($C4:$G4,$B$3:$F$3,"Tgl",$B4:$F4,">="&DATE(2018,COLUMN()-COLUMN($J$3),1),$B4:$F4,"<="&DATE(2018,COLUMN()-COLUMN($J$3)+1,0))
>
> Regards,
> Kid
>
>
>
> On Tue, Oct 16, 2018 at 9:36 AM Pak Cik Lukman pakciklukman@gmail..com
> <pakciklukman@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>>
>>
>> dear master excel,
>> mohon bantuannya, saya membuat penjumlahan dari beberapa formula2 sumifs,
>> dan ini terlihat sangat panjang.
>> adakah formula lain agar formula sumifs yg saya buat lebih simple dan
>> ringkas
>>
>> berikut contoh formula yg saya buat
>> terima kasih atas bantuannya
>>
>> salam,
>> pcl
>>
>>
>>
>
jadi lebih simple formulanya, saya coba belajari dari formula tsb
sekali lagi terima kasih atas bantuanya Mr & Jazakallah khoiron
wasalam
pcl
Pada tanggal Sel, 16 Okt 2018 pukul 09.43 'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
> Copy ke kanan dan ke bawah ya :
>
> =SUMIFS($C4:$G4,$B$3:$F$3,"Tgl",$B4:$F4,">="&DATE(2018,COLUMN()-COLUMN($J$3),1),$B4:$F4,"<="&DATE(2018,COLUMN()-COLUMN($J$3)+1,0))
>
> Regards,
> Kid
>
>
>
> On Tue, Oct 16, 2018 at 9:36 AM Pak Cik Lukman pakciklukman@gmail..com
> <pakciklukman@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>>
>>
>> dear master excel,
>> mohon bantuannya, saya membuat penjumlahan dari beberapa formula2 sumifs,
>> dan ini terlihat sangat panjang.
>> adakah formula lain agar formula sumifs yg saya buat lebih simple dan
>> ringkas
>>
>> berikut contoh formula yg saya buat
>> terima kasih atas bantuannya
>>
>> salam,
>> pcl
>>
>>
>>
>
============================================================
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