[belajar-excel] Digest Number 4251

Milis Belajar Microsoft Excel Group

15 Messages

Digest #4251

1a

Re: Manfaat Table untuk Function (mis. Sumproduct) [1 Attachment] by "hendrik karnadi" hendrikkarnadi

2a

Re: Manfaat Table untuk Function (mis. Sumproduct) by "M.Ade Alfarid" aderyo

2b

Re: Manfaat Table untuk Function (mis. Sumproduct) by "Mr. Kid" nmkid.family@ymail.com

2c

Re: Manfaat Table untuk Function (mis. Sumproduct) by "Mr. Kid" nmkid.family@ymail.com

3a

Bls: RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis. by "odong nando"

4

belajar looping ... by "Lan M" lanm31@ymail.com

5a

Re: Merubah nilai checkbox dengan nilai cell by "Mr. Kid" nmkid.family@ymail.com

5b

Bls: Re: [belajar-excel] Merubah nilai checkbox dengan nilai cell by "Danny Prasetyo"

5c

Re: Merubah nilai checkbox dengan nilai cell by "Mr. Kid" nmkid.family@ymail.com

5d

Bls: Re: Re: [belajar-excel] Merubah nilai checkbox dengan nilai cel by "Danny Prasetyo"

6a

Re: GROUP BY WITH ROLLUP by "Mr. Kid" nmkid.family@ymail.com

7a

Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaa by "Odhy" odhyz83_assasaky

7b

Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaa by "hendrik karnadi" hendrikkarnadi

7c

Re: Mengcopy data dari banyak files dalam keadaan tertutup (seluruh by "rodhy hakim" odhyz83_assasaky

8

Cara Sortir Berjenjang by "Zerlinda Seismica" seismica

Messages

1a

Re: Manfaat Table untuk Function (mis. Sumproduct) [1 Attachment]

Fri Jul 28, 2017 1:59 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai CW,
Boleh saja, yang penting ada penjelasannya di Worksheet.Saya yakin pasti ada teman2 yang bisa bantu atau kasi masukan.
Salam,HK

On Friday, July 28, 2017, 3:46:51 PM GMT+7, 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Pake contoh bang HK aja ya..

 

Regards

CW

 

 

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Jumat, 28 Juli 2017 15.01
To: 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
Subject: Re: RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)

 

 

Hai CW,

 

Maaf, saya ga mudeng.

Bisa diberikan contoh worksheetnya ?

 

Salam,

HK

 

On Friday, July 28, 2017, 2:34:45 PM GMT+7, 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

 

 

Nanya lagi nih bang…

Kalo saya drag ke bawah memang cellnya tidak berubah tapi kalo sy drag kesamping kenapa berubah cell-nya ya bang?

Sy baru ngeh setelah sy coba terapkan di data sy…kebetulan tidak hanya drag kebawah tapi drag kesamping juga.

 

Regards

CW

 

 

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Jumat, 28 Juli 2017 12.14
To: belajar-excel@yahoogroups.com
Subject: RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)

 

 

Sama2, sy juga baru kenal sumproduct dari grup ini....

 

Salam,

HK

 

Sent from Yahoo Mail on Android

 

On Fri, Jul 28, 2017 at 11:54, 'CepWahyu' cepwahyu@gmail.com [belajar-excel]

<belajar-excel@yahoogroups.com> wrote:

 

Wokeh bang…thanks elmunya.

 

Regards

CW

 

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Jumat, 28 Juli 2017 09.47
To: 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
Subject: Re: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)

 

 

Hai CW,

Blok datanya, lalu klik Insert Table (di Excel 2013 saya).

 

Salam,

HK

 

 

On Friday, July 28, 2017, 9:18:57 AM GMT+7, 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

 

 

Cakep bang…

Itu bikin table kaya gitu gmn caranya ya bang?....serius nanya nih bang…maklum ilmu excelnya masih standar.

 

 

Regrds

CW

 

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Kamis, 27 Juli 2017 14.21
To: 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
Subject: Re: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)

 

 

Betul.

Jika kita coba tambah data, akan terasa manfaatnya kan ?

Krn ga perlu update function Sumproductnya lagi.

 

Salam,

HK

 

On Thursday, July 27, 2017, 1:49:52 PM GMT+7, 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

 

 

Ini hasil sy otak atik bang…..apakah sudah benar?

 

Best Regards

CW

 

 

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Kamis, 27 Juli 2017 11.04
To: BeExcel <belajar-excel@yahoogroups.com>
Subject: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct) [1 Attachment]

 

 

Dear Be-Excel,

 

Coretan kecil ini saya tujukan untuk member Be-Excel yang jarang menggunakan function Sumproduct (termasuk saya).

Sumproduct adalah "array formula (function)" yang penulisannya tidak perlu Array (ada tanda "{}"), walaupun dalam penjelasan penulisannya "=Sumproduct(array1, [array2, [array3], .....)".

 

Satu hal yang "berbeda" dari Sumproduct adalah penggunaan tanda kali ("*") sebagai tanda pemisah bukan tanda koma (",") untuk Regional selain Indonesia atau tanda titik koma (";") untuk Regional Indonesia.

 

Penulisan array1, array2 dstnya selalu mengacu pada Range Acuan = Cell.

Agar formula Sumproduct dapat dicopy tentunya Range Acuan tersebut harus diberi tanda "$" dengan menekan tombol F4, sehingga setiap kali range yang menjadi acuan berubah maka penulisan Range Acuan pada Sumproduct harus diubah pula,

 

Solusi untuk mengatasi hal tersebut adalah menggunakan Table sebagai Range Acuan dengan cara memblok range yang menjadi acuan kemudian menggantinya menjadi Table (Insert Table).

Setelah function Sumproduct mengacu pada Table, jika ada tambahan data maka penulisan Range Acuan (Table) dalam Sumproduct tidak perlu diubah lagi.

 

Untuk lebih memahami/mendalami penggunaan Sumproduct, silakan gunakan function Sumproduct untuk menentukan harga satuan pada file terlampir, dimana Range Acuannya sdh berupa Table.

 

Selamat mencoba.

 

Salam,

HK

 

Reply to sender . Reply to group . Reply via Web Post . All Messages (21) . Top ^

2a

Re: Manfaat Table untuk Function (mis. Sumproduct)

Fri Jul 28, 2017 2:21 am (PDT) . Posted by:

"M.Ade Alfarid" aderyo

Copy kesamping itu mau diapakan?

Acuannya jadi berubah dong

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Friday, July 28, 2017 2:29 PM
*To:* belajar-excel@yahoogroups.com
*Subject:* RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis.
Sumproduct)

Nanya lagi nih bang…

Kalo saya drag ke bawah memang cellnya tidak berubah tapi kalo sy drag
kesamping kenapa berubah cell-nya ya bang?

Sy baru ngeh setelah sy coba terapkan di data sy…kebetulan tidak hanya drag
kebawah tapi drag kesamping juga.

Regards

CW

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Jumat, 28 Juli 2017 12.14
*To:* belajar-excel@yahoogroups.com
*Subject:* RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis.
Sumproduct)

Sama2, sy juga baru kenal sumproduct dari grup ini....

Salam,

HK

Sent from Yahoo Mail on Android
<https://overview.mail.yahoo.com/mobile/?.src=Android>

On Fri, Jul 28, 2017 at 11:54, 'CepWahyu' cepwahyu@gmail.com [belajar-excel]

<belajar-excel@yahoogroups.com> wrote:

Wokeh bang…thanks elmunya.

Regards

CW

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com
<belajar-excel@yahoogroups.com>]
*Sent:* Jumat, 28 Juli 2017 09.47
*To:* 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>
*Subject:* Re: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis.
Sumproduct)

Hai CW,

Blok datanya, lalu klik Insert Table (di Excel 2013 saya).

Salam,

HK

------------------------------

On Friday, July 28, 2017, 9:18:57 AM GMT+7, 'CepWahyu' cepwahyu@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Cakep bang…

Itu bikin table kaya gitu gmn caranya ya bang?....serius nanya nih
bang…maklum ilmu excelnya masih standar.

Regrds

CW

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com
<belajar-excel@yahoogroups.com>]
*Sent:* Kamis, 27 Juli 2017 14.21
*To:* 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>
*Subject:* Re: RE: [belajar-excel] Manfaat Table untuk Function (mis.
Sumproduct)

Betul.

Jika kita coba tambah data, akan terasa manfaatnya kan ?

Krn ga perlu update function Sumproductnya lagi.

Salam,

HK

------------------------------

On Thursday, July 27, 2017, 1:49:52 PM GMT+7, 'CepWahyu' cepwahyu@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Ini hasil sy otak atik bang…..apakah sudah benar?

Best Regards

CW

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com
<belajar-excel@yahoogroups.com>]
*Sent:* Kamis, 27 Juli 2017 11.04
*To:* BeExcel <belajar-excel@yahoogroups.com>
*Subject:* [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)
[1 Attachment]

Dear Be-Excel,

Coretan kecil ini saya tujukan untuk member Be-Excel yang jarang
menggunakan function Sumproduct (termasuk saya).

Sumproduct adalah "array formula (function)" yang penulisannya tidak perlu
Array (ada tanda "{}"), walaupun dalam penjelasan penulisannya
"=Sumproduct(array1, [array2, [array3], .....)".

Satu hal yang "berbeda" dari Sumproduct adalah penggunaan tanda kali ("***")
sebagai tanda pemisah bukan tanda koma ("*,*") untuk Regional selain
Indonesia atau tanda titik koma ("*;*") untuk Regional Indonesia.

Penulisan array1, array2 dstnya selalu mengacu pada *Range Acuan = Cell*.

Agar formula Sumproduct dapat dicopy tentunya *Range* *Acuan* tersebut
harus diberi tanda "*$*" dengan menekan tombol *F4*, sehingga setiap kali
range yang menjadi acuan berubah maka penulisan *Range Acuan* pada
Sumproduct harus diubah pula,

Solusi untuk mengatasi hal tersebut adalah menggunakan Table sebagai Range
Acuan dengan cara memblok range yang menjadi acuan kemudian menggantinya
menjadi Table (Insert Table).

Setelah function Sumproduct mengacu pada Table, jika ada tambahan data maka
penulisan *Range Acuan (Table)* dalam Sumproduct tidak perlu diubah lagi.

