6 Messages
Digest #4625
Messages
Fri Oct 12, 2018 10:43 pm (PDT) . Posted by:
"Agus"
Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub
regard
Agus
On 10/13/2018 06:58, Hendry Mahmud hendrymahmud@yahoo.com
[belajar-excel] wrote:
>
> Dear Temen-Temen,
>
> Mohon Bantuannya Untuk Membuat VBA / Macro "JAM BERDETAK DENGAN
> HITUNGAN JARAK" , Berikut Saya Lampirkan Filenya.
>
> Terima Kasih Atas Supportnya.
>
> Regards,
>
>
> HENDRY MAHMUD
> Mobile : +62 813 4373 8898
>
> Sent from Mail for Windows 10
>
>
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub
regard
Agus
On 10/13/2018 06:58, Hendry Mahmud hendrymahmud@yahoo.com
[belajar-excel] wrote:
>
> Dear Temen-Temen,
>
> Mohon Bantuannya Untuk Membuat VBA / Macro "JAM BERDETAK DENGAN
> HITUNGAN JARAK" , Berikut Saya Lampirkan Filenya.
>
> Terima Kasih Atas Supportnya.
>
> Regards,
>
>
> HENDRY MAHMUD
> Mobile : +62 813 4373 8898
>
> Sent from Mail for Windows 10
>
>
Sat Oct 13, 2018 9:17 pm (PDT) . Posted by:
"Hendry Mahmud" hendrymahmud
Terima Kasih mas Agus,
Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol "MULAI" , Tombol "BERHENTI" dan Tombol "RESET".
Terima Kasih atas supportnya.
Regards,
HENDRY MAHMUD
Mobile : +62 813 4373 8898
Website : www.ikramgroup.id
e-mail :
hendrymahmud@ikramgroup.id
hendrymahmud@yahoo.com
Sent from Mail for Windows 10
Dari: Agus nangagus@gmail.com [belajar-excel]
Dikirim: Sabtu, 13 Oktober 2018 13.48
Kepada: belajar-excel@yahoogroups.com
Subjek: Re: [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK
Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub
regard
Agus
On 10/13/2018 06:58, Hendry Mahmud hendrymahmud@yahoo.com [belajar-excel] wrote:
Dear Temen-Temen,
Mohon Bantuannya Untuk Membuat VBA / Macro "JAM BERDETAK DENGAN HITUNGAN JARAK" , Berikut Saya Lampirkan Filenya.
Terima Kasih Atas Supportnya.
Regards,
HENDRY MAHMUD
Mobile : +62 813 4373 8898
Sent from Mail for Windows 10
Lalu Bagaimana Kalau Mau Ditambahkan Untuk Tombol "MULAI" , Tombol "BERHENTI" dan Tombol "RESET".
Terima Kasih atas supportnya.
Regards,
HENDRY MAHMUD
Mobile : +62 813 4373 8898
Website : www.ikramgroup.id
e-mail :
hendrymahmud@ikramgroup.id
hendrymahmud@yahoo.com
Sent from Mail for Windows 10
Dari: Agus nangagus@gmail.com [belajar-excel]
Dikirim: Sabtu, 13 Oktober 2018 13.48
Kepada: belajar-excel@yahoogroups.com
Subjek: Re: [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK
Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub
regard
Agus
On 10/13/2018 06:58, Hendry Mahmud hendrymahmud@yahoo.com [belajar-excel] wrote:
Dear Temen-Temen,
Mohon Bantuannya Untuk Membuat VBA / Macro "JAM BERDETAK DENGAN HITUNGAN JARAK" , Berikut Saya Lampirkan Filenya.
Terima Kasih Atas Supportnya.
Regards,
HENDRY MAHMUD
Mobile : +62 813 4373 8898
Sent from Mail for Windows 10
Sat Oct 13, 2018 9:18 pm (PDT) . Posted by:
"Hendry Mahmud" hendrymahmud
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
Sent from Mail for Windows 10
Dari: Agus nangagus@gmail.com [belajar-excel]
Dikirim: Sabtu, 13 Oktober 2018 13.48
Kepada: belajar-excel@yahoogroups.com
Subjek: Re: [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK
Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub
regard
Agus
On 10/13/2018 06:58, Hendry Mahmud hendrymahmud@yahoo.com [belajar-excel] wrote:
Dear Temen-Temen,
Mohon Bantuannya Untuk Membuat VBA / Macro "JAM BERDETAK DENGAN HITUNGAN JARAK" , Berikut Saya Lampirkan Filenya.
Terima Kasih Atas Supportnya.
Regards,
HENDRY MAHMUD
Mobile : +62 813 4373 8898
Sent from Mail for Windows 10
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
Sent from Mail for Windows 10
Dari: Agus nangagus@gmail.com [belajar-excel]
Dikirim: Sabtu, 13 Oktober 2018 13.48
Kepada: belajar-excel@yahoogroups.com
Subjek: Re: [belajar-excel] JAM BERDETAK DENGAN HITUNGAN JARAK
Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub
regard
Agus
On 10/13/2018 06:58, Hendry Mahmud hendrymahmud@yahoo.com [belajar-excel] wrote:
Dear Temen-Temen,
Mohon Bantuannya Untuk Membuat VBA / Macro "JAM BERDETAK DENGAN HITUNGAN JARAK" , Berikut Saya Lampirkan Filenya.
Terima Kasih Atas Supportnya.
Regards,
HENDRY MAHMUD
Mobile : +62 813 4373 8898
Sent from Mail for Windows 10
Sat Oct 13, 2018 8:31 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir dengan tabel referensi dan kolom bantu.
Sila digabung-gabung sendiri formulanya, kalau ingin tanpa atau mengurangi
kolom bantu dan tabel referensi.
Regards,
Kid
On Sat, Oct 13, 2018 at 11:35 AM odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Hai rekan sekalian,
>
>
> Mau tanya nih, biasanya saya d suruh itung lembur hanya brp jam saja, itu
> bisa sekejap saya lakukan, tp sekarang saya d minta menghitung lembur
> dengan kriteria
>
>
> 1. Lembur d hitung per jam, kurang sedetik blm termasuk 1jm.
>
> 2. Jm kerja :
>
> *senin -jumat 08.00-17.00 d luar itu itung lembur
>
> *Sabtu 08.00-13.00 d luar itu hitung lembur
>
> *Minggu dan tgl merah hitung 10k/jam
>
> 3. Jam lembur senin-jumat
>
> 17.00-24.00 = 7.000/jam
>
> 00.00-05.00 = 8.000/jam
>
> 05.00-08.00 = 5.000/jam
>
> Jam lembur hri sabtu,
>
> 13.00-24.00 = 7.000/jam, selebihnya sama.
>
>
> Contoh :
>
> 1. hri senin, Damai masuk kerja 06.59, pulang jm18.01, berarti damai
> mendapat uang lembur 5.000+7.000=12.000
>
> 2. Hari senin, Panjul masuk kerja jm08.00 pulang jm01.01 dinihari, berarti
> panjul mendapat uang lembur
>
> (7x7.000)+(1x8.000)=56.000
>
> 3.hari sabtu, Dalan masuk jm06.30 pulang jm06.15 hri minggu. Berarti dalan
> mendapat uang lembur
>
> (1x5.000)+(10x7.000)+(6x10.000)=135.000
>
>
> Mohon bantuan rekan2 sekalian, trimakasih....
>
>
>
> br,
>
> odong nando
>
>
Sila digabung-gabung sendiri formulanya, kalau ingin tanpa atau mengurangi
kolom bantu dan tabel referensi.
Regards,
Kid
On Sat, Oct 13, 2018 at 11:35 AM odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Hai rekan sekalian,
>
>
> Mau tanya nih, biasanya saya d suruh itung lembur hanya brp jam saja, itu
> bisa sekejap saya lakukan, tp sekarang saya d minta menghitung lembur
> dengan kriteria
>
>
> 1. Lembur d hitung per jam, kurang sedetik blm termasuk 1jm.
>
> 2. Jm kerja :
>
> *senin -jumat 08.00-17.00 d luar itu itung lembur
>
> *Sabtu 08.00-13.00 d luar itu hitung lembur
>
> *Minggu dan tgl merah hitung 10k/jam
>
> 3. Jam lembur senin-jumat
>
> 17.00-24.00 = 7.000/jam
>
> 00.00-05.00 = 8.000/jam
>
> 05.00-08.00 = 5.000/jam
>
> Jam lembur hri sabtu,
>
> 13.00-24.00 = 7.000/jam, selebihnya sama.
>
>
> Contoh :
>
> 1. hri senin, Damai masuk kerja 06.59, pulang jm18.01, berarti damai
> mendapat uang lembur 5.000+7.000=
>
> 2. Hari senin, Panjul masuk kerja jm08.00 pulang jm01.01 dinihari, berarti
> panjul mendapat uang lembur
>
> (7x7.000)+(1x8.
>
> 3.hari sabtu, Dalan masuk jm06.30 pulang jm06.15 hri minggu. Berarti dalan
> mendapat uang lembur
>
> (1x5.000)+(10x7.
>
>
> Mohon bantuan rekan2 sekalian, trimakasih..
>
>
>
> br,
>
> odong nando
>
>
Sat Oct 13, 2018 10:14 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sama,
saya juga...
Begini,
Biasanya setiap transaksi sudah jelas GL mana yang dituju.
> Andai datanya sudah jelas seperti ini, pasti gak jadi pertanyaan di milis
kan ?
Ada juga beberapa jenis transaksi sudah ditetapkan GL mana saja yang akan
dikenai transaksi tersebut. Rekan yang paham akuntansi bisa lebih
menjelaskan tentang hal ini.
Artinya, bisa diketahui peta data setiap jenis transaksi yang terjadi akan
menuju GL mana. Jadi tidak berdasar NoDoc saja, tapi berdasar NoDoc dan
daftar jenis transaksi apa saja, supaya bisa me-lookup GL yang sesuai dari
setiap jenis transaksi.
> Biasanya, yang begini ini, selalu ditolak dengan alasan 'datanya buanyak
sekali kalau dibuka sampai jenis transaksinya'
> padahal, jaman now, data 10juta record itu dikit buat Excel, apalagi buat
database engine (umumnya data transaksi disimpan dalam database engine kan)..
Kalau datanya hanya berdasasr NoDoc saja, maka untuk mencari nilai yang
cocok dari tabel NoDoc, dengan data detil GL, tidak akan bisa dipastikan
Match.
Beberapa records mungkin bisa match, karena 1 lawan 1 (1 NoDoc hanya
tercatat menuju 1 GL saja)
Beberapa records bisa diusahakan match jika benar-benar balance antara data
Doc dan GL, tapi prosesnya bisa panjang dan butuh alat bantu. Seperti
solver atau malah udf tertentu.
Beberapa records mungkin ada yang tidak bisa match, entah kenapa...
Pada kasus ini, ada contoh seperti ini :
No doc Nominal
No doc Nominal GL
1900000723 19,492,785
1900000723 8,240,000 4112151110
1900000723 4,120,000 4231152610
1900000723 15,372,785 4112151113
> Kalau inginnya begini, berarti sudah diketahui (entah dari tabel apa
diluar sana)
bahwa isi [No Doc] sudah pasti memiliki daftar [GL] tertentu
No doc Nominal GL Nominal
1900000723 19,492,785 4112151110 8,240,000
4231152610 4,120,000
> Kalau inginnya begini, maka cerita bagian terakhir di atas tadi yang
terjadi
yaitu mencari kombinasi bilangan yang sesuai. Ini mode pahit ON :(
urusannya juga tidak kalah saing ruwetnya dengan cara manual
No doc Nominal GL Nominal
1900000723 19,492,785 4231152610 4,120,000
4112151113 15,372,785
File terlampir contoh template kerja untuk mencari kombinasi...
Desainnya masih untuk cara manual.
Kalau punya cara atau alat atau apa saja yang bisa dimanfaatkan,
manfaatkanlah untuk mengisi kolom [1toMany] yang ada dalam template.
File terlampir juga menjelaskan maksud dari :
> Data tabelnya di pivot table kan saja.
>
> Data Doc yang dibutuhkan hanya 1 kolom (Nominal)
> Pekerjaan berat sepenuhnya ada di data GL
> Mengeluarkan hasil akhir [disebut di topik sebagai : insert line] itu
barang paling sepele (*no offense, tapi memang kenyataannya demikian*).
> Kalau pekerjaan berat di GL untuk menentukan baris mana saja yang akan
dibawa ke hasil akhir itu sudah bisa selesai, hasil akhir hanya filter saja
dan PivotTable jagoan neon untuk hal ini...
*** So, untuk sampai pada 'data tabelnya di pivot table kan saja', maka
nilai dari data Doc harus masuk ke data GL
Lalu ada kalimat ini kan :
> Bila perlu, di data tabel ditambahkan 1 kolom berisi grup account nya.
> Jadi account 1 dan 2 masuk grup X, account 3 masuk grup y, dst. Supaya di
> pivot bisa difilter.
>
> Ini adalah kolom tambahan di data GL yang sudah dimasuki oleh nilai dari
Doc tadi.
> Kolom ini yang jadi penentu, record GL yang mana yang akan dipakai.
> Pada file terlampir, kolom ini bernama [status] yang merupakan kesimpulan
akhir dari berbagai proses penentuan record yang akan dipakai.
> Pada file terlampir, ada 2 cara penentuan record yang akan dipakai, yaitu
cara [1to1] pakai formula, dan [1toMany] secara manual.
> Ingat, ini cuma contoh dan sudah dipesan di atas sana, bahwa :
* Kalau punya cara atau alat atau apa saja yang bisa dimanfaatkan,
manfaatkanlah untuk mengisi kolom [1toMany] yang ada dalam template.*
> Bila perlu, buat beberapa kolom proses penentuan record dengan berbagai
cara yang bisa Anda bayangkan, dan kolom [1toMany] ada di proses paling
akhir.
> Proses sebelum [1toMany] adalah untuk mengurangi kerja manual atau kerja
yang paling bikin ribet.
> dan akhirnya, Anda tidak perlu berulang kali memfilter pivot table.
Karena filter pivot table bisa disusun berdasar kolom [status] yang tetap
anggota item-itemnya,
seperti 1 artinya dipakai untuk hasil akhir [insert line nyebutnya kan],
dan yang 0 dibuang kelaut
naah...
sampai disini...
tetap saja gak paham, ya kan...
dan masih sama saja, saya juga gak paham...
Anda gak paham tentang saya ngomongin apa,
Saya gak paham, kok ya ada data yang kaya begitu...
hehehe...
Turut berduka jika memang kasus utamanya adalah mencari kombinasi record
yang sesuai...
wkwkwkwk...
piiiss...
Regards,
Kid
On Fri, Oct 12, 2018 at 4:53 PM Fatania Latifa fatania.latifa@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Mr Kid,
>
> Ga paham, hehehe
>
> On Fri, Oct 12, 2018 at 4:10 PM 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Data tabelnya di pivot table kan saja.
>> Bila perlu, di data tabel ditambahkan 1 kolom berisi grup account nya.
>> Jadi account 1 dan 2 masuk grup X, account 3 masuk grup y, dst. Supaya di
>> pivot bisa difilter.
>>
>> Regards,
>> Kid
>>
>>
>> On Fri, Oct 12, 2018 at 4:06 PM Fatania Latifa fatania.latifa@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Dear para master excel,
>>>
>>> Mau tanya file berikut, bagaimana caranya mencari data tertentu, apabila
>>> salah satu kriterianya merupakan penjulahan nominal dari data tabel yang
>>> dituju?
>>> Kemudian bagaimana cara otomatisnya agar data tujuannya dicopas
>>> dua-duanya, tanpa perlu manual insert row?
>>> Terima kasih.
>>>
>>>
>
saya juga...
Begini,
Biasanya setiap transaksi sudah jelas GL mana yang dituju.
> Andai datanya sudah jelas seperti ini, pasti gak jadi pertanyaan di milis
kan ?
Ada juga beberapa jenis transaksi sudah ditetapkan GL mana saja yang akan
dikenai transaksi tersebut. Rekan yang paham akuntansi bisa lebih
menjelaskan tentang hal ini.
Artinya, bisa diketahui peta data setiap jenis transaksi yang terjadi akan
menuju GL mana. Jadi tidak berdasar NoDoc saja, tapi berdasar NoDoc dan
daftar jenis transaksi apa saja, supaya bisa me-lookup GL yang sesuai dari
setiap jenis transaksi.
> Biasanya, yang begini ini, selalu ditolak dengan alasan 'datanya buanyak
sekali kalau dibuka sampai jenis transaksinya'
> padahal, jaman now, data 10juta record itu dikit buat Excel, apalagi buat
database engine (umumnya data transaksi disimpan dalam database engine kan)..
Kalau datanya hanya berdasasr NoDoc saja, maka untuk mencari nilai yang
cocok dari tabel NoDoc, dengan data detil GL, tidak akan bisa dipastikan
Match.
Beberapa records mungkin bisa match, karena 1 lawan 1 (1 NoDoc hanya
tercatat menuju 1 GL saja)
Beberapa records bisa diusahakan match jika benar-benar balance antara data
Doc dan GL, tapi prosesnya bisa panjang dan butuh alat bantu. Seperti
solver atau malah udf tertentu.
Beberapa records mungkin ada yang tidak bisa match, entah kenapa...
Pada kasus ini, ada contoh seperti ini :
No doc Nominal
No doc Nominal GL
1900000723 19,492,785
1900000723 8,240,000 4112151110
1900000723 4,120,000 4231152610
1900000723 15,372,785 4112151113
> Kalau inginnya begini, berarti sudah diketahui (entah dari tabel apa
diluar sana)
bahwa isi [No Doc] sudah pasti memiliki daftar [GL] tertentu
No doc Nominal GL Nominal
1900000723 19,492,785 4112151110 8,240,000
4231152610 4,120,000
> Kalau inginnya begini, maka cerita bagian terakhir di atas tadi yang
terjadi
yaitu mencari kombinasi bilangan yang sesuai. Ini mode pahit ON :(
urusannya juga tidak kalah saing ruwetnya dengan cara manual
No doc Nominal GL Nominal
1900000723 19,492,785 4231152610 4,120,000
4112151113 15,372,785
File terlampir contoh template kerja untuk mencari kombinasi...
Desainnya masih untuk cara manual.
Kalau punya cara atau alat atau apa saja yang bisa dimanfaatkan,
manfaatkanlah untuk mengisi kolom [1toMany] yang ada dalam template.
File terlampir juga menjelaskan maksud dari :
> Data tabelnya di pivot table kan saja.
>
> Data Doc yang dibutuhkan hanya 1 kolom (Nominal)
> Pekerjaan berat sepenuhnya ada di data GL
> Mengeluarkan hasil akhir [disebut di topik sebagai : insert line] itu
barang paling sepele (*no offense, tapi memang kenyataannya demikian*).
> Kalau pekerjaan berat di GL untuk menentukan baris mana saja yang akan
dibawa ke hasil akhir itu sudah bisa selesai, hasil akhir hanya filter saja
dan PivotTable jagoan neon untuk hal ini...
*** So, untuk sampai pada 'data tabelnya di pivot table kan saja', maka
nilai dari data Doc harus masuk ke data GL
Lalu ada kalimat ini kan :
> Bila perlu, di data tabel ditambahkan 1 kolom berisi grup account nya.
> Jadi account 1 dan 2 masuk grup X, account 3 masuk grup y, dst. Supaya di
> pivot bisa difilter.
>
> Ini adalah kolom tambahan di data GL yang sudah dimasuki oleh nilai dari
Doc tadi.
> Kolom ini yang jadi penentu, record GL yang mana yang akan dipakai.
> Pada file terlampir, kolom ini bernama [status] yang merupakan kesimpulan
akhir dari berbagai proses penentuan record yang akan dipakai.
> Pada file terlampir, ada 2 cara penentuan record yang akan dipakai, yaitu
cara [1to1] pakai formula, dan [1toMany] secara manual.
> Ingat, ini cuma contoh dan sudah dipesan di atas sana, bahwa :
* Kalau punya cara atau alat atau apa saja yang bisa dimanfaatkan,
manfaatkanlah untuk mengisi kolom [1toMany] yang ada dalam template.*
> Bila perlu, buat beberapa kolom proses penentuan record dengan berbagai
cara yang bisa Anda bayangkan, dan kolom [1toMany] ada di proses paling
akhir.
> Proses sebelum [1toMany] adalah untuk mengurangi kerja manual atau kerja
yang paling bikin ribet.
> dan akhirnya, Anda tidak perlu berulang kali memfilter pivot table.
Karena filter pivot table bisa disusun berdasar kolom [status] yang tetap
anggota item-itemnya,
seperti 1 artinya dipakai untuk hasil akhir [insert line nyebutnya kan],
dan yang 0 dibuang kelaut
naah...
sampai disini...
tetap saja gak paham, ya kan...
dan masih sama saja, saya juga gak paham...
Anda gak paham tentang saya ngomongin apa,
Saya gak paham, kok ya ada data yang kaya begitu...
hehehe...
Turut berduka jika memang kasus utamanya adalah mencari kombinasi record
yang sesuai...
wkwkwkwk...
piiiss...
Regards,
Kid
On Fri, Oct 12, 2018 at 4:53 PM Fatania Latifa fatania.latifa@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Mr Kid,
>
> Ga paham, hehehe
>
> On Fri, Oct 12, 2018 at 4:10 PM 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Data tabelnya di pivot table kan saja.
>> Bila perlu, di data tabel ditambahkan 1 kolom berisi grup account nya.
>> Jadi account 1 dan 2 masuk grup X, account 3 masuk grup y, dst. Supaya di
>> pivot bisa difilter.
>>
>> Regards,
>> Kid
>>
>>
>> On Fri, Oct 12, 2018 at 4:06 PM Fatania Latifa fatania.latifa@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Dear para master excel,
>>>
>>> Mau tanya file berikut, bagaimana caranya mencari data tertentu, apabila
>>> salah satu kriterianya merupakan penjulahan nominal dari data tabel yang
>>> dituju?
>>> Kemudian bagaimana cara otomatisnya agar data tujuannya dicopas
>>> dua-duanya, tanpa perlu manual insert row?
>>> Terima kasih.
>>>
>>>
>
Sat Oct 13, 2018 10:52 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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
>
>
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
>
>
============================================================
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