Untuk lebih memahami/mendalami penggunaan Sumproduct, silakan gunakan
function Sumproduct untuk menentukan harga satuan pada file terlampir,
dimana *Range Acuan*nya sdh berupa *Table*.

Selamat mencoba.

Salam,

HK

Reply to sender . Reply to group . Reply via Web Post . All Messages (21) . Top ^

2b

Re: Manfaat Table untuk Function (mis. Sumproduct)

Fri Jul 28, 2017 3:56 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Kalo gitu di-copy lalu paste di kolo lain. Paste special formulas atau
formulas and number format juga bisa digunakan sesuai kebutuhan.

Regards,
Kid

2017-07-28 14:28 GMT+07:00 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Nanya lagi nih bang…
>
> Kalo saya drag ke bawah memang cellnya tidak berubah tapi kalo sy drag
> kesamping kenapa berubah cell-nya ya bang?
>
> Sy baru ngeh setelah sy coba terapkan di data sy…kebetulan tidak hanya
> drag kebawah tapi drag kesamping juga.
>
>
>
> Regards
>
> CW
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* Jumat, 28 Juli 2017 12.14
> *To:* belajar-excel@yahoogroups.com
> *Subject:* RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis.
> Sumproduct)
>
>
>
>
>
> Sama2, sy juga baru kenal sumproduct dari grup ini....
>
>
>
> Salam,
>
> HK
>
>
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
> On Fri, Jul 28, 2017 at 11:54, 'CepWahyu' cepwahyu@gmail.com
> [belajar-excel]
>
> <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wokeh bang…thanks elmunya.
>
>
>
> Regards
>
> CW
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* Jumat, 28 Juli 2017 09.47
> *To:* 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>
> *Subject:* Re: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis.
> Sumproduct)
>
>
>
>
>
> Hai CW,
>
> Blok datanya, lalu klik Insert Table (di Excel 2013 saya).
>
>
>
> Salam,
>
> HK
>
>
>
>
> ------------------------------
>
> On Friday, July 28, 2017, 9:18:57 AM GMT+7, 'CepWahyu' cepwahyu@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
>
>
>
> Cakep bang…
>
> Itu bikin table kaya gitu gmn caranya ya bang?....serius nanya nih
> bang…maklum ilmu excelnya masih standar.
>
>
>
>
>
> Regrds
>
> CW
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* Kamis, 27 Juli 2017 14.21
> *To:* 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>
> *Subject:* Re: RE: [belajar-excel] Manfaat Table untuk Function (mis.
> Sumproduct)
>
>
>
>
>
> Betul.
>
> Jika kita coba tambah data, akan terasa manfaatnya kan ?
>
> Krn ga perlu update function Sumproductnya lagi.
>
>
>
> Salam,
>
> HK
>
>
> ------------------------------
>
> On Thursday, July 27, 2017, 1:49:52 PM GMT+7, 'CepWahyu'
> cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
>
>
>
> Ini hasil sy otak atik bang…..apakah sudah benar?
>
>
>
> Best Regards
>
> CW
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* Kamis, 27 Juli 2017 11.04
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Subject:* [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)
> [1 Attachment]
>
>
>
>
>
> Dear Be-Excel,
>
>
>
> Coretan kecil ini saya tujukan untuk member Be-Excel yang jarang
> menggunakan function Sumproduct (termasuk saya).
>
> Sumproduct adalah "array formula (function)" yang penulisannya tidak perlu
> Array (ada tanda "{}"), walaupun dalam penjelasan penulisannya
> "=Sumproduct(array1, [array2, [array3], .....)".
>
>
>
> Satu hal yang "berbeda" dari Sumproduct adalah penggunaan tanda kali ("***")
> sebagai tanda pemisah bukan tanda koma ("*,*") untuk Regional selain
> Indonesia atau tanda titik koma ("*;*") untuk Regional Indonesia.
>
>
>
> Penulisan array1, array2 dstnya selalu mengacu pada *Range Acuan = Cell*.
>
> Agar formula Sumproduct dapat dicopy tentunya *Range* *Acuan* tersebut
> harus diberi tanda "*$*" dengan menekan tombol *F4*, sehingga setiap kali
> range yang menjadi acuan berubah maka penulisan *Range Acuan* pada
> Sumproduct harus diubah pula,
>
>
>
> Solusi untuk mengatasi hal tersebut adalah menggunakan Table sebagai Range
> Acuan dengan cara memblok range yang menjadi acuan kemudian menggantinya
> menjadi Table (Insert Table).
>
> Setelah function Sumproduct mengacu pada Table, jika ada tambahan data
> maka penulisan *Range Acuan (Table)* dalam Sumproduct tidak perlu diubah
> lagi.
>
>
>
> Untuk lebih memahami/mendalami penggunaan Sumproduct, silakan gunakan
> function Sumproduct untuk menentukan harga satuan pada file terlampir,
> dimana *Range Acuan*nya sdh berupa *Table*.
>
>
>
> Selamat mencoba.
>
>
>
> Salam,
>
> HK
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (21) . Top ^

2c

Re: Manfaat Table untuk Function (mis. Sumproduct)

Fri Jul 28, 2017 5:18 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Jadi,

* sebagai arithmatic operator (tanda operasi kalkulasi dalam hal
aritmatik). Kelompoknya adalah * / + - (ping para lan suda) beserta ^
(pangkat) dan % (persentase)
, (di regional setting Indonesia pakai ; sebagai list separator) adalah
parameter list operator di dalam formula (bukan sebagai reference operator
ya).

=SumProduct( 1 * 1 * 1 )
hasilnya sama dengan
=Sum ( 1 * 1 * 1 )
Dan keduanya hanya memproses 1 nilai masukan saja, yaitu hasil perkalian 1
dengan 1 lalu dikali lagi dengan 1

=SumProduct( 1 , 1 , 1 )
hasilnya akan beda dengan
=Sum ( 1 , 1 , 1 )
Karena SumProduct adalah mengalikan 1 dengan 1 lalu dikali dengan 1 lagi (3
nilai masukan tadi dikalikan) lalu hasilnya di sum
Sedang Sum melakukan penjumlahan 3 bijik item inputannya, yaitu 1 ditambah
1 lalu ditambah lagi dengan 1

=SumProduct( 1 , 2 , 3 , 4 ) punya 4 item nilai input, yaitu nilai 1
sebagai input ke-1, nilai 2 sebagai input ke-2, dst. hasilnya 24
=SumProduct( 1 * 2 * 3 * 4 ) punya 1 item nilai input, yaitu hasil 1 * 2 *
3 * 4 .
hasilnya 24

=Sum ( 1 , 2 , 3 , 4 ) setara dengan komputasi =1 + 2 + 3 +
4 hasilnya 10

Jadi,
=SumProduct( ( IDKaryawan = "x123" ) * Range_nilai_cicilan )
berisi 1 nilai inputan berupa array, yaitu array data pada
hasil komputasi ( IDKaryawan = "x123" ) * Range_nilai_cicilan

Pada kasus Sumproduct diatas bisa pakai array formula Sum
=Sum ( ( IDKaryawan = "x123" ) * Range_nilai_cicilan )
tekan CTRL SHIFT ENTER

Kalau males pakai CTRL SHIFT ENTER, bisa minta tolong ke Index juga
=Sum ( Index( ( IDKaryawan = "x123" ) * Range_nilai_cicilan , 0 )
)

Regards,
Kid

On Fri, Jul 28, 2017 at 1:39 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> hai boz kid,
>
> klo bukan pemisah.... mungkin tanda "*" adalah tanda penghubung... [image:
> *:-? berpikir]
>
> br,
>
> odong nando
>
>
> ------------------------------
> *Dari:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Kamis, 27 Juli 2017 23:35
> *Judul:* Re: [belajar-excel] Manfaat Table untuk Function (mis.
> Sumproduct)
>
>
> hmmm...
> Jadi "*" bukan sebagai tanda pemisah ya ?
> Lalu sebagai apa dong ?
>
> ;)
>
>
>
>
> On Thu, Jul 27, 2017 at 11:08 PM, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Thanks Mr. Kid atas koreksinya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Thu, Jul 27, 2017 at 22:19, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com > wrote:
>
> hmmm...
>
> Sedikit catatan saja...
> Bagian ini :
>
> Satu hal yang "berbeda" dari Sumproduct adalah *penggunaan tanda kali
> ("*") sebagai tanda pemisah* bukan tanda koma ("*,*") untuk Regional
> selain Indonesia atau tanda titik koma ("*;*") untuk Regional Indonesia.
>
>
> Silakan dicoba formula sumproduct ini :
> Formula 1 :
> =SumProduct( (1=1) * (4=4) * (7=7) )
>
> Formula 2
> =SumProduct( (1=1) , (4=4) , (7=7) )
>
> Formula 3
> =SumProduct( TRUE * TRUE * TRUE )
>
> Formula 4
> =SumProduct( TRUE , TRUE , TRUE )
>
> Formula 5
> =SumProduct( 1 * 1 * 1 )
>
> Formula 6
> =SumProduct( 1 , 1 , 1 )
>
>
> Andai "*" sebagai tanda pemisah, mestinya hasil seluruh formula di atas
> adalah sama.
> Apakah benar demikian ?
> Andai tidak benar alias hasilnya seluruh formula di atas tidak sama,
> berarti tanda kali "*" bukan sebagai pemisah. Lalu sebagai apa dong ?
>
> It's just my two cents
> So, what is yours ?
>
> Regards,
> Kid
>
> 2017-07-27 11:03 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
> Dear Be-Excel,
>
> Coretan kecil ini saya tujukan untuk member Be-Excel yang jarang
> menggunakan function Sumproduct (termasuk saya).
> Sumproduct adalah "array formula (function)" yang penulisannya tidak perlu
> Array (ada tanda "{}"), walaupun dalam penjelasan penulisannya
> "=Sumproduct(array1, [array2, [array3], .....)".
>
> Satu hal yang "berbeda" dari Sumproduct adalah penggunaan tanda kali ("***")
> sebagai tanda pemisah bukan tanda koma ("*,*") untuk Regional selain
> Indonesia atau tanda titik koma ("*;*") untuk Regional Indonesia.
>
> Penulisan array1, array2 dstnya selalu mengacu pada *Range Acuan = Cell*.
> Agar formula Sumproduct dapat dicopy tentunya *Range* *Acuan* tersebut
> harus diberi tanda "*$*" dengan menekan tombol *F4*, sehingga setiap kali
> range yang menjadi acuan berubah maka penulisan *Range Acuan* pada
> Sumproduct harus diubah pula,
>
> Solusi untuk mengatasi hal tersebut adalah menggunakan Table sebagai Range
> Acuan dengan cara memblok range yang menjadi acuan kemudian menggantinya
> menjadi Table (Insert Table).
> Setelah function Sumproduct mengacu pada Table, jika ada tambahan data
> maka penulisan *Range Acuan (Table)* dalam Sumproduct tidak perlu diubah
> lagi.
>
> Untuk lebih memahami/mendalami penggunaan Sumproduct, silakan gunakan
> function Sumproduct untuk menentukan harga satuan pada file terlampir,
> dimana *Range Acuan*nya sdh berupa *Table*.
>
> Selamat mencoba.
>
> Salam,
> HK
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (21) . Top ^

3a

Bls: RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis.

Fri Jul 28, 2017 2:45 am (PDT) . Posted by:

"odong nando"

hai CW,
klo di copas kesamping ya berubah, cuma klo masih kekeh, ya bisa pake 2 cara kok.
1. convert to range tabel nya, setelah itu bubuhi dengan tanda "$"2. manfaatkan fungsi INDIRECT br,

odong nando

Dari: "'CepWahyu' cepwahyu@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 28 Juli 2017 15:46
Judul: RE: RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct) [1 Attachment]

  Pake contoh bang HK aja ya..  RegardsCW    From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Jumat, 28 Juli 2017 15.01
To: 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
Subject: Re: RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)    Hai CW,  Maaf, saya ga mudeng.Bisa diberikan contoh worksheetnya ?  Salam,HK  On Friday, July 28, 2017, 2:34:45 PM GMT+7, 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:      Nanya lagi nih bang…Kalo saya drag ke bawah memang cellnya tidak berubah tapi kalo sy drag kesamping kenapa berubah cell-nya ya bang?Sy baru ngeh setelah sy coba terapkan di data sy…kebetulan tidak hanya drag kebawah tapi drag kesamping juga. RegardsCW  From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Jumat, 28 Juli 2017 12.14
To: belajar-excel@yahoogroups.com
Subject: RE: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)   Sama2, sy juga baru kenal sumproduct dari grup ini.... Salam,HK Sent from Yahoo Mail on Android 
On Fri, Jul 28, 2017 at 11:54, 'CepWahyu' cepwahyu@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  Wokeh bang…thanks elmunya. RegardsCW From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Jumat, 28 Juli 2017 09.47
To: 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
Subject: Re: RE: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)   Hai CW,Blok datanya, lalu klik Insert Table (di Excel 2013 saya). Salam,HK  On Friday, July 28, 2017, 9:18:57 AM GMT+7, 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:    Cakep bang…Itu bikin table kaya gitu gmn caranya ya bang?....serius nanya nih bang…maklum ilmu excelnya masih standar.  RegrdsCW From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Kamis, 27 Juli 2017 14.21
To: 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
Subject: Re: RE: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct)   Betul.Jika kita coba tambah data, akan terasa manfaatnya kan ?Krn ga perlu update function Sumproductnya lagi. Salam,HK On Thursday, July 27, 2017, 1:49:52 PM GMT+7, 'CepWahyu' cepwahyu@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:    Ini hasil sy otak atik bang…..apakah sudah benar? Best RegardsCW  From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Kamis, 27 Juli 2017 11.04
To: BeExcel <belajar-excel@yahoogroups.com>
Subject: [belajar-excel] Manfaat Table untuk Function (mis. Sumproduct) [1 Attachment]   Dear Be-Excel, Coretan kecil ini saya tujukan untuk member Be-Excel yang jarang menggunakan function Sumproduct (termasuk saya).Sumproduct adalah "array formula (function)" yang penulisannya tidak perlu Array (ada tanda "{}"), walaupun dalam penjelasan penulisannya "=Sumproduct(array1, [array2, [array3], .....)". Satu hal yang "berbeda" dari Sumproduct adalah penggunaan tanda kali ("*") sebagai tanda pemisah bukan tanda koma (",") untuk Regional selain Indonesia atau tanda titik koma (";") untuk Regional Indonesia. Penulisan array1, array2 dstnya selalu mengacu pada Range Acuan = Cell.Agar formula Sumproduct dapat dicopy tentunya Range Acuan tersebut harus diberi tanda "$" dengan menekan tombol F4, sehingga setiap kali range yang menjadi acuan berubah maka penulisan Range Acuan pada Sumproduct harus diubah pula, Solusi untuk mengatasi hal tersebut adalah menggunakan Table sebagai Range Acuan dengan cara memblok range yang menjadi acuan kemudian menggantinya menjadi Table (Insert Table).Setelah function Sumproduct mengacu pada Table, jika ada tambahan data maka penulisan Range Acuan (Table) dalam Sumproduct tidak perlu diubah lagi. Untuk lebih memahami/mendalami penggunaan Sumproduct, silakan gunakan function Sumproduct untuk menentukan harga satuan pada file terlampir, dimana Range Acuannya sdh berupa Table. Selamat mencoba. Salam,HK 
#yiv4774699961 #yiv4774699961 -- #yiv4774699961ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4774699961 #yiv4774699961ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4774699961 #yiv4774699961ygrp-mkp #yiv4774699961hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4774699961 #yiv4774699961ygrp-mkp #yiv4774699961ads {margin-bottom:10px;}#yiv4774699961 #yiv4774699961ygrp-mkp .yiv4774699961ad {padding:0 0;}#yiv4774699961 #yiv4774699961ygrp-mkp .yiv4774699961ad p {margin:0;}#yiv4774699961 #yiv4774699961ygrp-mkp .yiv4774699961ad a {color:#0000ff;text-decoration:none;}#yiv4774699961 #yiv4774699961ygrp-sponsor #yiv4774699961ygrp-lc {font-family:Arial;}#yiv4774699961 #yiv4774699961ygrp-sponsor #yiv4774699961ygrp-lc #yiv4774699961hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4774699961 #yiv4774699961ygrp-sponsor #yiv4774699961ygrp-lc .yiv4774699961ad {margin-bottom:10px;padding:0 0;}#yiv4774699961 #yiv4774699961actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4774699961 #yiv4774699961activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4774699961 #yiv4774699961activity span {font-weight:700;}#yiv4774699961 #yiv4774699961activity span:first-child {text-transform:uppercase;}#yiv4774699961 #yiv4774699961activity span a {color:#5085b6;text-decoration:none;}#yiv4774699961 #yiv4774699961activity span span {color:#ff7900;}#yiv4774699961 #yiv4774699961activity span .yiv4774699961underline {text-decoration:underline;}#yiv4774699961 .yiv4774699961attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4774699961 .yiv4774699961attach div a {text-decoration:none;}#yiv4774699961 .yiv4774699961attach img {border:none;padding-right:5px;}#yiv4774699961 .yiv4774699961attach label {display:block;margin-bottom:5px;}#yiv4774699961 .yiv4774699961attach label a {text-decoration:none;}#yiv4774699961 blockquote {margin:0 0 0 4px;}#yiv4774699961 .yiv4774699961bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4774699961 .yiv4774699961bold a {text-decoration:none;}#yiv4774699961 dd.yiv4774699961last p a {font-family:Verdana;font-weight:700;}#yiv4774699961 dd.yiv4774699961last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4774699961 dd.yiv4774699961last p span.yiv4774699961yshortcuts {margin-right:0;}#yiv4774699961 div.yiv4774699961attach-table div div a {text-decoration:none;}#yiv4774699961 div.yiv4774699961attach-table {width:400px;}#yiv4774699961 div.yiv4774699961file-title a, #yiv4774699961 div.yiv4774699961file-title a:active, #yiv4774699961 div.yiv4774699961file-title a:hover, #yiv4774699961 div.yiv4774699961file-title a:visited {text-decoration:none;}#yiv4774699961 div.yiv4774699961photo-title a, #yiv4774699961 div.yiv4774699961photo-title a:active, #yiv4774699961 div.yiv4774699961photo-title a:hover, #yiv4774699961 div.yiv4774699961photo-title a:visited {text-decoration:none;}#yiv4774699961 div#yiv4774699961ygrp-mlmsg #yiv4774699961ygrp-msg p a span.yiv4774699961yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4774699961 .yiv4774699961green {color:#628c2a;}#yiv4774699961 .yiv4774699961MsoNormal {margin:0 0 0 0;}#yiv4774699961 o {font-size:0;}#yiv4774699961 #yiv4774699961photos div {float:left;width:72px;}#yiv4774699961 #yiv4774699961photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4774699961 #yiv4774699961photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4774699961 #yiv4774699961reco-category {font-size:77%;}#yiv4774699961 #yiv4774699961reco-desc {font-size:77%;}#yiv4774699961 .yiv4774699961replbq {margin:4px;}#yiv4774699961 #yiv4774699961ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4774699961 #yiv4774699961ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4774699961 #yiv4774699961ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4774699961 #yiv4774699961ygrp-mlmsg select, #yiv4774699961 input, #yiv4774699961 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4774699961 #yiv4774699961ygrp-mlmsg pre, #yiv4774699961 code {font:115% monospace;}#yiv4774699961 #yiv4774699961ygrp-mlmsg * {line-height:1.22em;}#yiv4774699961 #yiv4774699961ygrp-mlmsg #yiv4774699961logo {padding-bottom:10px;}#yiv4774699961 #yiv4774699961ygrp-msg p a {font-family:Verdana;}#yiv4774699961 #yiv4774699961ygrp-msg p#yiv4774699961attach-count span {color:#1E66AE;font-weight:700;}#yiv4774699961 #yiv4774699961ygrp-reco #yiv4774699961reco-head {color:#ff7900;font-weight:700;}#yiv4774699961 #yiv4774699961ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4774699961 #yiv4774699961ygrp-sponsor #yiv4774699961ov li a {font-size:130%;text-decoration:none;}#yiv4774699961 #yiv4774699961ygrp-sponsor #yiv4774699961ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4774699961 #yiv4774699961ygrp-sponsor #yiv4774699961ov ul {margin:0;padding:0 0 0 8px;}#yiv4774699961 #yiv4774699961ygrp-text {font-family:Georgia;}#yiv4774699961 #yiv4774699961ygrp-text p {margin:0 0 1em 0;}#yiv4774699961 #yiv4774699961ygrp-text tt {font-size:120%;}#yiv4774699961 #yiv4774699961ygrp-vital ul li:last-child {border-right:none !important;}#yiv4774699961

Reply to sender . Reply to group . Reply via Web Post . All Messages (21) . Top ^

4

belajar looping ...

Fri Jul 28, 2017 3:05 am (PDT) . Posted by:

"Lan M" lanm31@ymail.com

mohon penecerahnnya masterku ...lagi belajar looping tapi mentok diakhir ..mohon pencerahannya
file terlampir ..

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

5a

Re: Merubah nilai checkbox dengan nilai cell

Fri Jul 28, 2017 5:37 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

oh sorry,

begini :
Buat prosedur event di sheet 'Kid' untuk event bernama change. Lalu isi
dengan script seperti ini :
dim oOLE as oleobject
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each oole in sheets("kid").oleobjects 'disetiap oleobject
dalam sheet bernama 'Kid'
if oole.name like "chkKid*" then 'si oleobject yang
diproses memilki nama yang diawali 'chkKid' (case sensitive)
oole*.object*.value=false
endif
next oole
endif
endif

Regards,
Kid

On Fri, Jul 28, 2017 at 10:38 AM, Danny Prasetyo aydprasetyo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Ini rumus yang saya gunakan Mr. Kid, rumus ini saya isi di sheet 1,
> dan CheckBox yang saya gunakan adalah ActiveX Control.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim oOLE As OLEObject
> If Target.Count = 1 Then
> If Target.Address = "$K$5" Then
> For Each oOLE In Sheets("Sheet1").OLEObjects
> If oOLE.Name Like "CheckBox1" Then
> oOLE.Value = False
> End If
> Next oOLE
> End If
> End If
> End Sub
>
> Masalahnya adalah:
> setelah saya coba mengisi atau merubah isi Cell di K5 dan posisi CheckBox
> tercentang, hasilnya bukan CheckBox tidak tercentang, malah terdapat
> keterangan seperti di bawah ini:
>
> Run-time error '438':
> Object doesn't support this property or method
>
> yang merujuk ke rumus ini
> oOLE.Value = False
>
> Mohon dibantu Mr. Kid dan terima kasih sudah bersedia membantu.
>
>
> Pada Kamis, 27 Juli 2017 23:53, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Danny,
>
> 1. Misal, nama sheetnya adalah 'Kid', semua checkbox adalah activex
> control, nama-nama checkbox yang diubah nilainya diawali chkKid (seperti
> chkKid01, chkKid02, dan sebagainya), cells trigger (yang diubah adalah A1).
> Buat prosedur event di sheet 'Kid' untuk event bernama change. Lalu isi
> dengan script seperti ini :
> dim oOLE as oleobject
> if target.count=1 then 'yang berubah cuma 1 cells doang
> if target.address="$A$1" then 'cuma A1 'case sensitive'
> for each oole in sheets("kid").oleobjects 'disetiap
> oleobject dalam sheet bernama 'Kid'
> if oole.name like "chkKid*" then 'si oleobject yang
> diproses memilki nama yang diawali 'chkKid' (case sensitive)
> oole.value=false
> endif
> next oole
> endif
> endif
>
> 2. Misal, nama sheetnya adalah 'Kid', semua check box adalah form control,
> nama-nama check box yang diubah nilainya diawali shpChk (seperti shpChk01,
> shpChk02, dan sebagainya), cells trigger (yang diubah adalah A1).
> dim shp as checkbox
> if target.count=1 then 'yang berubah cuma 1 cells doang
> if target.address="$A$1" then 'cuma A1 'case sensitive'
> for each shp in sheets("kid").checkboxes
> if shp.name like "shpChk*" then 'case sensitive
> shp.value=xloff
> endif
> next shp
> endif
> endif
>
> Kira-kiranya demikian.
>
> Regards,
> Kid
>
>
>
>
>
> On Thu, Jul 27, 2017 at 3:20 PM, Danny Prasetyo aydprasetyo@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Selamat siang, saya ingin bertanya.
>
> Jika setiap kali saya merubah nilai dalam cell L5 (berapapun nilainya)
> maka checkbox yang berada pada sheet aktif tersebut tidak tercentang.
>
> Rumus VBAnya bagaimana yaa?
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

5b

Bls: Re: [belajar-excel] Merubah nilai checkbox dengan nilai cell

Fri Jul 28, 2017 5:58 am (PDT) . Posted by:

"Danny Prasetyo"

Baik Mr. Kid nanti saya coba kembali. Btw rumus yg Mr. Kid suruh
ini (prosedur event di sheet 'Kid' untuk event bernama change)
udah benar belum yaa?
Private Sub Worksheet_Change(ByVal Target As Range)
Saya takut salah
Dari: belajar-excel@yahoogroups.comTerkirim: 28 Juli 2017 7.38
PMKepada: belajar-excel@yahoogroups.comBalas ke:
belajar-excel@yahoogroups.comHal: Re: [belajar-excel] Merubah
nilai checkbox dengan nilai cell
#ssc184377628593602686 #ygrp-mkp{border: 1px solid rgb(216, 216,
216);font-family: Arial;margin: 10px 0;padding: 0
10px;}#ssc184377628593602686 #ygrp-mkp hr{border: 1px solid
rgb(216, 216, 216);}#ssc184377628593602686 #ygrp-mkp #hd{color:
rgb(98, 140, 42);font-size: 85%;font-weight: 700;line-height:
122%;margin: 10px 0;}#ssc184377628593602686 #ygrp-mkp
#ads{margin-bottom: 10px;}#ssc184377628593602686 #ygrp-mkp
.ad{padding: 0 0;}#ssc184377628593602686 #ygrp-mkp .ad p{margin:
0;}#ssc184377628593602686 #ygrp-mkp .ad a{color: rgb(0, 0,
255);text-decoration: none;}#ssc184377628593602686 #ygrp-sponsor
#ygrp-lc{font-family: Arial;}#ssc184377628593602686 #ygrp-sponsor
#ygrp-lc #hd{margin: 10px 0px;font-weight: 700;font-size:
78%;line-height: 122%;}#ssc184377628593602686 #ygrp-sponsor
#ygrp-lc .ad{margin-bottom: 10px;padding: 0
0;}#ssc184377628593602686 #actions{font-family:
Verdana;font-size: 11px;padding: 10px 0;}#ssc184377628593602686
#activity{background-color: rgb(224, 236, 238);float:
left;font-family: Verdana;font-size: 10px;padding:
10px;}#ssc184377628593602686 #activity span{font-weight:
700;}#ssc184377628593602686 #activity
span:first-child{text-transform:
uppercase;}#ssc184377628593602686 #activity span a{color: rgb(80,
133, 182);text-decoration: none;}#ssc184377628593602686 #activity
span span{color: rgb(255, 121, 0);}#ssc184377628593602686
#activity span .underline{text-decoration:
underline;}#ssc184377628593602686 .attach{clear: both;display:
table;font-family: Arial;font-size: 12px;padding: 10px 0;width:
400px;}#ssc184377628593602686 .attach div a{text-decoration:
none;}#ssc184377628593602686 .attach img{border:
none;padding-right: 5px;}#ssc184377628593602686 .attach
label{display: block;margin-bottom: 5px;}#ssc184377628593602686
.attach label a{text-decoration: none;}#ssc184377628593602686
blockquote{margin: 0 0 0 4px;}#ssc184377628593602686
.bold{font-family: Arial;font-size: 13px;font-weight:
700;}#ssc184377628593602686 .bold a{text-decoration:
none;}#ssc184377628593602686 dd.last p a{font-family:
Verdana;font-weight: 700;}#ssc184377628593602686 dd.last p
span{margin-right: 10px;font-family: Verdana;font-weight:
700;}#ssc184377628593602686 dd.last p
span.yshortcuts{margin-right: 0;}#ssc184377628593602686
div.attach-table div div a{text-decoration:
none;}#ssc184377628593602686 div.attach-table{width:
400px;}#ssc184377628593602686 div.file-title
a,#ssc184377628593602686 div.file-title
a:active,#ssc184377628593602686 div.file-title
a:hover,#ssc184377628593602686 div.file-title
a:visited{text-decoration: none;}#ssc184377628593602686
div.photo-title a,#ssc184377628593602686 div.photo-title
a:active,#ssc184377628593602686 div.photo-title
a:hover,#ssc184377628593602686 div.photo-title
a:visited{text-decoration: none;}#ssc184377628593602686
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts{font-family:
Verdana;font-size: 10px;font-weight:
normal;}#ssc184377628593602686 .green{color: rgb(98, 140,
42);}#ssc184377628593602686 .MsoNormal{margin: 0 0 0
0;}#ssc184377628593602686 o{font-size: 0;}#ssc184377628593602686
#photos div{float: left;width: 72px;}#ssc184377628593602686
#photos div div{border: 1px solid rgb(102, 102, 102);height:
62px;overflow: hidden;width: 62px;}#ssc184377628593602686 #photos
div label{color: rgb(102, 102, 102);font-size: 10px;overflow:
hidden;text-align: center;white-space: nowrap;width:
64px;}#ssc184377628593602686 #reco-category{font-size:
77%;}#ssc184377628593602686 #reco-desc{font-size:
77%;}#ssc184377628593602686 .replbq{margin:
4px;}#ssc184377628593602686 #ygrp-actbar div
a:first-child{margin-right: 2px;padding-right:
5px;}#ssc184377628593602686 #ygrp-mlmsg{font-size:
13px;font-family: Arial, helvetica, clean,
sans-serif;}#ssc184377628593602686 #ygrp-mlmsg table{font-size:
inherit;font: 100%;}#ssc184377628593602686 #ygrp-mlmsg
select,#ssc184377628593602686 input,#ssc184377628593602686
textarea{font: 99% Arial, Helvetica, clean,
sans-serif;}#ssc184377628593602686 #ygrp-mlmsg
pre,#ssc184377628593602686 code{font: 115%
monospace;}#ssc184377628593602686 #ygrp-mlmsg *{line-height:
1.22em;}#ssc184377628593602686 #ygrp-mlmsg #logo{padding-bottom:
10px;}#ssc184377628593602686 #ygrp-msg p a{font-family:
Verdana;}#ssc184377628593602686 #ygrp-msg p#attach-count
span{color: rgb(30, 102, 174);font-weight:
700;}#ssc184377628593602686 #ygrp-reco #reco-head{color: rgb(255,
121, 0);font-weight: 700;}#ssc184377628593602686
#ygrp-reco{margin-bottom: 20px;padding:
0px;}#ssc184377628593602686 #ygrp-sponsor #ov li a{font-size:
130%;text-decoration: none;}#ssc184377628593602686 #ygrp-sponsor
#ov li{font-size: 77%;list-style-type: square;padding: 6px
0;}#ssc184377628593602686 #ygrp-sponsor #ov ul{margin: 0;padding:
0 0 0 8px;}#ssc184377628593602686 #ygrp-text{font-family:
Georgia;}#ssc184377628593602686 #ygrp-text p{margin: 0 0 1em
0;}#ssc184377628593602686 #ygrp-text tt{font-size:
120%;}#ssc184377628593602686 #ygrp-vital ul
li:last-child{border-right: none;}

oh sorry,

begini :
Buat prosedur event di sheet 'Kid' untuk event bernama change.
Lalu isi dengan script seperti ini :
dim oOLE as oleobject
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each oole in sheets("kid").oleobjects 'disetiap
oleobject dalam sheet bernama 'Kid'
if oole.name <http://oole.name> like "chkKid*"
then 'si oleobject yang diproses memilki nama yang diawali
'chkKid' (case sensitive)
oole.object.value=false
endif
next oole
endif
endif
Regards,
Kid



On Fri, Jul 28, 2017 at 10:38 AM, Danny Prasetyo
aydprasetyo@yahoo.com <mailto:aydprasetyo@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:


Ini rumus yang saya gunakan Mr. Kid, rumus ini saya isi di sheet
1,dan CheckBox yang saya gunakan adalah ActiveX Control.
Private Sub Worksheet_Change(ByVal Target As Range)Dim oOLE As
OLEObjectIf Target.Count = 1 Then If Target.Address = "$K$5"
Then For Each oOLE In Sheets("Sheet1").OLEObjects
If oOLE.Name Like "CheckBox1" Then oOLE.Value =
False End If Next oOLE End IfEnd IfEnd
Sub
Masalahnya adalah:setelah saya coba mengisi atau merubah isi Cell
di K5 dan posisi CheckBox tercentang, hasilnya bukan CheckBox
tidak tercentang, malah terdapat keterangan seperti di bawah ini:
Run-time error '438':Object doesn't support this property or
method
yang merujuk ke rumus inioOLE.Value = False
Mohon dibantu Mr. Kid dan terima kasih sudah bersedia membantu.

Pada Kamis, 27 Juli 2017 23:53, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

1. Misal, nama sheetnya adalah 'Kid', semua checkbox adalah
activex control, nama-nama checkbox yang diubah nilainya diawali
chkKid (seperti chkKid01, chkKid02, dan sebagainya), cells
trigger (yang diubah adalah A1).
Buat prosedur event di sheet 'Kid' untuk event bernama change.
Lalu isi dengan script seperti ini :
dim oOLE as oleobject
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each oole in sheets("kid").oleobjects 'disetiap
oleobject dalam sheet bernama 'Kid'
if oole.name <http://oole.name/> like "chkKid*"
then 'si oleobject yang diproses memilki nama yang diawali
'chkKid' (case sensitive)
oole.value=false
endif
next oole
endif
endif

2. Misal, nama sheetnya adalah 'Kid', semua check box adalah form
control, nama-nama check box yang diubah nilainya diawali shpChk
(seperti shpChk01, shpChk02, dan sebagainya), cells trigger (yang
diubah adalah A1).
dim shp as checkbox
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each shp in sheets("kid").checkboxes
if shp.name <http://shp.name/> like "shpChk*" then
'case sensitive
shp.value=xloff
endif
next shp
endif
endif

Kira-kiranya demikian.

Regards,
Kid





On Thu, Jul 27, 2017 at 3:20 PM, Danny Prasetyo
aydprasetyo@yahoo.com <mailto:aydprasetyo@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:
Selamat siang, saya ingin
bertanya.
Jika setiap kali saya merubah nilai dalam cell L5 (berapapun
nilainya) maka checkbox yang berada pada sheet aktif tersebut
tidak tercentang.
Rumus VBAnya bagaimana yaa?

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

5c

Re: Merubah nilai checkbox dengan nilai cell

Fri Jul 28, 2017 7:24 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Yup, sudah benar.
Event change milik si worksheet

2017-07-28 19:48 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Baik Mr. Kid nanti saya coba kembali.
> Btw rumus yg Mr. Kid suruh ini (prosedur event di sheet 'Kid' untuk event
> bernama change) udah benar belum yaa?
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> Saya takut salah
> *Dari:* belajar-excel@yahoogroups.com
> *Terkirim:* 28 Juli 2017 7.38 PM
> *Kepada:* belajar-excel@yahoogroups.com
> *Balas ke:* belajar-excel@yahoogroups.com
> *Hal:* Re: [belajar-excel] Merubah nilai checkbox dengan nilai cell
>
>
>
> oh sorry,
>
> begini :
> Buat prosedur event di sheet 'Kid' untuk event bernama change. Lalu isi
> dengan script seperti ini :
> dim oOLE as oleobject
> if target.count=1 then 'yang berubah cuma 1 cells doang
> if target.address="$A$1" then 'cuma A1 'case sensitive'
> for each oole in sheets("kid").oleobjects 'disetiap
> oleobject dalam sheet bernama 'Kid'
> if oole.name like "chkKid*" then 'si oleobject yang
> diproses memilki nama yang diawali 'chkKid' (case sensitive)
> oole*.object*.value=false
> endif
> next oole
> endif
> endif
>
> Regards,
> Kid
>
>
>
> On Fri, Jul 28, 2017 at 10:38 AM, Danny Prasetyo aydprasetyo@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Ini rumus yang saya gunakan Mr. Kid, rumus ini saya isi di sheet 1,
>> dan CheckBox yang saya gunakan adalah ActiveX Control.
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Dim oOLE As OLEObject
>> If Target.Count = 1 Then
>> If Target.Address = "$K$5" Then
>> For Each oOLE In Sheets("Sheet1").OLEObjects
>> If oOLE.Name Like "CheckBox1" Then
>> oOLE.Value = False
>> End If
>> Next oOLE
>> End If
>> End If
>> End Sub
>>
>> Masalahnya adalah:
>> setelah saya coba mengisi atau merubah isi Cell di K5 dan posisi CheckBox
>> tercentang, hasilnya bukan CheckBox tidak tercentang, malah terdapat
>> keterangan seperti di bawah ini:
>>
>> Run-time error '438':
>> Object doesn't support this property or method
>>
>> yang merujuk ke rumus ini
>> oOLE.Value = False
>>
>> Mohon dibantu Mr. Kid dan terima kasih sudah bersedia membantu.
>>
>>
>> Pada Kamis, 27 Juli 2017 23:53, "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Hai Danny,
>>
>> 1. Misal, nama sheetnya adalah 'Kid', semua checkbox adalah activex
>> control, nama-nama checkbox yang diubah nilainya diawali chkKid (seperti
>> chkKid01, chkKid02, dan sebagainya), cells trigger (yang diubah adalah A1).
>> Buat prosedur event di sheet 'Kid' untuk event bernama change. Lalu isi
>> dengan script seperti ini :
>> dim oOLE as oleobject
>> if target.count=1 then 'yang berubah cuma 1 cells doang
>> if target.address="$A$1" then 'cuma A1 'case sensitive'
>> for each oole in sheets("kid").oleobjects 'disetiap
>> oleobject dalam sheet bernama 'Kid'
>> if oole.name like "chkKid*" then 'si oleobject yang
>> diproses memilki nama yang diawali 'chkKid' (case sensitive)
>> oole.value=false
>> endif
>> next oole
>> endif
>> endif
>>
>> 2. Misal, nama sheetnya adalah 'Kid', semua check box adalah form
>> control, nama-nama check box yang diubah nilainya diawali shpChk (seperti
>> shpChk01, shpChk02, dan sebagainya), cells trigger (yang diubah adalah A1).
>> dim shp as checkbox
>> if target.count=1 then 'yang berubah cuma 1 cells doang
>> if target.address="$A$1" then 'cuma A1 'case sensitive'
>> for each shp in sheets("kid").checkboxes
>> if shp.name like "shpChk*" then 'case sensitive
>> shp.value=xloff
>> endif
>> next shp
>> endif
>> endif
>>
>> Kira-kiranya demikian.
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>>
>> On Thu, Jul 27, 2017 at 3:20 PM, Danny Prasetyo aydprasetyo@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>
>> Selamat siang, saya ingin bertanya.
>>
>> Jika setiap kali saya merubah nilai dalam cell L5 (berapapun nilainya)
>> maka checkbox yang berada pada sheet aktif tersebut tidak tercentang.
>>
>> Rumus VBAnya bagaimana yaa?
>>
>>
>>
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

5d

Bls: Re: Re: [belajar-excel] Merubah nilai checkbox dengan nilai cel

Fri Jul 28, 2017 8:24 am (PDT) . Posted by:

"Danny Prasetyo"

Oke deh, mantap hehehe Makasih Mr. Kid.
Dari: belajar-excel@yahoogroups.comTerkirim: 28 Juli 2017
21.24Kepada: belajar-excel@yahoogroups.comBalas ke:
belajar-excel@yahoogroups.comHal: Re: Re: [belajar-excel] Merubah
nilai checkbox dengan nilai cell
#ssc7244938699947997374 #ygrp-mkp{border: 1px solid rgb(216, 216,
216);font-family: Arial;margin: 10px 0;padding: 0
10px;}#ssc7244938699947997374 #ygrp-mkp hr{border: 1px solid
rgb(216, 216, 216);}#ssc7244938699947997374 #ygrp-mkp #hd{color:
rgb(98, 140, 42);font-size: 85%;font-weight: 700;line-height:
122%;margin: 10px 0;}#ssc7244938699947997374 #ygrp-mkp
#ads{margin-bottom: 10px;}#ssc7244938699947997374 #ygrp-mkp
.ad{padding: 0 0;}#ssc7244938699947997374 #ygrp-mkp .ad p{margin:
0;}#ssc7244938699947997374 #ygrp-mkp .ad a{color: rgb(0, 0,
255);text-decoration: none;}#ssc7244938699947997374 #ygrp-sponsor
#ygrp-lc{font-family: Arial;}#ssc7244938699947997374
#ygrp-sponsor #ygrp-lc #hd{margin: 10px 0px;font-weight:
700;font-size: 78%;line-height: 122%;}#ssc7244938699947997374
#ygrp-sponsor #ygrp-lc .ad{margin-bottom: 10px;padding: 0
0;}#ssc7244938699947997374 #actions{font-family:
Verdana;font-size: 11px;padding: 10px 0;}#ssc7244938699947997374
#activity{background-color: rgb(224, 236, 238);float:
left;font-family: Verdana;font-size: 10px;padding:
10px;}#ssc7244938699947997374 #activity span{font-weight:
700;}#ssc7244938699947997374 #activity
span:first-child{text-transform:
uppercase;}#ssc7244938699947997374 #activity span a{color:
rgb(80, 133, 182);text-decoration: none;}#ssc7244938699947997374
#activity span span{color: rgb(255, 121,
0);}#ssc7244938699947997374 #activity span
.underline{text-decoration: underline;}#ssc7244938699947997374
.attach{clear: both;display: table;font-family: Arial;font-size:
12px;padding: 10px 0;width: 400px;}#ssc7244938699947997374
.attach div a{text-decoration: none;}#ssc7244938699947997374
.attach img{border: none;padding-right:
5px;}#ssc7244938699947997374 .attach label{display:
block;margin-bottom: 5px;}#ssc7244938699947997374 .attach label
a{text-decoration: none;}#ssc7244938699947997374
blockquote{margin: 0 0 0 4px;}#ssc7244938699947997374
.bold{font-family: Arial;font-size: 13px;font-weight:
700;}#ssc7244938699947997374 .bold a{text-decoration:
none;}#ssc7244938699947997374 dd.last p a{font-family:
Verdana;font-weight: 700;}#ssc7244938699947997374 dd.last p
span{margin-right: 10px;font-family: Verdana;font-weight:
700;}#ssc7244938699947997374 dd.last p
span.yshortcuts{margin-right: 0;}#ssc7244938699947997374
div.attach-table div div a{text-decoration:
none;}#ssc7244938699947997374 div.attach-table{width:
400px;}#ssc7244938699947997374 div.file-title
a,#ssc7244938699947997374 div.file-title
a:active,#ssc7244938699947997374 div.file-title
a:hover,#ssc7244938699947997374 div.file-title
a:visited{text-decoration: none;}#ssc7244938699947997374
div.photo-title a,#ssc7244938699947997374 div.photo-title
a:active,#ssc7244938699947997374 div.photo-title
a:hover,#ssc7244938699947997374 div.photo-title
a:visited{text-decoration: none;}#ssc7244938699947997374
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts{font-family:
Verdana;font-size: 10px;font-weight:
normal;}#ssc7244938699947997374 .green{color: rgb(98, 140,
42);}#ssc7244938699947997374 .MsoNormal{margin: 0 0 0
0;}#ssc7244938699947997374 o{font-size:
0;}#ssc7244938699947997374 #photos div{float: left;width:
72px;}#ssc7244938699947997374 #photos div div{border: 1px solid
rgb(102, 102, 102);height: 62px;overflow: hidden;width:
62px;}#ssc7244938699947997374 #photos div label{color: rgb(102,
102, 102);font-size: 10px;overflow: hidden;text-align:
center;white-space: nowrap;width: 64px;}#ssc7244938699947997374
#reco-category{font-size: 77%;}#ssc7244938699947997374
#reco-desc{font-size: 77%;}#ssc7244938699947997374
.replbq{margin: 4px;}#ssc7244938699947997374 #ygrp-actbar div
a:first-child{margin-right: 2px;padding-right:
5px;}#ssc7244938699947997374 #ygrp-mlmsg{font-size:
13px;font-family: Arial, helvetica, clean,
sans-serif;}#ssc7244938699947997374 #ygrp-mlmsg table{font-size:
inherit;font: 100%;}#ssc7244938699947997374 #ygrp-mlmsg
select,#ssc7244938699947997374 input,#ssc7244938699947997374
textarea{font: 99% Arial, Helvetica, clean,
sans-serif;}#ssc7244938699947997374 #ygrp-mlmsg
pre,#ssc7244938699947997374 code{font: 115%
monospace;}#ssc7244938699947997374 #ygrp-mlmsg *{line-height:
1.22em;}#ssc7244938699947997374 #ygrp-mlmsg #logo{padding-bottom:
10px;}#ssc7244938699947997374 #ygrp-msg p a{font-family:
Verdana;}#ssc7244938699947997374 #ygrp-msg p#attach-count
span{color: rgb(30, 102, 174);font-weight:
700;}#ssc7244938699947997374 #ygrp-reco #reco-head{color:
rgb(255, 121, 0);font-weight: 700;}#ssc7244938699947997374
#ygrp-reco{margin-bottom: 20px;padding:
0px;}#ssc7244938699947997374 #ygrp-sponsor #ov li a{font-size:
130%;text-decoration: none;}#ssc7244938699947997374 #ygrp-sponsor
#ov li{font-size: 77%;list-style-type: square;padding: 6px
0;}#ssc7244938699947997374 #ygrp-sponsor #ov ul{margin:
0;padding: 0 0 0 8px;}#ssc7244938699947997374
#ygrp-text{font-family: Georgia;}#ssc7244938699947997374
#ygrp-text p{margin: 0 0 1em 0;}#ssc7244938699947997374
#ygrp-text tt{font-size: 120%;}#ssc7244938699947997374
#ygrp-vital ul li:last-child{border-right: none;}

Yup, sudah benar.
Event change milik si worksheet

2017-07-28 19:48 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:


Baik Mr. Kid nanti saya coba kembali. Btw rumus yg Mr. Kid suruh
ini (prosedur event di sheet 'Kid' untuk event bernama change)
udah benar belum yaa?
Private Sub Worksheet_Change(ByVal Target As Range)
Saya takut salah
Dari: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Terkirim: 28 Juli 2017
7.38 PMKepada: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Balas ke:
belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Hal: Re: [belajar-excel]
Merubah nilai checkbox dengan nilai cell


oh sorry,

begini :
Buat prosedur event di sheet 'Kid' untuk event bernama change.
Lalu isi dengan script seperti ini :
dim oOLE as oleobject
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each oole in sheets("kid").oleobjects 'disetiap
oleobject dalam sheet bernama 'Kid'
if oole.name <http://oole.name> like "chkKid*"
then 'si oleobject yang diproses memilki nama yang diawali
'chkKid' (case sensitive)
oole.object.value=false
endif
next oole
endif
endif
Regards,
Kid



On Fri, Jul 28, 2017 at 10:38 AM, Danny Prasetyo
aydprasetyo@yahoo.com <mailto:aydprasetyo@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:


Ini rumus yang saya gunakan Mr. Kid, rumus ini saya isi di sheet
1,dan CheckBox yang saya gunakan adalah ActiveX Control.
Private Sub Worksheet_Change(ByVal Target As Range)Dim oOLE As
OLEObjectIf Target.Count = 1 Then If Target.Address = "$K$5"
Then For Each oOLE In Sheets("Sheet1").OLEObjects
If oOLE.Name Like "CheckBox1" Then oOLE.Value =
False End If Next oOLE End IfEnd IfEnd
Sub
Masalahnya adalah:setelah saya coba mengisi atau merubah isi Cell
di K5 dan posisi CheckBox tercentang, hasilnya bukan CheckBox
tidak tercentang, malah terdapat keterangan seperti di bawah ini:
Run-time error '438':Object doesn't support this property or
method
yang merujuk ke rumus inioOLE.Value = False
Mohon dibantu Mr. Kid dan terima kasih sudah bersedia membantu.

Pada Kamis, 27 Juli 2017 23:53, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

1. Misal, nama sheetnya adalah 'Kid', semua checkbox adalah
activex control, nama-nama checkbox yang diubah nilainya diawali
chkKid (seperti chkKid01, chkKid02, dan sebagainya), cells
trigger (yang diubah adalah A1).
Buat prosedur event di sheet 'Kid' untuk event bernama change.
Lalu isi dengan script seperti ini :
dim oOLE as oleobject
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each oole in sheets("kid").oleobjects 'disetiap
oleobject dalam sheet bernama 'Kid'
if oole.name <http://oole.name/> like "chkKid*"
then 'si oleobject yang diproses memilki nama yang diawali
'chkKid' (case sensitive)
oole.value=false
endif
next oole
endif
endif

2. Misal, nama sheetnya adalah 'Kid', semua check box adalah form
control, nama-nama check box yang diubah nilainya diawali shpChk
(seperti shpChk01, shpChk02, dan sebagainya), cells trigger (yang
diubah adalah A1).
dim shp as checkbox
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each shp in sheets("kid").checkboxes
if shp.name <http://shp.name/> like "shpChk*" then
'case sensitive
shp.value=xloff
endif
next shp
endif
endif

Kira-kiranya demikian.

Regards,
Kid





On Thu, Jul 27, 2017 at 3:20 PM, Danny Prasetyo
aydprasetyo@yahoo.com <mailto:aydprasetyo@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:
Selamat siang, saya ingin
bertanya.
Jika setiap kali saya merubah nilai dalam cell L5 (berapapun
nilainya) maka checkbox yang berada pada sheet aktif tersebut
tidak tercentang.
Rumus VBAnya bagaimana yaa?

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

6a

Re: GROUP BY WITH ROLLUP

Fri Jul 28, 2017 5:40 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

mas Zainul,

opsi RollUp adanya di ms sql server.
koneksi data Excel to Excel menggunakan ACE OLE DB yang menggunakan sql
standar.

1. Biasanya begini :
Select kolom_key_tipe_text , Sum( kolom_yg_diSum )
From tabelnya
Group By kolom_key_tipe_text
UNION ALL
Select 'Grand Total', Sum( kolom_yg_diSum )
From tabelnya

2. Kalau keynya ada 2 kolom :
Select kolom_key1_tipe_text , kolom_key2_tipe_text , Sum( kolom_yg_diSum )
From tabelnya
Group By kolom_key1_tipe_text, kolom_key2_tipe_text
UNION ALL
Select 'Grand Total' , 'Grand Total', Sum( kolom_yg_diSum )
From tabelnya

3. Kalau ada subtotal per key2 nya juga, jadi perlu ditambahin ini :
UNION ALL
Select 'SubTotal' , kolom_key2_tipe_text, Sum( kolom_yg_diSum )
From tabelnya
Group By kolom_key2_tipe_text

Contoh data di dalam tabel bernama 'tabelnya'
kolom_key1_tipe_text kolom_key2_tipe_text kolom_yg_diSum
A
X 10
A
X 20
A Y
400
B Y
5000

Query 0 :
Select kolom_key1_tipe_text as Nama, kolom_key2_tipe_text as Kota ,
kolom_yg_diSum as NilaiTotal
From tabelnya

hasilnya : (sama dengan tabel data bernama 'tabelnya') dengan nama kolom
yang ditentukan sendiri
Nama Kota
NilaiTotal
A
X 10
A
X 20
A Y
400
B Y
5000

Query 1 :
Select kolom_key1_tipe_text as Nama, kolom_key2_tipe_text as Kota , Sum(
kolom_yg_diSum ) as NilaiTotal
From tabelnya
Group By kolom_key1_tipe_text, kolom_key2_tipe_text

hasilnya : di grup berdasar kolom ke-1 dan ke-2 (2 key) : total setiap
nama di setiap kota
Nama Kota NilaiTotal
A X 30
A Y 400
B Y 5000

Query 2 :
Select kolom_key1_tipe_text as Nama, 'Subtotal Key1' as Kota , Sum(
kolom_yg_diSum ) as NilaiTotal
From tabelnya
Group By kolom_key1_tipe_text

hasilnya : subtotal setiap Nama
Nama Kota NilaiTotal
A Subtotal Key1 430
B Subtotal Key1 5000

Query 3 :
Select 'Subtotal Key2' as Nama, kolom_key2_tipe_text as Kota , Sum(
kolom_yg_diSum ) as NilaiTotal
From tabelnya
Group By kolom_key2_tipe_text

hasilnya : subtotal setiap kota
Nama Kota NilaiTotal
Subtotal Key2 X 30
Subtotal Key2 Y 5400

Query 4 :
Select 'Grand Total' as Nama , 'Grand Total' as Kota, Sum( kolom_yg_diSum )
as NilaiTotal
From tabelnya

Hasilnya : total
Nama Kota NilaiTotal
Grand Total Grand Total 5430

Trus masing-masing query yang kolom-kolom select-nya sama makna di gabung
utuh (UNION ALL)
Query 0
*Union All* Query 1
*Union All* Query 2
*Union All* Query 3
*Union All* Query 4

Hasilnya : ya kaya gini
Nama Kota NilaiTotal
A
X 10
A
X 20
A Y
400
B Y
5000
A
X 30
A
Y 400
B
Y 5000
A Subtotal Key1
430
B Subtotal
Key1 5000
Subtotal Key2 X
30
Subtotal Key2 Y
5400
Grand Total Grand Total
5430

Sila dipilih dan diatur sesuai kebutuhan

Regards,
Kid

2017-07-28 7:22 GMT+07:00 zainul_ulum@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Be-Excelers,
>
>
> Selain menggunakan pivot table, saya menggunakan SQL dengan Microsoft
> Query di Excel untuk merangkum tabel dari beberapa file.
>
> Kira-kira contohnya seperti di ini:
>
> '=====================
>
> SELECT [COMPANY],SUM([AMOUNT]) AS [TOTAL AMOUNT]
>
> FROM
>
> (
>
>
>
> SELECT
>
> UCASE(mat.[COMPANY NAME]) AS [COMPANY],
>
> mat.[RFM_ID],
>
> mat.[DESCRIPTION],
>
> mat.[AMOUNT]
>
> FROM [Y:\LOKASI FILE\FILEPERTAMA.xlsx].[MTRL$] mat
>
>
> UNION ALL
>
>
> SELECT
>
> UCASE(work.[COMPANY NAME]) AS [COMPANY],
>
> work.[WO_ID],
>
> work.[DESCRIPTION],
>
> work.[AMOUNT]
>
> FROM [Y:\LOKASIFILE&#92;FILEKEDUA.xlsx].[WORK$] work
>
>
> )
>
> GROUP BY [COMPANY]
>
> '===========================
>
> Untuk menampilkan [Grand Total], saya biasanya menggunakan bantuan pivot
> table, tetapi bagaimanakah caranya untuk menampilkan grandtotal dengan
> GROUP BY WITH ROLLUP di SQL? ataukah ada cara lainnya ?
>
>
> Terimakasih,
>
> -zainul
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

7a

Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaa

Fri Jul 28, 2017 7:17 am (PDT) . Posted by:

"Odhy" odhyz83_assasaky

Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
setelah saya tekan tombol datanya masing kosong.

Terima Kasih atas pencerahannya,   Odhy.

On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Hai Odhy,
.zip filenya harus diextract dulu ke salah satu Dir, mis.D:
Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
Silakan dicoba lagi.
Salam,HK

Sent from Yahoo Mail on Android

On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
    Set objFs = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev")       ' THE PATH FOR THE FILES

Terima Kasih atas pencerahannya,   Odhy.

On ‎Friday‎, ‎July‎ ‎21‎, ‎2017‎ ‎10‎:‎55‎:‎31‎ ‎AM‎ ‎WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
 

Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK

On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
    Set objFs = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev")       ' THE PATH FOR THE FILES

Terima Kasih atas pencerahannya,   Odhy.

On ‎Friday‎, ‎July‎ ‎21‎, ‎2017‎ ‎10‎:‎55‎:‎31‎ ‎AM‎ ‎WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
 

Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK

#yiv3658414797 #yiv3658414797 -- #yiv3658414797ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3658414797 #yiv3658414797ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3658414797 #yiv3658414797ygrp-mkp #yiv3658414797hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3658414797 #yiv3658414797ygrp-mkp #yiv3658414797ads {margin-bottom:10px;}#yiv3658414797 #yiv3658414797ygrp-mkp .yiv3658414797ad {padding:0 0;}#yiv3658414797 #yiv3658414797ygrp-mkp .yiv3658414797ad p {margin:0;}#yiv3658414797 #yiv3658414797ygrp-mkp .yiv3658414797ad a {color:#0000ff;text-decoration:none;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ygrp-lc {font-family:Arial;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ygrp-lc #yiv3658414797hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ygrp-lc .yiv3658414797ad {margin-bottom:10px;padding:0 0;}#yiv3658414797 #yiv3658414797actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3658414797 #yiv3658414797activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3658414797 #yiv3658414797activity span {font-weight:700;}#yiv3658414797 #yiv3658414797activity span:first-child {text-transform:uppercase;}#yiv3658414797 #yiv3658414797activity span a {color:#5085b6;text-decoration:none;}#yiv3658414797 #yiv3658414797activity span span {color:#ff7900;}#yiv3658414797 #yiv3658414797activity span .yiv3658414797underline {text-decoration:underline;}#yiv3658414797 .yiv3658414797attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3658414797 .yiv3658414797attach div a {text-decoration:none;}#yiv3658414797 .yiv3658414797attach img {border:none;padding-right:5px;}#yiv3658414797 .yiv3658414797attach label {display:block;margin-bottom:5px;}#yiv3658414797 .yiv3658414797attach label a {text-decoration:none;}#yiv3658414797 blockquote {margin:0 0 0 4px;}#yiv3658414797 .yiv3658414797bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3658414797 .yiv3658414797bold a {text-decoration:none;}#yiv3658414797 dd.yiv3658414797last p a {font-family:Verdana;font-weight:700;}#yiv3658414797 dd.yiv3658414797last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3658414797 dd.yiv3658414797last p span.yiv3658414797yshortcuts {margin-right:0;}#yiv3658414797 div.yiv3658414797attach-table div div a {text-decoration:none;}#yiv3658414797 div.yiv3658414797attach-table {width:400px;}#yiv3658414797 div.yiv3658414797file-title a, #yiv3658414797 div.yiv3658414797file-title a:active, #yiv3658414797 div.yiv3658414797file-title a:hover, #yiv3658414797 div.yiv3658414797file-title a:visited {text-decoration:none;}#yiv3658414797 div.yiv3658414797photo-title a, #yiv3658414797 div.yiv3658414797photo-title a:active, #yiv3658414797 div.yiv3658414797photo-title a:hover, #yiv3658414797 div.yiv3658414797photo-title a:visited {text-decoration:none;}#yiv3658414797 div#yiv3658414797ygrp-mlmsg #yiv3658414797ygrp-msg p a span.yiv3658414797yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3658414797 .yiv3658414797green {color:#628c2a;}#yiv3658414797 .yiv3658414797MsoNormal {margin:0 0 0 0;}#yiv3658414797 o {font-size:0;}#yiv3658414797 #yiv3658414797photos div {float:left;width:72px;}#yiv3658414797 #yiv3658414797photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3658414797 #yiv3658414797photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3658414797 #yiv3658414797reco-category {font-size:77%;}#yiv3658414797 #yiv3658414797reco-desc {font-size:77%;}#yiv3658414797 .yiv3658414797replbq {margin:4px;}#yiv3658414797 #yiv3658414797ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3658414797 #yiv3658414797ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3658414797 #yiv3658414797ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3658414797 #yiv3658414797ygrp-mlmsg select, #yiv3658414797 input, #yiv3658414797 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3658414797 #yiv3658414797ygrp-mlmsg pre, #yiv3658414797 code {font:115% monospace;}#yiv3658414797 #yiv3658414797ygrp-mlmsg * {line-height:1.22em;}#yiv3658414797 #yiv3658414797ygrp-mlmsg #yiv3658414797logo {padding-bottom:10px;}#yiv3658414797 #yiv3658414797ygrp-msg p a {font-family:Verdana;}#yiv3658414797 #yiv3658414797ygrp-msg p#yiv3658414797attach-count span {color:#1E66AE;font-weight:700;}#yiv3658414797 #yiv3658414797ygrp-reco #yiv3658414797reco-head {color:#ff7900;font-weight:700;}#yiv3658414797 #yiv3658414797ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ov li a {font-size:130%;text-decoration:none;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3658414797 #yiv3658414797ygrp-sponsor #yiv3658414797ov ul {margin:0;padding:0 0 0 8px;}#yiv3658414797 #yiv3658414797ygrp-text {font-family:Georgia;}#yiv3658414797 #yiv3658414797ygrp-text p {margin:0 0 1em 0;}#yiv3658414797 #yiv3658414797ygrp-text tt {font-size:120%;}#yiv3658414797 #yiv3658414797ygrp-vital ul li:last-child {border-right:none !important;}#yiv3658414797

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

7b

Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaa

Fri Jul 28, 2017 8:06 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Odhy,
Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ?
Salam,Hk

Sent from Yahoo Mail on Android

On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
setelah saya tekan tombol datanya masing kosong.

Terima Kasih atas pencerahannya,   Odhy.

On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Hai Odhy,
.zip filenya harus diextract dulu ke salah satu Dir, mis.D:
Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
Silakan dicoba lagi.
Salam,HK

Sent from Yahoo Mail on Android

On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
    Set objFs = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev")       ' THE PATH FOR THE FILES

Terima Kasih atas pencerahannya,   Odhy.

On ‎Friday‎, ‎July‎ ‎21‎, ‎2017‎ ‎10‎:‎55‎:‎31‎ ‎AM‎ ‎WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
 

Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK

On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:  

Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
    Set objFs = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev")       ' THE PATH FOR THE FILES

Terima Kasih atas pencerahannya,   Odhy.

On ‎Friday‎, ‎July‎ ‎21‎, ‎2017‎ ‎10‎:‎55‎:‎31‎ ‎AM‎ ‎WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.

----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
 

Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK

#yiv9025404201 #yiv9025404201 -- #yiv9025404201ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9025404201 #yiv9025404201ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9025404201 #yiv9025404201ygrp-mkp #yiv9025404201hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9025404201 #yiv9025404201ygrp-mkp #yiv9025404201ads {margin-bottom:10px;}#yiv9025404201 #yiv9025404201ygrp-mkp .yiv9025404201ad {padding:0 0;}#yiv9025404201 #yiv9025404201ygrp-mkp .yiv9025404201ad p {margin:0;}#yiv9025404201 #yiv9025404201ygrp-mkp .yiv9025404201ad a {color:#0000ff;text-decoration:none;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ygrp-lc {font-family:Arial;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ygrp-lc #yiv9025404201hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ygrp-lc .yiv9025404201ad {margin-bottom:10px;padding:0 0;}#yiv9025404201 #yiv9025404201actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9025404201 #yiv9025404201activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9025404201 #yiv9025404201activity span {font-weight:700;}#yiv9025404201 #yiv9025404201activity span:first-child {text-transform:uppercase;}#yiv9025404201 #yiv9025404201activity span a {color:#5085b6;text-decoration:none;}#yiv9025404201 #yiv9025404201activity span span {color:#ff7900;}#yiv9025404201 #yiv9025404201activity span .yiv9025404201underline {text-decoration:underline;}#yiv9025404201 .yiv9025404201attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9025404201 .yiv9025404201attach div a {text-decoration:none;}#yiv9025404201 .yiv9025404201attach img {border:none;padding-right:5px;}#yiv9025404201 .yiv9025404201attach label {display:block;margin-bottom:5px;}#yiv9025404201 .yiv9025404201attach label a {text-decoration:none;}#yiv9025404201 blockquote {margin:0 0 0 4px;}#yiv9025404201 .yiv9025404201bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9025404201 .yiv9025404201bold a {text-decoration:none;}#yiv9025404201 dd.yiv9025404201last p a {font-family:Verdana;font-weight:700;}#yiv9025404201 dd.yiv9025404201last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9025404201 dd.yiv9025404201last p span.yiv9025404201yshortcuts {margin-right:0;}#yiv9025404201 div.yiv9025404201attach-table div div a {text-decoration:none;}#yiv9025404201 div.yiv9025404201attach-table {width:400px;}#yiv9025404201 div.yiv9025404201file-title a, #yiv9025404201 div.yiv9025404201file-title a:active, #yiv9025404201 div.yiv9025404201file-title a:hover, #yiv9025404201 div.yiv9025404201file-title a:visited {text-decoration:none;}#yiv9025404201 div.yiv9025404201photo-title a, #yiv9025404201 div.yiv9025404201photo-title a:active, #yiv9025404201 div.yiv9025404201photo-title a:hover, #yiv9025404201 div.yiv9025404201photo-title a:visited {text-decoration:none;}#yiv9025404201 div#yiv9025404201ygrp-mlmsg #yiv9025404201ygrp-msg p a span.yiv9025404201yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9025404201 .yiv9025404201green {color:#628c2a;}#yiv9025404201 .yiv9025404201MsoNormal {margin:0 0 0 0;}#yiv9025404201 o {font-size:0;}#yiv9025404201 #yiv9025404201photos div {float:left;width:72px;}#yiv9025404201 #yiv9025404201photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9025404201 #yiv9025404201photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9025404201 #yiv9025404201reco-category {font-size:77%;}#yiv9025404201 #yiv9025404201reco-desc {font-size:77%;}#yiv9025404201 .yiv9025404201replbq {margin:4px;}#yiv9025404201 #yiv9025404201ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9025404201 #yiv9025404201ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9025404201 #yiv9025404201ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9025404201 #yiv9025404201ygrp-mlmsg select, #yiv9025404201 input, #yiv9025404201 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9025404201 #yiv9025404201ygrp-mlmsg pre, #yiv9025404201 code {font:115% monospace;}#yiv9025404201 #yiv9025404201ygrp-mlmsg * {line-height:1.22em;}#yiv9025404201 #yiv9025404201ygrp-mlmsg #yiv9025404201logo {padding-bottom:10px;}#yiv9025404201 #yiv9025404201ygrp-msg p a {font-family:Verdana;}#yiv9025404201 #yiv9025404201ygrp-msg p#yiv9025404201attach-count span {color:#1E66AE;font-weight:700;}#yiv9025404201 #yiv9025404201ygrp-reco #yiv9025404201reco-head {color:#ff7900;font-weight:700;}#yiv9025404201 #yiv9025404201ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ov li a {font-size:130%;text-decoration:none;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9025404201 #yiv9025404201ygrp-sponsor #yiv9025404201ov ul {margin:0;padding:0 0 0 8px;}#yiv9025404201 #yiv9025404201ygrp-text {font-family:Georgia;}#yiv9025404201 #yiv9025404201ygrp-text p {margin:0 0 1em 0;}#yiv9025404201 #yiv9025404201ygrp-text tt {font-size:120%;}#yiv9025404201 #yiv9025404201ygrp-vital ul li:last-child {border-right:none !important;}#yiv9025404201

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

7c

Re: Mengcopy data dari banyak files dalam keadaan tertutup (seluruh

Fri Jul 28, 2017 9:43 am (PDT) . Posted by:

"rodhy hakim" odhyz83_assasaky

Dear Mr HK,
Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..

Dikirim dari iPhone saya

Pada 28 Jul 2017, pukul 23.02, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

> Hai Odhy,
>
> Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ?
>
> Salam,
> Hk
>
>
> Sent from Yahoo Mail on Android
>
> On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
> Dear Mr. Hendrik,
> Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)
> dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
>
> setelah saya tekan tombol datanya masing kosong.
>
>
>
> Terima Kasih atas pencerahannya, Odhy.
>
>
>
> On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Hai Odhy,
>
> .zip filenya harus diextract dulu ke salah satu Dir, mis.D:
>
> Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
>
> Silakan dicoba lagi.
>
> Salam,
> HK
>
>
>
> Sent from Yahoo Mail on Android
>
> On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
> Dear Mr. Hendrik,
> Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
>
> Set objFs = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
>
> Terima Kasih atas pencerahannya, Odhy.
>
>
>
> On ‎Friday‎, ‎July‎ ‎21‎, ‎2017‎ ‎10‎:‎55‎:‎31‎ ‎AM‎ ‎WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
>
>
> ----- Forwarded Message -----
> From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>
> To: BeExcel <belajar-excel@yahoogroups.com>
> Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7
> Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
>
>
> Dear Be-Excel,
>
> Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value.
> Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.
> Silakan diextract ke salah satu directory, mis. D:
>
> Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.
> Ilustrasinya adalah sebagai berikut :
> - Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.
> - Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
>
> Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
>
> Selamat mencoba dan silakan dikembangkan lebih lanjut.
>
> Salam,
> HK
>
>
>
> On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
> Dear Mr. Hendrik,
> Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
>
> Set objFs = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
>
> Terima Kasih atas pencerahannya, Odhy.
>
>
>
> On ‎Friday‎, ‎July‎ ‎21‎, ‎2017‎ ‎10‎:‎55‎:‎31‎ ‎AM‎ ‎WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
>
>
> ----- Forwarded Message -----
> From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>
> To: BeExcel <belajar-excel@yahoogroups.com>
> Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7
> Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
>
>
> Dear Be-Excel,
>
> Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value.
> Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.
> Silakan diextract ke salah satu directory, mis. D:
>
> Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.
> Ilustrasinya adalah sebagai berikut :
> - Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.
> - Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
>
> Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
>
> Selamat mencoba dan silakan dikembangkan lebih lanjut.
>
> Salam,
> HK
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

8

Cara Sortir Berjenjang

Fri Jul 28, 2017 8:24 am (PDT) . Posted by:

"Zerlinda Seismica" seismica

Assalamualaikum wrwb
Semoga bapak dan ibu diberi kesehatan dan kejernihan dalam berkreasi..malu untuk kesekian kalinya karena belum berkontribusi ikut rembug kasih solusi tapi malah kasih masalah..tapi Insya Allah solusi yang sudah sering dikasih ke saya dari bapak ibu saya share ketemen yang lain ditempat saya...
Rasanya sulit saya jelaskan disini tanpa melihat ke lampiran yang Insya Allah datanya terlihat sangat sederhana namun data yang diinginkan bentuknya terlihat jadi jelimet menurut...
Mohon maaf bapak ibu bisa buka lampiran saya dulu..semoga penjelasan dalam lampiran bisa lebih jelas
WassalamSeismica

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

============================================================
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

• New Members 10

• Privacy • Unsubscribe • Terms of Use