15 New Messages
Digest #1916
Messages
Sun Nov 18, 2012 10:53 pm (PST) . Posted by:
"the_x_mikey@yahoo.com" the_x_mikey
Lho kok, tanda & "dan" tidak muncul ya
Srngaddr = "$" "dan" sheets("sheet1").range("A1").value "dan" "$2"
Tetep ga bisa ya. Boleh tolong dicontohin
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 19 Nov 2012 12:17:56
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Select image didalam sebuah cell
Hi Mike,
>> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. untuk menyambung teks (concatenate) butuh ampersand
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
>> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital atau indeks nomor kolom Excel
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
Wassalam,
Kid.
2012/11/19 <the_x_mikey@yahoo.com >
> **
>
>
> ** Hi Mr Kid,
>
> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
> cell
>
> Saya ubah menjadi
> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
>
> Atau
>
> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
>
> Tapi ga bisa
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Sama-sama.
>
> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
> padahal masih di D1 atau malah C1.
>
> Wassalam,
> Kid.
>
> 2012/11/14 <the_x_mikey@yahoo.com >
>
>> **
>>
>>
>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>> disini. Thanks
>> ------------------------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>> *To: *<belajar-excel@yahoogroups.com >
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Coba dengan prosedur berikut :
>>
>> public sub SelectShapeAh()
>> dim shp as shape
>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>> lebih luwes
>>
>> srngaddr = "$D$2"
>> sheet1.activate
>> for each shp in sheet1.shapes
>> if shp.topleftcell.address=srngaddr then
>> shp.select
>> endif
>> next shp
>> end sub
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <the_x_mikey@yahoo.com >
>>
>>> **
>>>
>>>
>>> Hi all,
>>>
>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>> dalam suatu cell.
>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>> jika ingin men-select image yang ada di cell D2 saja?
>>>
>>> _
>>>
>>>
>>
>
>
Srngaddr = "$" "dan" sheets("sheet1"
Tetep ga bisa ya. Boleh tolong dicontohin
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Mon, 19 Nov 2012 12:17:56
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Select image didalam sebuah cell
Hi Mike,
>> Srngaddr = "$" sheets("sheet1"
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. untuk menyambung teks (concatenate) butuh ampersand
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
>> Srngaddr = cells(2,sheets(
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital atau indeks nomor kolom Excel
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
Wassalam,
Kid.
2012/11/19 <the_x_mikey@
> **
>
>
> ** Hi Mr Kid,
>
> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
> cell
>
> Saya ubah menjadi
> Srngaddr = "$" sheets("sheet1"
>
> Atau
>
> Srngaddr = cells(2,sheets(
>
> Tapi ga bisa
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Sama-sama.
>
> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
> padahal masih di D1 atau malah C1.
>
> Wassalam,
> Kid.
>
> 2012/11/14 <the_x_mikey@
>
>> **
>>
>>
>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>> disini. Thanks
>> ------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.
>> *Sender: * belajar-excel@
>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>> *To: *<belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Coba dengan prosedur berikut :
>>
>> public sub SelectShapeAh(
>> dim shp as shape
>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>> lebih luwes
>>
>> srngaddr = "$D$2"
>> sheet1.activate
>> for each shp in sheet1.shapes
>> if shp.topleftcell.
>> shp.select
>> endif
>> next shp
>> end sub
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <the_x_mikey@
>>
>>> **
>>>
>>>
>>> Hi all,
>>>
>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>> dalam suatu cell.
>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>> jika ingin men-select image yang ada di cell D2 saja?
>>>
>>> _
>>>
>>>
>>
>
>
Sun Nov 18, 2012 10:57 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
3. untuk menyambung teks (concatenate) butuh *ampersand*
Srngaddr = "$" & sheets("sheet1").range("A1").value & "$2"
>> kenapa nilai di A1 tapi hasilnya untuk baris 2 ya.. embuh lah... yang
tanya yang tahu duduk perkara dunia nyatanya.
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
Srngaddr = cells(2,sheets("sheet1").range("A1").value).address
Wassalam,
Kid.
2012/11/19 <the_x_mikey@yahoo.com >
> **
>
>
> ** Lho kok, tanda "dan" tidak muncul ya
>
>
> Srngaddr = "$" "dan" sheets("sheet1").range("A1").value "dan" "$2"
> Tetep ga bisa ya. Boleh tolong dicontohin
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 19 Nov 2012 12:17:56 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Hi Mike,
>
> >> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
> 1. sRngAddr kalau gak salah bertipe string
> 2. sRngAddr harus berisi teks alamat cell
> 3. untuk menyambung teks (concatenate) butuh ampersand
> 4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
> huruf kapital
> 5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
> sRngAddr
>
> >> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
> 1. sRngAddr kalau gak salah bertipe string
> 2. sRngAddr harus berisi teks alamat cell
> 3. Property Cells milik application adalah bertipe range, sehingga tidak
> mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
> 4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
> huruf kapital atau indeks nomor kolom Excel
> 5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
> sRngAddr
>
> Wassalam,
> Kid.
>
> 2012/11/19 <the_x_mikey@yahoo.com >
>
>> **
>>
>>
>> ** Hi Mr Kid,
>>
>> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
>> cell
>>
>> Saya ubah menjadi
>> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
>>
>> Atau
>>
>> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
>>
>> Tapi ga bisa
>> ------------------------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
>> *To: *<belajar-excel@yahoogroups.com >
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Sama-sama.
>>
>> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
>> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
>> padahal masih di D1 atau malah C1.
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <the_x_mikey@yahoo.com >
>>
>>> **
>>>
>>>
>>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>>> disini. Thanks
>>> ------------------------------
>>> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
>>> *Sender: * belajar-excel@yahoogroups.com
>>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>>> *To: *<belajar-excel@yahoogroups.com >
>>> *ReplyTo: * belajar-excel@yahoogroups.com
>>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>>
>>>
>>>
>>> Coba dengan prosedur berikut :
>>>
>>> public sub SelectShapeAh()
>>> dim shp as shape
>>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>>> lebih luwes
>>>
>>> srngaddr = "$D$2"
>>> sheet1.activate
>>> for each shp in sheet1.shapes
>>> if shp.topleftcell.address=srngaddr then
>>> shp.select
>>> endif
>>> next shp
>>> end sub
>>>
>>> Wassalam,
>>> Kid.
>>>
>>> 2012/11/14 <the_x_mikey@yahoo.com >
>>>
>>>> **
>>>>
>>>>
>>>> Hi all,
>>>>
>>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>>> dalam suatu cell.
>>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>>> jika ingin men-select image yang ada di cell D2 saja?
>>>>
>>>> _
>>>>
>>>>
>>>
>>
>
>
Srngaddr = "$" & sheets("sheet1"
>> kenapa nilai di A1 tapi hasilnya untuk baris 2 ya.. embuh lah... yang
tanya yang tahu duduk perkara dunia nyatanya.
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
Srngaddr = cells(2,sheets(
Wassalam,
Kid.
2012/11/19 <the_x_mikey@
> **
>
>
> ** Lho kok, tanda "dan" tidak muncul ya
>
>
> Srngaddr = "$" "dan" sheets("sheet1"
> Tetep ga bisa ya. Boleh tolong dicontohin
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Mon, 19 Nov 2012 12:17:56 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Hi Mike,
>
> >> Srngaddr = "$" sheets("sheet1"
> 1. sRngAddr kalau gak salah bertipe string
> 2. sRngAddr harus berisi teks alamat cell
> 3. untuk menyambung teks (concatenate) butuh ampersand
> 4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
> huruf kapital
> 5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
> sRngAddr
>
> >> Srngaddr = cells(2,sheets(
> 1. sRngAddr kalau gak salah bertipe string
> 2. sRngAddr harus berisi teks alamat cell
> 3. Property Cells milik application adalah bertipe range, sehingga tidak
> mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
> 4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
> huruf kapital atau indeks nomor kolom Excel
> 5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
> sRngAddr
>
> Wassalam,
> Kid.
>
> 2012/11/19 <the_x_mikey@
>
>> **
>>
>>
>> ** Hi Mr Kid,
>>
>> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
>> cell
>>
>> Saya ubah menjadi
>> Srngaddr = "$" sheets("sheet1"
>>
>> Atau
>>
>> Srngaddr = cells(2,sheets(
>>
>> Tapi ga bisa
>> ------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.
>> *Sender: * belajar-excel@
>> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
>> *To: *<belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Sama-sama.
>>
>> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
>> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
>> padahal masih di D1 atau malah C1.
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <the_x_mikey@
>>
>>> **
>>>
>>>
>>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>>> disini. Thanks
>>> ------------
>>> *From: * "Mr. Kid" <mr.nmkid@gmail.
>>> *Sender: * belajar-excel@
>>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>>> *To: *<belajar-excel@
>>> *ReplyTo: * belajar-excel@
>>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>>
>>>
>>>
>>> Coba dengan prosedur berikut :
>>>
>>> public sub SelectShapeAh(
>>> dim shp as shape
>>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>>> lebih luwes
>>>
>>> srngaddr = "$D$2"
>>> sheet1.activate
>>> for each shp in sheet1.shapes
>>> if shp.topleftcell.
>>> shp.select
>>> endif
>>> next shp
>>> end sub
>>>
>>> Wassalam,
>>> Kid.
>>>
>>> 2012/11/14 <the_x_mikey@
>>>
>>>> **
>>>>
>>>>
>>>> Hi all,
>>>>
>>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>>> dalam suatu cell.
>>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>>> jika ingin men-select image yang ada di cell D2 saja?
>>>>
>>>> _
>>>>
>>>>
>>>
>>
>
>
Mon Nov 19, 2012 1:48 am (PST) . Posted by:
"the_x_mikey@yahoo.com" the_x_mikey
Daritadi saya ngetik tanda ampersand di email ini ga muncul2.
Code nya berjalan dengan baik, tq dan sori kalo njelimet
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 19 Nov 2012 13:57:35
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Select image didalam sebuah cell
3. untuk menyambung teks (concatenate) butuh *ampersand*
Srngaddr = "$" & sheets("sheet1").range("A1").value & "$2"
>> kenapa nilai di A1 tapi hasilnya untuk baris 2 ya.. embuh lah... yang
tanya yang tahu duduk perkara dunia nyatanya.
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
Srngaddr = cells(2,sheets("sheet1").range("A1").value).address
Wassalam,
Kid.
2012/11/19 <the_x_mikey@yahoo.com >
> **
>
>
> ** Lho kok, tanda "dan" tidak muncul ya
>
>
> Srngaddr = "$" "dan" sheets("sheet1").range("A1").value "dan" "$2"
> Tetep ga bisa ya. Boleh tolong dicontohin
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 19 Nov 2012 12:17:56 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Hi Mike,
>
> >> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
> 1. sRngAddr kalau gak salah bertipe string
> 2. sRngAddr harus berisi teks alamat cell
> 3. untuk menyambung teks (concatenate) butuh ampersand
> 4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
> huruf kapital
> 5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
> sRngAddr
>
> >> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
> 1. sRngAddr kalau gak salah bertipe string
> 2. sRngAddr harus berisi teks alamat cell
> 3. Property Cells milik application adalah bertipe range, sehingga tidak
> mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
> 4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
> huruf kapital atau indeks nomor kolom Excel
> 5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
> sRngAddr
>
> Wassalam,
> Kid.
>
> 2012/11/19 <the_x_mikey@yahoo.com >
>
>> **
>>
>>
>> ** Hi Mr Kid,
>>
>> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
>> cell
>>
>> Saya ubah menjadi
>> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
>>
>> Atau
>>
>> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
>>
>> Tapi ga bisa
>> ------------------------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
>> *To: *<belajar-excel@yahoogroups.com >
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Sama-sama.
>>
>> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
>> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
>> padahal masih di D1 atau malah C1.
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <the_x_mikey@yahoo.com >
>>
>>> **
>>>
>>>
>>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>>> disini. Thanks
>>> ------------------------------
>>> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
>>> *Sender: * belajar-excel@yahoogroups.com
>>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>>> *To: *<belajar-excel@yahoogroups.com >
>>> *ReplyTo: * belajar-excel@yahoogroups.com
>>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>>
>>>
>>>
>>> Coba dengan prosedur berikut :
>>>
>>> public sub SelectShapeAh()
>>> dim shp as shape
>>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>>> lebih luwes
>>>
>>> srngaddr = "$D$2"
>>> sheet1.activate
>>> for each shp in sheet1.shapes
>>> if shp.topleftcell.address=srngaddr then
>>> shp.select
>>> endif
>>> next shp
>>> end sub
>>>
>>> Wassalam,
>>> Kid.
>>>
>>> 2012/11/14 <the_x_mikey@yahoo.com >
>>>
>>>> **
>>>>
>>>>
>>>> Hi all,
>>>>
>>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>>> dalam suatu cell.
>>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>>> jika ingin men-select image yang ada di cell D2 saja?
>>>>
>>>> _
>>>>
>>>>
>>>
>>
>
>
Code nya berjalan dengan baik, tq dan sori kalo njelimet
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Mon, 19 Nov 2012 13:57:35
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Select image didalam sebuah cell
3. untuk menyambung teks (concatenate) butuh *ampersand*
Srngaddr = "$" & sheets("sheet1"
>> kenapa nilai di A1 tapi hasilnya untuk baris 2 ya.. embuh lah... yang
tanya yang tahu duduk perkara dunia nyatanya.
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
Srngaddr = cells(2,sheets(
Wassalam,
Kid.
2012/11/19 <the_x_mikey@
> **
>
>
> ** Lho kok, tanda "dan" tidak muncul ya
>
>
> Srngaddr = "$" "dan" sheets("sheet1"
> Tetep ga bisa ya. Boleh tolong dicontohin
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Mon, 19 Nov 2012 12:17:56 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Hi Mike,
>
> >> Srngaddr = "$" sheets("sheet1"
> 1. sRngAddr kalau gak salah bertipe string
> 2. sRngAddr harus berisi teks alamat cell
> 3. untuk menyambung teks (concatenate) butuh ampersand
> 4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
> huruf kapital
> 5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
> sRngAddr
>
> >> Srngaddr = cells(2,sheets(
> 1. sRngAddr kalau gak salah bertipe string
> 2. sRngAddr harus berisi teks alamat cell
> 3. Property Cells milik application adalah bertipe range, sehingga tidak
> mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
> 4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
> huruf kapital atau indeks nomor kolom Excel
> 5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
> sRngAddr
>
> Wassalam,
> Kid.
>
> 2012/11/19 <the_x_mikey@
>
>> **
>>
>>
>> ** Hi Mr Kid,
>>
>> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
>> cell
>>
>> Saya ubah menjadi
>> Srngaddr = "$" sheets("sheet1"
>>
>> Atau
>>
>> Srngaddr = cells(2,sheets(
>>
>> Tapi ga bisa
>> ------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.
>> *Sender: * belajar-excel@
>> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
>> *To: *<belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Sama-sama.
>>
>> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
>> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
>> padahal masih di D1 atau malah C1.
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <the_x_mikey@
>>
>>> **
>>>
>>>
>>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>>> disini. Thanks
>>> ------------
>>> *From: * "Mr. Kid" <mr.nmkid@gmail.
>>> *Sender: * belajar-excel@
>>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>>> *To: *<belajar-excel@
>>> *ReplyTo: * belajar-excel@
>>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>>
>>>
>>>
>>> Coba dengan prosedur berikut :
>>>
>>> public sub SelectShapeAh(
>>> dim shp as shape
>>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>>> lebih luwes
>>>
>>> srngaddr = "$D$2"
>>> sheet1.activate
>>> for each shp in sheet1.shapes
>>> if shp.topleftcell.
>>> shp.select
>>> endif
>>> next shp
>>> end sub
>>>
>>> Wassalam,
>>> Kid.
>>>
>>> 2012/11/14 <the_x_mikey@
>>>
>>>> **
>>>>
>>>>
>>>> Hi all,
>>>>
>>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>>> dalam suatu cell.
>>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>>> jika ingin men-select image yang ada di cell D2 saja?
>>>>
>>>> _
>>>>
>>>>
>>>
>>
>
>
Mon Nov 19, 2012 12:04 am (PST) . Posted by:
"Jan Raisin"
pak Lukman,
untuk yang SumProduct masih menjadi PR untuk Jan, karena formula yang
digunakan adalah SumProduct jalan sesat xixixixi :D (maksudnya cara
penulisannya menyimpang dari syntax yang asli, cara penulisan seperti itu
adalah hasil pengembangan dari para pengguna Excel dan berjalan dengan baik
di worksheet, Jan belum pernah menggunakannya di VBA.
untuk yang Index
'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
Range("L34")), 17, 3, 0)
coba pak Lukman pindahkan cara penulisan tersebut ke formula bar di
worksheet, nanti pak Lukman akan mengetahui di mana letak salahnya
begitu pula untuk yang VLookUp silakan dipindah ke formula bar di
worksheet, maka pak Lukman akan tahu letak salahnya.
'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
(Range(Range("F2"), Range("F34"))), 4, False)
'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
(Sum_T), 4, False)
'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
Range(Sum_T), 4, False)
perhatikan syntax penulisan masing-masing formula sebelum dipindahkan ke
VBA.
Intinya adalah, sebelum memindahkan formula ke VBA, formula tersebut harus
dicoba di worksheet dan menghasilkan nilai yang sesuai, jika masih muncul
error maka tidak akan berjalan dengan baik di VBA.
best regard,
Jan Raisin
Pada 19 November 2012 13:33, lkm jktind <lkmjktind@gmail.com > menulis:
> **
>
>
> Pak Jan.
>
> Masih belum bisa ?
> Yang berwarna biru.
>
>
>
> Option Explicit
> Sub coba_function()
> Dim Sum_T As Range
> Dim Sum_J As Range
> Dim Sum_N As Range
>
> Set Sum_T = Range("F2:F34")
> Set Sum_J = Range("G1:L1")
> Set Sum_N = Range("G2:L34")
>
> Range("R3").Formula = "=I2+I3"
> Range("R4").Formula = "=SUM(I2:I34)"
> Range("R15").Formula = "=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))"
> Range("R16").Formula =
> "=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))"
> Range("R17").Formula =
> "=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)"
>
> Range("U3").Value = Evaluate("=I2+I3")
> Range("U4").Value = Evaluate("=SUM(I2:I34)")
> Range("U15").Value =
> Evaluate("=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))")
> Range("U16").Value =
> Evaluate("=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))")
> Range("U17").Value =
> Evaluate("=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)")
>
> Range("S4") = Application.WorksheetFunction.Sum(Range(Range("I2"),
> Range("I34")))
> Range("T4") = Application.WorksheetFunction.Sum(Sum_N)
>
> 'Range("S15") =
> Application.WorksheetFunction.SumProduct((Range(Range("F2"), Range("F34"))
> = Range("N16")) * (Range(Range("G1"), Range("L1")) = Range("O16")) *
> Range(Range("G2"), Range("L34")))
> 'Range("T15") = Application.WorksheetFunction.SumProduct((Sum_T =
> Range("N16")) * (Sum_J = Range("O16")) * (Sum_N))
> 'Range("U15") = Application.WorksheetFunction.SumProduct((Range(Sum_T) =
> Range("N16")) * (Range(Sum_J) = Range("O16")) * (Range(Sum_N)))
> 'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
> Range("L34")), 17, 3, 0)
> 'Range("T16") = Application.WorksheetFunction.Index(
> 'Range("U16") = Application.WorksheetFunction.Index(
> 'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
> (Range(Range("F2"), Range("F34"))), 4, False)
> 'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
> (Sum_T), 4, False)
> 'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
> Range(Sum_T), 4, False)
>
> Range("S18") = Application.WorksheetFunction.Match(Range("N16"),
> Range(Range("F2"), Range("F34")), 0)
> Range("T18") = Application.WorksheetFunction.Match(Range("O16"),
> Range(Range("G1"), Range("L1")), 0)
>
> End Sub
>
> Salam
>
> Lukman
>
>
>
> 2012/11/19 Jan Raisin <miss.jan.raisin@gmail.com >
>
>> **
>>
>>
>> Dear BeExceler,
>>
>> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
>> cara-cara seperti berikut:
>>
>> 1. Menggunakan fungsi Evaluate
>> contoh: Cells(1,1).value = Evaluate("
>> =ini_formula_panjang_dari_worksheet_yang_dipindah_ke_VBA")
>> perhatikan cara penulisannya
>> a. formula dari worksheet diapit dengan tanda buka_kurung dan
>> kutip_dua, lalu ditutup dengan tanda kutip_dua dan tutup_kurung
>> b. formula dari worksheet ditulis mulai dari tanda sama_dengan sampai
>> akhir
>> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula di
>> tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
>> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
>> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
>> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>>
>> 2. Memanfaatkan fungsi Application.WorkSheetFunction.nama_fungsinya
>> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
>> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
>> menulis tanda titik setelah syntax Application.WorksheetsFunction
>> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
>> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
>> di dalam workheet
>> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
>> dalam worksheet
>> a. menunjuk cell menggunakan fungsi Cells
>> syntax-nya adalah Cells(nomer_baris , nomer_kolom)
>> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di baris
>> 2 dan kolom 3 atau disebut cell C3
>> cara tersebut hanya berlaku untuk menunjuk pada cell yang
>> tereletak pada workbook yang aktif dan worksheet yang aktif
>> jika cell yang ingin ditunjuk terletak pada workbook lain dan/atau
>> wroksheet lain maka cara menunjuknya selalu melalui hierarki yang lebih
>> tinggi
>> contoh: Workbooks("DataPenjualan2012").WorkSheets("Database").Cells(2
>> , 3)
>> b. Menunjuk cell dan range menggunakan fungsi Range
>> 1). Menunjuk sebuah cell
>> contoh: Range("A2") artinya menunjuk kepada sebuah cell yang
>> bernama cell A2
>> 2). Menunjuk beberapa buah cell yang berhimpitan
>> contoh: Range("A2:C3") artinya menunjuk kepada beberapa buah
>> cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2, A3,
>> B2, B3, C2, dan C3
>> 3). Menunjuk beberapa cell yang tidak berhimpitan
>> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell A2,
>> C3, dan E5 yang letaknya tidak saling berhimpit
>> 4). Menunjuk sebuah kolom
>> contoh: Range ("A:A") artinya menunjuk seluruh cell di dalam
>> kolom A
>> 5). Menunjuk beberapa kolom yang saling berhimpit
>> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
>> dari kolom A sampai E
>> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
>> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh cell
>> di dalam kolom A, kolom C, dan kolom E
>> selain dengan menunjuk langsung alamat cell atau range,
>> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
>> dilipih
>> contoh:
>> Option Explicit
>> Sub Tes()
>> Dim Pilihan As Range
>> Set Pilihan = Range("A:A, C:C, E:E")
>> Pilihan.Select
>> End Sub
>> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi Range
>> syntax dari Range adalah Range(alamat_cell_awal ,
>> alamat_cell_akhir)
>> contoh: Range(Range("A1") , Range("E5"))
>> atau
>> Range(Cells(1,1) , Cells(5,5))
>> kedua script di atas akan menunjuk kepada suatu range mulai
>> dari cell A1 sampai dengan cell E5
>>
>> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
>> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
>> digunakan oleh pak Lukman?
>>
>> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>>
>> Best Regard,
>>
>> Miss Jan Raisin
>>
>>
>> 2012/11/17 lkm jktind <lkmjktind@gmail.com >
>>
>>> **
>>>
>>>
>>> Bagaimana cara penulisannya di macro excel :
>>> dengan contoh di bawah ini :
>>>
>>> Sumproduct(("$A$2:$A$36000"=$A25)*(("$D$1:$AB$1=F$)*($D$2:$AB$36000)
>>> Index($D$2:$AB$36000;match("$A$2:$A$36000";$A25); match("$D$1:$AB$1;F$))
>>> Hloopup= (F$1;$D$1:$D$3600;Match($A$1:$A$3600;$A25);0)
>>>
>>>
>>> Cells(r,5) = application.worksheetfunction.sumproduct(
>>> Cells(r,6) = application.worksheetfunction.Index(
>>> Cells(r,7) = application.worksheetfunction.Hlookup(
>>>
>>>
>>>
>>> Salam
>>>
>>>
>>> Lukman.
>>>
>>>
>>>
>>> nb : maaf nga begitu bisa bahasa inggris.
>>>
>>>
>>
>
>
untuk yang SumProduct masih menjadi PR untuk Jan, karena formula yang
digunakan adalah SumProduct jalan sesat xixixixi :D (maksudnya cara
penulisannya menyimpang dari syntax yang asli, cara penulisan seperti itu
adalah hasil pengembangan dari para pengguna Excel dan berjalan dengan baik
di worksheet, Jan belum pernah menggunakannya di VBA.
untuk yang Index
'Range("S16"
Range("L34")
coba pak Lukman pindahkan cara penulisan tersebut ke formula bar di
worksheet, nanti pak Lukman akan mengetahui di mana letak salahnya
begitu pula untuk yang VLookUp silakan dipindah ke formula bar di
worksheet, maka pak Lukman akan tahu letak salahnya.
'Range("S17"
(Range(Range(
'Range("T17"
(Sum_T), 4, False)
'Range("U17"
Range(Sum_T)
perhatikan syntax penulisan masing-masing formula sebelum dipindahkan ke
VBA.
Intinya adalah, sebelum memindahkan formula ke VBA, formula tersebut harus
dicoba di worksheet dan menghasilkan nilai yang sesuai, jika masih muncul
error maka tidak akan berjalan dengan baik di VBA.
best regard,
Jan Raisin
Pada 19 November 2012 13:33, lkm jktind <lkmjktind@gmail.
> **
>
>
> Pak Jan.
>
> Masih belum bisa ?
> Yang berwarna biru.
>
>
>
> Option Explicit
> Sub coba_function(
> Dim Sum_T As Range
> Dim Sum_J As Range
> Dim Sum_N As Range
>
> Set Sum_T = Range("F2:F34"
> Set Sum_J = Range("G1:L1"
> Set Sum_N = Range("G2:L34"
>
> Range("R3").
> Range("R4").
> Range("R15")
> Range("R16")
> "=INDEX($G$2:
> Range("R17")
> "=VLOOKUP($N$
>
> Range("U3").
> Range("U4").
> Range("U15")
> Evaluate("=SUMPRODU
> Range("U16")
> Evaluate("=INDEX(
> Range("U17")
> Evaluate("=VLOOKUP(
>
> Range("S4") = Application.
> Range("I34")
> Range("T4") = Application.
>
> 'Range("S15"
> Application.
> = Range("N16")
> Range(Range(
> 'Range("T15"
> Range("N16")
> 'Range("U15"
> Range("N16")
> 'Range("S16"
> Range("L34")
> 'Range("T16"
> 'Range("U16"
> 'Range("S17"
> (Range(Range(
> 'Range("T17"
> (Sum_T), 4, False)
> 'Range("U17"
> Range(Sum_T)
>
> Range("S18") = Application.
> Range(Range(
> Range("T18") = Application.
> Range(Range(
>
> End Sub
>
> Salam
>
> Lukman
>
>
>
> 2012/11/19 Jan Raisin <miss.jan.raisin@
>
>> **
>>
>>
>> Dear BeExceler,
>>
>> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
>> cara-cara seperti berikut:
>>
>> 1. Menggunakan fungsi Evaluate
>> contoh: Cells(1,1).value = Evaluate("
>> =ini_formula_
>> perhatikan cara penulisannya
>> a. formula dari worksheet diapit dengan tanda buka_kurung dan
>> kutip_dua, lalu ditutup dengan tanda kutip_dua dan tutup_kurung
>> b. formula dari worksheet ditulis mulai dari tanda sama_dengan sampai
>> akhir
>> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula di
>> tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
>> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
>> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
>> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>>
>> 2. Memanfaatkan fungsi Application.
>> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
>> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
>> menulis tanda titik setelah syntax Application.
>> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
>> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
>> di dalam workheet
>> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
>> dalam worksheet
>> a. menunjuk cell menggunakan fungsi Cells
>> syntax-nya adalah Cells(nomer_
>> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di baris
>> 2 dan kolom 3 atau disebut cell C3
>> cara tersebut hanya berlaku untuk menunjuk pada cell yang
>> tereletak pada workbook yang aktif dan worksheet yang aktif
>> jika cell yang ingin ditunjuk terletak pada workbook lain dan/atau
>> wroksheet lain maka cara menunjuknya selalu melalui hierarki yang lebih
>> tinggi
>> contoh: Workbooks("DataPenj
>> , 3)
>> b. Menunjuk cell dan range menggunakan fungsi Range
>> 1). Menunjuk sebuah cell
>> contoh: Range("A2") artinya menunjuk kepada sebuah cell yang
>> bernama cell A2
>> 2). Menunjuk beberapa buah cell yang berhimpitan
>> contoh: Range("A2:C3"
>> cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2, A3,
>> B2, B3, C2, dan C3
>> 3). Menunjuk beberapa cell yang tidak berhimpitan
>> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell A2,
>> C3, dan E5 yang letaknya tidak saling berhimpit
>> 4). Menunjuk sebuah kolom
>> contoh: Range ("A:A") artinya menunjuk seluruh cell di dalam
>> kolom A
>> 5). Menunjuk beberapa kolom yang saling berhimpit
>> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
>> dari kolom A sampai E
>> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
>> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh cell
>> di dalam kolom A, kolom C, dan kolom E
>> selain dengan menunjuk langsung alamat cell atau range,
>> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
>> dilipih
>> contoh:
>> Option Explicit
>> Sub Tes()
>> Dim Pilihan As Range
>> Set Pilihan = Range("A:A, C:C, E:E")
>> Pilihan.Select
>> End Sub
>> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi Range
>> syntax dari Range adalah Range(alamat_
>> alamat_cell_
>> contoh: Range(Range(
>> atau
>> Range(Cells(
>> kedua script di atas akan menunjuk kepada suatu range mulai
>> dari cell A1 sampai dengan cell E5
>>
>> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
>> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
>> digunakan oleh pak Lukman?
>>
>> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>>
>> Best Regard,
>>
>> Miss Jan Raisin
>>
>>
>> 2012/11/17 lkm jktind <lkmjktind@gmail.
>>
>>> **
>>>
>>>
>>> Bagaimana cara penulisannya di macro excel :
>>> dengan contoh di bawah ini :
>>>
>>> Sumproduct((
>>> Index($D$2:$
>>> Hloopup= (F$1;$D$1:$D$
>>>
>>>
>>> Cells(r,5) = application.
>>> Cells(r,6) = application.
>>> Cells(r,7) = application.
>>>
>>>
>>>
>>> Salam
>>>
>>>
>>> Lukman.
>>>
>>>
>>>
>>> nb : maaf nga begitu bisa bahasa inggris.
>>>
>>>
>>
>
>
Mon Nov 19, 2012 1:27 am (PST) . Posted by:
"Jan Raisin"
pak Lukman,
untuk yang SumProduct, ini Jan kutip dari help-nya VBA
- The array arguments must have the same dimensions. If they do not,
SUMPRODUCT returns the #VALUE! error value.
sebelumnya Jan telah sebutkan bahwa formula SumProduct yang dipergunakan
oleh pak Lukman adalah SumProduct jalan sesat (kalo mr Kid bilang itu
SumProduct jalan lurus, hanya saja yang mempelajarinya bisa tersesat
xixixixi :D, kini Jan paham maksud dari mr Kid tersebut :D)
kenapa disebut SumProduct jalan sesat? karena cara penulisannya menyimpang
dari Syntaxt yang seharusnya, jadi error muncul karena:
1. cara penulisan menyimpang dari syntax, karena itu adalah pengembangan
dari para pengguna Excel, yang dapat berjalan di worksheet tetapi belum
tentu dapat berjalan di VBA, dari sini akan muncul debug
2. dimensi array yang digunakan berbeda antara 1 kriteria dengan kriteria
yang lain, dari sini akan muncul error
solusi lain untuk kasus ini adalah penggunaan fungsi Sum atau yang sejenis
dengan melakukan pengujian terhadap semua cell dalam data (diperlukan Loop
dalam kasus ini)
yang harus diingat adalah, bahwa tidak semua fungsi di worksheet dapat
digunakan di VBA
cmmiw (colek mi if ayem wrong)
-miss Jan Raisin-
Pada 19 November 2012 15:04, Jan Raisin <miss.jan.raisin@gmail.com > menulis:
> pak Lukman,
>
> untuk yang SumProduct masih menjadi PR untuk Jan, karena formula yang
> digunakan adalah SumProduct jalan sesat xixixixi :D (maksudnya cara
> penulisannya menyimpang dari syntax yang asli, cara penulisan seperti itu
> adalah hasil pengembangan dari para pengguna Excel dan berjalan dengan baik
> di worksheet, Jan belum pernah menggunakannya di VBA.
>
> untuk yang Index
> 'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
> Range("L34")), 17, 3, 0)
> coba pak Lukman pindahkan cara penulisan tersebut ke formula bar di
> worksheet, nanti pak Lukman akan mengetahui di mana letak salahnya
>
> begitu pula untuk yang VLookUp silakan dipindah ke formula bar di
> worksheet, maka pak Lukman akan tahu letak salahnya.
> 'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
> (Range(Range("F2"), Range("F34"))), 4, False)
> 'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
> (Sum_T), 4, False)
> 'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
> Range(Sum_T), 4, False)
>
> perhatikan syntax penulisan masing-masing formula sebelum dipindahkan ke
> VBA.
>
> Intinya adalah, sebelum memindahkan formula ke VBA, formula tersebut harus
> dicoba di worksheet dan menghasilkan nilai yang sesuai, jika masih muncul
> error maka tidak akan berjalan dengan baik di VBA.
>
> best regard,
>
> Jan Raisin
>
>
> Pada 19 November 2012 13:33, lkm jktind <lkmjktind@gmail.com > menulis:
>
> **
>>
>>
>> Pak Jan.
>>
>> Masih belum bisa ?
>> Yang berwarna biru.
>>
>>
>>
>> Option Explicit
>> Sub coba_function()
>> Dim Sum_T As Range
>> Dim Sum_J As Range
>> Dim Sum_N As Range
>>
>> Set Sum_T = Range("F2:F34")
>> Set Sum_J = Range("G1:L1")
>> Set Sum_N = Range("G2:L34")
>>
>> Range("R3").Formula = "=I2+I3"
>> Range("R4").Formula = "=SUM(I2:I34)"
>> Range("R15").Formula = "=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))"
>> Range("R16").Formula =
>> "=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))"
>> Range("R17").Formula =
>> "=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)"
>>
>> Range("U3").Value = Evaluate("=I2+I3")
>> Range("U4").Value = Evaluate("=SUM(I2:I34)")
>> Range("U15").Value =
>> Evaluate("=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))")
>> Range("U16").Value =
>> Evaluate("=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))")
>> Range("U17").Value =
>> Evaluate("=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)")
>>
>> Range("S4") = Application.WorksheetFunction.Sum(Range(Range("I2"),
>> Range("I34")))
>> Range("T4") = Application.WorksheetFunction.Sum(Sum_N)
>>
>> 'Range("S15") =
>> Application.WorksheetFunction.SumProduct((Range(Range("F2"), Range("F34"))
>> = Range("N16")) * (Range(Range("G1"), Range("L1")) = Range("O16")) *
>> Range(Range("G2"), Range("L34")))
>> 'Range("T15") = Application.WorksheetFunction.SumProduct((Sum_T =
>> Range("N16")) * (Sum_J = Range("O16")) * (Sum_N))
>> 'Range("U15") = Application.WorksheetFunction.SumProduct((Range(Sum_T) =
>> Range("N16")) * (Range(Sum_J) = Range("O16")) * (Range(Sum_N)))
>> 'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
>> Range("L34")), 17, 3, 0)
>> 'Range("T16") = Application.WorksheetFunction.Index(
>> 'Range("U16") = Application.WorksheetFunction.Index(
>> 'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
>> (Range(Range("F2"), Range("F34"))), 4, False)
>> 'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
>> (Sum_T), 4, False)
>> 'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
>> Range(Sum_T), 4, False)
>>
>> Range("S18") = Application.WorksheetFunction.Match(Range("N16"),
>> Range(Range("F2"), Range("F34")), 0)
>> Range("T18") = Application.WorksheetFunction.Match(Range("O16"),
>> Range(Range("G1"), Range("L1")), 0)
>>
>> End Sub
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>> 2012/11/19 Jan Raisin <miss.jan.raisin@gmail.com >
>>
>>> **
>>>
>>>
>>> Dear BeExceler,
>>>
>>> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
>>> cara-cara seperti berikut:
>>>
>>> 1. Menggunakan fungsi Evaluate
>>> contoh: Cells(1,1).value = Evaluate("
>>> =ini_formula_panjang_dari_worksheet_yang_dipindah_ke_VBA")
>>> perhatikan cara penulisannya
>>> a. formula dari worksheet diapit dengan tanda buka_kurung dan
>>> kutip_dua, lalu ditutup dengan tanda kutip_dua dan tutup_kurung
>>> b. formula dari worksheet ditulis mulai dari tanda sama_dengan
>>> sampai akhir
>>> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula
>>> di tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
>>> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
>>> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
>>> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>>>
>>> 2. Memanfaatkan fungsi Application.WorkSheetFunction.nama_fungsinya
>>> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
>>> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
>>> menulis tanda titik setelah syntax Application.WorksheetsFunction
>>> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
>>> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
>>> di dalam workheet
>>> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
>>> dalam worksheet
>>> a. menunjuk cell menggunakan fungsi Cells
>>> syntax-nya adalah Cells(nomer_baris , nomer_kolom)
>>> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di
>>> baris 2 dan kolom 3 atau disebut cell C3
>>> cara tersebut hanya berlaku untuk menunjuk pada cell yang
>>> tereletak pada workbook yang aktif dan worksheet yang aktif
>>> jika cell yang ingin ditunjuk terletak pada workbook lain
>>> dan/atau wroksheet lain maka cara menunjuknya selalu melalui hierarki yang
>>> lebih tinggi
>>> contoh: Workbooks("DataPenjualan2012").WorkSheets("Database").Cells(2
>>> , 3)
>>> b. Menunjuk cell dan range menggunakan fungsi Range
>>> 1). Menunjuk sebuah cell
>>> contoh: Range("A2") artinya menunjuk kepada sebuah cell
>>> yang bernama cell A2
>>> 2). Menunjuk beberapa buah cell yang berhimpitan
>>> contoh: Range("A2:C3") artinya menunjuk kepada beberapa
>>> buah cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2,
>>> A3, B2, B3, C2, dan C3
>>> 3). Menunjuk beberapa cell yang tidak berhimpitan
>>> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell
>>> A2, C3, dan E5 yang letaknya tidak saling berhimpit
>>> 4). Menunjuk sebuah kolom
>>> contoh: Range ("A:A") artinya menunjuk seluruh cell di
>>> dalam kolom A
>>> 5). Menunjuk beberapa kolom yang saling berhimpit
>>> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
>>> dari kolom A sampai E
>>> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
>>> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh
>>> cell di dalam kolom A, kolom C, dan kolom E
>>> selain dengan menunjuk langsung alamat cell atau range,
>>> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
>>> dilipih
>>> contoh:
>>> Option Explicit
>>> Sub Tes()
>>> Dim Pilihan As Range
>>> Set Pilihan = Range("A:A, C:C, E:E")
>>> Pilihan.Select
>>> End Sub
>>> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi
>>> Range
>>> syntax dari Range adalah Range(alamat_cell_awal ,
>>> alamat_cell_akhir)
>>> contoh: Range(Range("A1") , Range("E5"))
>>> atau
>>> Range(Cells(1,1) , Cells(5,5))
>>> kedua script di atas akan menunjuk kepada suatu range mulai
>>> dari cell A1 sampai dengan cell E5
>>>
>>> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
>>> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
>>> digunakan oleh pak Lukman?
>>>
>>> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>>>
>>> Best Regard,
>>>
>>> Miss Jan Raisin
>>>
>>>
>>> 2012/11/17 lkm jktind <lkmjktind@gmail.com >
>>>
>>>> **
>>>>
>>>>
>>>> Bagaimana cara penulisannya di macro excel :
>>>> dengan contoh di bawah ini :
>>>>
>>>> Sumproduct(("$A$2:$A$36000"=$A25)*(("$D$1:$AB$1=F$)*($D$2:$AB$36000)
>>>> Index($D$2:$AB$36000;match("$A$2:$A$36000";$A25); match("$D$1:$AB$1;F$))
>>>> Hloopup= (F$1;$D$1:$D$3600;Match($A$1:$A$3600;$A25);0)
>>>>
>>>>
>>>> Cells(r,5) = application.worksheetfunction.sumproduct(
>>>> Cells(r,6) = application.worksheetfunction.Index(
>>>> Cells(r,7) = application.worksheetfunction.Hlookup(
>>>>
>>>>
>>>>
>>>> Salam
>>>>
>>>>
>>>> Lukman.
>>>>
>>>>
>>>>
>>>> nb : maaf nga begitu bisa bahasa inggris.
>>>>
>>>>
>>>
>>
>>
>
>
untuk yang SumProduct, ini Jan kutip dari help-nya VBA
- The array arguments must have the same dimensions. If they do not,
SUMPRODUCT returns the #VALUE! error value.
sebelumnya Jan telah sebutkan bahwa formula SumProduct yang dipergunakan
oleh pak Lukman adalah SumProduct jalan sesat (kalo mr Kid bilang itu
SumProduct jalan lurus, hanya saja yang mempelajarinya bisa tersesat
xixixixi :D, kini Jan paham maksud dari mr Kid tersebut :D)
kenapa disebut SumProduct jalan sesat? karena cara penulisannya menyimpang
dari Syntaxt yang seharusnya, jadi error muncul karena:
1. cara penulisan menyimpang dari syntax, karena itu adalah pengembangan
dari para pengguna Excel, yang dapat berjalan di worksheet tetapi belum
tentu dapat berjalan di VBA, dari sini akan muncul debug
2. dimensi array yang digunakan berbeda antara 1 kriteria dengan kriteria
yang lain, dari sini akan muncul error
solusi lain untuk kasus ini adalah penggunaan fungsi Sum atau yang sejenis
dengan melakukan pengujian terhadap semua cell dalam data (diperlukan Loop
dalam kasus ini)
yang harus diingat adalah, bahwa tidak semua fungsi di worksheet dapat
digunakan di VBA
cmmiw (colek mi if ayem wrong)
-miss Jan Raisin-
Pada 19 November 2012 15:04, Jan Raisin <miss.jan.raisin@
> pak Lukman,
>
> untuk yang SumProduct masih menjadi PR untuk Jan, karena formula yang
> digunakan adalah SumProduct jalan sesat xixixixi :D (maksudnya cara
> penulisannya menyimpang dari syntax yang asli, cara penulisan seperti itu
> adalah hasil pengembangan dari para pengguna Excel dan berjalan dengan baik
> di worksheet, Jan belum pernah menggunakannya di VBA.
>
> untuk yang Index
> 'Range("S16"
> Range("L34")
> coba pak Lukman pindahkan cara penulisan tersebut ke formula bar di
> worksheet, nanti pak Lukman akan mengetahui di mana letak salahnya
>
> begitu pula untuk yang VLookUp silakan dipindah ke formula bar di
> worksheet, maka pak Lukman akan tahu letak salahnya.
> 'Range("S17"
> (Range(Range(
> 'Range("T17"
> (Sum_T), 4, False)
> 'Range("U17"
> Range(Sum_T)
>
> perhatikan syntax penulisan masing-masing formula sebelum dipindahkan ke
> VBA.
>
> Intinya adalah, sebelum memindahkan formula ke VBA, formula tersebut harus
> dicoba di worksheet dan menghasilkan nilai yang sesuai, jika masih muncul
> error maka tidak akan berjalan dengan baik di VBA.
>
> best regard,
>
> Jan Raisin
>
>
> Pada 19 November 2012 13:33, lkm jktind <lkmjktind@gmail.
>
> **
>>
>>
>> Pak Jan.
>>
>> Masih belum bisa ?
>> Yang berwarna biru.
>>
>>
>>
>> Option Explicit
>> Sub coba_function(
>> Dim Sum_T As Range
>> Dim Sum_J As Range
>> Dim Sum_N As Range
>>
>> Set Sum_T = Range("F2:F34"
>> Set Sum_J = Range("G1:L1"
>> Set Sum_N = Range("G2:L34"
>>
>> Range("R3").
>> Range("R4").
>> Range("R15")
>> Range("R16")
>> "=INDEX($G$2:
>> Range("R17")
>> "=VLOOKUP($N$
>>
>> Range("U3").
>> Range("U4").
>> Range("U15")
>> Evaluate("=SUMPRODU
>> Range("U16")
>> Evaluate("=INDEX(
>> Range("U17")
>> Evaluate("=VLOOKUP(
>>
>> Range("S4") = Application.
>> Range("I34")
>> Range("T4") = Application.
>>
>> 'Range("S15"
>> Application.
>> = Range("N16")
>> Range(Range(
>> 'Range("T15"
>> Range("N16")
>> 'Range("U15"
>> Range("N16")
>> 'Range("S16"
>> Range("L34")
>> 'Range("T16"
>> 'Range("U16"
>> 'Range("S17"
>> (Range(Range(
>> 'Range("T17"
>> (Sum_T), 4, False)
>> 'Range("U17"
>> Range(Sum_T)
>>
>> Range("S18") = Application.
>> Range(Range(
>> Range("T18") = Application.
>> Range(Range(
>>
>> End Sub
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>> 2012/11/19 Jan Raisin <miss.jan.raisin@
>>
>>> **
>>>
>>>
>>> Dear BeExceler,
>>>
>>> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
>>> cara-cara seperti berikut:
>>>
>>> 1. Menggunakan fungsi Evaluate
>>> contoh: Cells(1,1).value = Evaluate("
>>> =ini_formula_
>>> perhatikan cara penulisannya
>>> a. formula dari worksheet diapit dengan tanda buka_kurung dan
>>> kutip_dua, lalu ditutup dengan tanda kutip_dua dan tutup_kurung
>>> b. formula dari worksheet ditulis mulai dari tanda sama_dengan
>>> sampai akhir
>>> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula
>>> di tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
>>> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
>>> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
>>> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>>>
>>> 2. Memanfaatkan fungsi Application.
>>> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
>>> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
>>> menulis tanda titik setelah syntax Application.
>>> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
>>> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
>>> di dalam workheet
>>> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
>>> dalam worksheet
>>> a. menunjuk cell menggunakan fungsi Cells
>>> syntax-nya adalah Cells(nomer_
>>> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di
>>> baris 2 dan kolom 3 atau disebut cell C3
>>> cara tersebut hanya berlaku untuk menunjuk pada cell yang
>>> tereletak pada workbook yang aktif dan worksheet yang aktif
>>> jika cell yang ingin ditunjuk terletak pada workbook lain
>>> dan/atau wroksheet lain maka cara menunjuknya selalu melalui hierarki yang
>>> lebih tinggi
>>> contoh: Workbooks("DataPenj
>>> , 3)
>>> b. Menunjuk cell dan range menggunakan fungsi Range
>>> 1). Menunjuk sebuah cell
>>> contoh: Range("A2") artinya menunjuk kepada sebuah cell
>>> yang bernama cell A2
>>> 2). Menunjuk beberapa buah cell yang berhimpitan
>>> contoh: Range("A2:C3"
>>> buah cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2,
>>> A3, B2, B3, C2, dan C3
>>> 3). Menunjuk beberapa cell yang tidak berhimpitan
>>> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell
>>> A2, C3, dan E5 yang letaknya tidak saling berhimpit
>>> 4). Menunjuk sebuah kolom
>>> contoh: Range ("A:A") artinya menunjuk seluruh cell di
>>> dalam kolom A
>>> 5). Menunjuk beberapa kolom yang saling berhimpit
>>> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
>>> dari kolom A sampai E
>>> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
>>> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh
>>> cell di dalam kolom A, kolom C, dan kolom E
>>> selain dengan menunjuk langsung alamat cell atau range,
>>> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
>>> dilipih
>>> contoh:
>>> Option Explicit
>>> Sub Tes()
>>> Dim Pilihan As Range
>>> Set Pilihan = Range("A:A, C:C, E:E")
>>> Pilihan.Select
>>> End Sub
>>> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi
>>> Range
>>> syntax dari Range adalah Range(alamat_
>>> alamat_cell_
>>> contoh: Range(Range(
>>> atau
>>> Range(Cells(
>>> kedua script di atas akan menunjuk kepada suatu range mulai
>>> dari cell A1 sampai dengan cell E5
>>>
>>> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
>>> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
>>> digunakan oleh pak Lukman?
>>>
>>> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>>>
>>> Best Regard,
>>>
>>> Miss Jan Raisin
>>>
>>>
>>> 2012/11/17 lkm jktind <lkmjktind@gmail.
>>>
>>>> **
>>>>
>>>>
>>>> Bagaimana cara penulisannya di macro excel :
>>>> dengan contoh di bawah ini :
>>>>
>>>> Sumproduct((
>>>> Index($D$2:$
>>>> Hloopup= (F$1;$D$1:$D$
>>>>
>>>>
>>>> Cells(r,5) = application.
>>>> Cells(r,6) = application.
>>>> Cells(r,7) = application.
>>>>
>>>>
>>>>
>>>> Salam
>>>>
>>>>
>>>> Lukman.
>>>>
>>>>
>>>>
>>>> nb : maaf nga begitu bisa bahasa inggris.
>>>>
>>>>
>>>
>>
>>
>
>
Mon Nov 19, 2012 4:18 am (PST) . Posted by:
"lkm jktind" lkmjkt
Pak Jan Raisin.
Apakah maksud bapak . sumproduct, index dan vlookup tidak dapat di gunakan
VBA ?
hasilnya sama .
di kolom : Q : ada formula di work sheet.
di kolom : R . .formula = "= xxxxxxxx"
di kolom : V . .Value = Evaluate("=xxxxxxxx")
dibawah ini error.
di kolom : S . application.worksheetfunction.
di kolom : T . application.worksheetfunction.
di kolom : U . application.worksheetfunction.
terima kasih.
Salam
Lukman
2012/11/19 Jan Raisin <miss.jan.raisin@gmail.com >
> **
>
>
> pak Lukman,
>
> untuk yang SumProduct, ini Jan kutip dari help-nya VBA
>
> - The array arguments must have the same dimensions. If they do not,
> SUMPRODUCT returns the #VALUE! error value.
>
> sebelumnya Jan telah sebutkan bahwa formula SumProduct yang dipergunakan
> oleh pak Lukman adalah SumProduct jalan sesat (kalo mr Kid bilang itu
> SumProduct jalan lurus, hanya saja yang mempelajarinya bisa tersesat
> xixixixi :D, kini Jan paham maksud dari mr Kid tersebut :D)
>
> kenapa disebut SumProduct jalan sesat? karena cara penulisannya menyimpang
> dari Syntaxt yang seharusnya, jadi error muncul karena:
> 1. cara penulisan menyimpang dari syntax, karena itu adalah pengembangan
> dari para pengguna Excel, yang dapat berjalan di worksheet tetapi belum
> tentu dapat berjalan di VBA, dari sini akan muncul debug
> 2. dimensi array yang digunakan berbeda antara 1 kriteria dengan kriteria
> yang lain, dari sini akan muncul error
>
> solusi lain untuk kasus ini adalah penggunaan fungsi Sum atau yang sejenis
> dengan melakukan pengujian terhadap semua cell dalam data (diperlukan Loop
> dalam kasus ini)
>
> yang harus diingat adalah, bahwa tidak semua fungsi di worksheet dapat
> digunakan di VBA
>
> cmmiw (colek mi if ayem wrong)
>
> -miss Jan Raisin-
>
> Pada 19 November 2012 15:04, Jan Raisin <miss.jan.raisin@gmail.com >menulis:
>
> pak Lukman,
>>
>> untuk yang SumProduct masih menjadi PR untuk Jan, karena formula yang
>> digunakan adalah SumProduct jalan sesat xixixixi :D (maksudnya cara
>> penulisannya menyimpang dari syntax yang asli, cara penulisan seperti itu
>> adalah hasil pengembangan dari para pengguna Excel dan berjalan dengan baik
>> di worksheet, Jan belum pernah menggunakannya di VBA.
>>
>> untuk yang Index
>> 'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
>> Range("L34")), 17, 3, 0)
>> coba pak Lukman pindahkan cara penulisan tersebut ke formula bar di
>> worksheet, nanti pak Lukman akan mengetahui di mana letak salahnya
>>
>> begitu pula untuk yang VLookUp silakan dipindah ke formula bar di
>> worksheet, maka pak Lukman akan tahu letak salahnya.
>> 'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
>> (Range(Range("F2"), Range("F34"))), 4, False)
>> 'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
>> (Sum_T), 4, False)
>> 'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
>> Range(Sum_T), 4, False)
>>
>> perhatikan syntax penulisan masing-masing formula sebelum dipindahkan ke
>> VBA.
>>
>> Intinya adalah, sebelum memindahkan formula ke VBA, formula tersebut
>> harus dicoba di worksheet dan menghasilkan nilai yang sesuai, jika masih
>> muncul error maka tidak akan berjalan dengan baik di VBA.
>>
>> best regard,
>>
>> Jan Raisin
>>
>>
>> Pada 19 November 2012 13:33, lkm jktind <lkmjktind@gmail.com > menulis:
>>
>> **
>>>
>>>
>>> Pak Jan.
>>>
>>> Masih belum bisa ?
>>> Yang berwarna biru.
>>>
>>>
>>>
>>> Option Explicit
>>> Sub coba_function()
>>> Dim Sum_T As Range
>>> Dim Sum_J As Range
>>> Dim Sum_N As Range
>>>
>>> Set Sum_T = Range("F2:F34")
>>> Set Sum_J = Range("G1:L1")
>>> Set Sum_N = Range("G2:L34")
>>>
>>> Range("R3").Formula = "=I2+I3"
>>> Range("R4").Formula = "=SUM(I2:I34)"
>>> Range("R15").Formula = "=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))"
>>> Range("R16").Formula =
>>> "=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))"
>>> Range("R17").Formula =
>>> "=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)"
>>>
>>> Range("U3").Value = Evaluate("=I2+I3")
>>> Range("U4").Value = Evaluate("=SUM(I2:I34)")
>>> Range("U15").Value =
>>> Evaluate("=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))")
>>> Range("U16").Value =
>>> Evaluate("=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))")
>>> Range("U17").Value =
>>> Evaluate("=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)")
>>>
>>> Range("S4") = Application.WorksheetFunction.Sum(Range(Range("I2"),
>>> Range("I34")))
>>> Range("T4") = Application.WorksheetFunction.Sum(Sum_N)
>>>
>>> 'Range("S15") =
>>> Application.WorksheetFunction.SumProduct((Range(Range("F2"), Range("F34"))
>>> = Range("N16")) * (Range(Range("G1"), Range("L1")) = Range("O16")) *
>>> Range(Range("G2"), Range("L34")))
>>> 'Range("T15") = Application.WorksheetFunction.SumProduct((Sum_T =
>>> Range("N16")) * (Sum_J = Range("O16")) * (Sum_N))
>>> 'Range("U15") = Application.WorksheetFunction.SumProduct((Range(Sum_T) =
>>> Range("N16")) * (Range(Sum_J) = Range("O16")) * (Range(Sum_N)))
>>> 'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
>>> Range("L34")), 17, 3, 0)
>>> 'Range("T16") = Application.WorksheetFunction.Index(
>>> 'Range("U16") = Application.WorksheetFunction.Index(
>>> 'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
>>> (Range(Range("F2"), Range("F34"))), 4, False)
>>> 'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
>>> (Sum_T), 4, False)
>>> 'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
>>> Range(Sum_T), 4, False)
>>>
>>> Range("S18") = Application.WorksheetFunction.Match(Range("N16"),
>>> Range(Range("F2"), Range("F34")), 0)
>>> Range("T18") = Application.WorksheetFunction.Match(Range("O16"),
>>> Range(Range("G1"), Range("L1")), 0)
>>>
>>> End Sub
>>>
>>> Salam
>>>
>>> Lukman
>>>
>>>
>>>
>>> 2012/11/19 Jan Raisin <miss.jan.raisin@gmail.com >
>>>
>>>> **
>>>>
>>>>
>>>> Dear BeExceler,
>>>>
>>>> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
>>>> cara-cara seperti berikut:
>>>>
>>>> 1. Menggunakan fungsi Evaluate
>>>> contoh: Cells(1,1).value = Evaluate("
>>>> =ini_formula_panjang_dari_worksheet_yang_dipindah_ke_VBA")
>>>> perhatikan cara penulisannya
>>>> a. formula dari worksheet diapit dengan tanda buka_kurung dan
>>>> kutip_dua, lalu ditutup dengan tanda kutip_dua dan tutup_kurung
>>>> b. formula dari worksheet ditulis mulai dari tanda sama_dengan
>>>> sampai akhir
>>>> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula
>>>> di tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
>>>> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
>>>> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
>>>> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>>>>
>>>> 2. Memanfaatkan fungsi Application.WorkSheetFunction.nama_fungsinya
>>>> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
>>>> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
>>>> menulis tanda titik setelah syntax Application.WorksheetsFunction
>>>> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
>>>> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
>>>> di dalam workheet
>>>> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
>>>> dalam worksheet
>>>> a. menunjuk cell menggunakan fungsi Cells
>>>> syntax-nya adalah Cells(nomer_baris , nomer_kolom)
>>>> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di
>>>> baris 2 dan kolom 3 atau disebut cell C3
>>>> cara tersebut hanya berlaku untuk menunjuk pada cell yang
>>>> tereletak pada workbook yang aktif dan worksheet yang aktif
>>>> jika cell yang ingin ditunjuk terletak pada workbook lain
>>>> dan/atau wroksheet lain maka cara menunjuknya selalu melalui hierarki yang
>>>> lebih tinggi
>>>> contoh: Workbooks("DataPenjualan2012").WorkSheets("Database").Cells(2
>>>> , 3)
>>>> b. Menunjuk cell dan range menggunakan fungsi Range
>>>> 1). Menunjuk sebuah cell
>>>> contoh: Range("A2") artinya menunjuk kepada sebuah cell
>>>> yang bernama cell A2
>>>> 2). Menunjuk beberapa buah cell yang berhimpitan
>>>> contoh: Range("A2:C3") artinya menunjuk kepada beberapa
>>>> buah cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2,
>>>> A3, B2, B3, C2, dan C3
>>>> 3). Menunjuk beberapa cell yang tidak berhimpitan
>>>> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell
>>>> A2, C3, dan E5 yang letaknya tidak saling berhimpit
>>>> 4). Menunjuk sebuah kolom
>>>> contoh: Range ("A:A") artinya menunjuk seluruh cell di
>>>> dalam kolom A
>>>> 5). Menunjuk beberapa kolom yang saling berhimpit
>>>> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
>>>> dari kolom A sampai E
>>>> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
>>>> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh
>>>> cell di dalam kolom A, kolom C, dan kolom E
>>>> selain dengan menunjuk langsung alamat cell atau range,
>>>> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
>>>> dilipih
>>>> contoh:
>>>> Option Explicit
>>>> Sub Tes()
>>>> Dim Pilihan As Range
>>>> Set Pilihan = Range("A:A, C:C, E:E")
>>>> Pilihan.Select
>>>> End Sub
>>>> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi
>>>> Range
>>>> syntax dari Range adalah Range(alamat_cell_awal ,
>>>> alamat_cell_akhir)
>>>> contoh: Range(Range("A1") , Range("E5"))
>>>> atau
>>>> Range(Cells(1,1) , Cells(5,5))
>>>> kedua script di atas akan menunjuk kepada suatu range mulai
>>>> dari cell A1 sampai dengan cell E5
>>>>
>>>> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
>>>> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
>>>> digunakan oleh pak Lukman?
>>>>
>>>> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>>>>
>>>> Best Regard,
>>>>
>>>> Miss Jan Raisin
>>>>
>>>>
>>>> 2012/11/17 lkm jktind <lkmjktind@gmail.com >
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> Bagaimana cara penulisannya di macro excel :
>>>>> dengan contoh di bawah ini :
>>>>>
>>>>> Sumproduct(("$A$2:$A$36000"=$A25)*(("$D$1:$AB$1=F$)*($D$2:$AB$36000)
>>>>> Index($D$2:$AB$36000;match("$A$2:$A$36000";$A25);
>>>>> match("$D$1:$AB$1;F$))
>>>>> Hloopup= (F$1;$D$1:$D$3600;Match($A$1:$A$3600;$A25);0)
>>>>>
>>>>>
>>>>> Cells(r,5) = application.worksheetfunction.sumproduct(
>>>>> Cells(r,6) = application.worksheetfunction.Index(
>>>>> Cells(r,7) = application.worksheetfunction.Hlookup(
>>>>>
>>>>>
>>>>>
>>>>> Salam
>>>>>
>>>>>
>>>>> Lukman.
>>>>>
>>>>>
>>>>>
>>>>> nb : maaf nga begitu bisa bahasa inggris.
>>>>>
>>>>>
>>>>
>>>
>>
>
>
Apakah maksud bapak . sumproduct, index dan vlookup tidak dapat di gunakan
VBA ?
hasilnya sama .
di kolom : Q : ada formula di work sheet.
di kolom : R . .formula = "= xxxxxxxx"
di kolom : V . .Value = Evaluate("=xxxxxxxx
dibawah ini error.
di kolom : S . application.
di kolom : T . application.
di kolom : U . application.
terima kasih.
Salam
Lukman
2012/11/19 Jan Raisin <miss.jan.raisin@
> **
>
>
> pak Lukman,
>
> untuk yang SumProduct, ini Jan kutip dari help-nya VBA
>
> - The array arguments must have the same dimensions. If they do not,
> SUMPRODUCT returns the #VALUE! error value.
>
> sebelumnya Jan telah sebutkan bahwa formula SumProduct yang dipergunakan
> oleh pak Lukman adalah SumProduct jalan sesat (kalo mr Kid bilang itu
> SumProduct jalan lurus, hanya saja yang mempelajarinya bisa tersesat
> xixixixi :D, kini Jan paham maksud dari mr Kid tersebut :D)
>
> kenapa disebut SumProduct jalan sesat? karena cara penulisannya menyimpang
> dari Syntaxt yang seharusnya, jadi error muncul karena:
> 1. cara penulisan menyimpang dari syntax, karena itu adalah pengembangan
> dari para pengguna Excel, yang dapat berjalan di worksheet tetapi belum
> tentu dapat berjalan di VBA, dari sini akan muncul debug
> 2. dimensi array yang digunakan berbeda antara 1 kriteria dengan kriteria
> yang lain, dari sini akan muncul error
>
> solusi lain untuk kasus ini adalah penggunaan fungsi Sum atau yang sejenis
> dengan melakukan pengujian terhadap semua cell dalam data (diperlukan Loop
> dalam kasus ini)
>
> yang harus diingat adalah, bahwa tidak semua fungsi di worksheet dapat
> digunakan di VBA
>
> cmmiw (colek mi if ayem wrong)
>
> -miss Jan Raisin-
>
> Pada 19 November 2012 15:04, Jan Raisin <miss.jan.raisin@
>
> pak Lukman,
>>
>> untuk yang SumProduct masih menjadi PR untuk Jan, karena formula yang
>> digunakan adalah SumProduct jalan sesat xixixixi :D (maksudnya cara
>> penulisannya menyimpang dari syntax yang asli, cara penulisan seperti itu
>> adalah hasil pengembangan dari para pengguna Excel dan berjalan dengan baik
>> di worksheet, Jan belum pernah menggunakannya di VBA.
>>
>> untuk yang Index
>> 'Range("S16"
>> Range("L34")
>> coba pak Lukman pindahkan cara penulisan tersebut ke formula bar di
>> worksheet, nanti pak Lukman akan mengetahui di mana letak salahnya
>>
>> begitu pula untuk yang VLookUp silakan dipindah ke formula bar di
>> worksheet, maka pak Lukman akan tahu letak salahnya.
>> 'Range("S17"
>> (Range(Range(
>> 'Range("T17"
>> (Sum_T), 4, False)
>> 'Range("U17"
>> Range(Sum_T)
>>
>> perhatikan syntax penulisan masing-masing formula sebelum dipindahkan ke
>> VBA.
>>
>> Intinya adalah, sebelum memindahkan formula ke VBA, formula tersebut
>> harus dicoba di worksheet dan menghasilkan nilai yang sesuai, jika masih
>> muncul error maka tidak akan berjalan dengan baik di VBA.
>>
>> best regard,
>>
>> Jan Raisin
>>
>>
>> Pada 19 November 2012 13:33, lkm jktind <lkmjktind@gmail.
>>
>> **
>>>
>>>
>>> Pak Jan.
>>>
>>> Masih belum bisa ?
>>> Yang berwarna biru.
>>>
>>>
>>>
>>> Option Explicit
>>> Sub coba_function(
>>> Dim Sum_T As Range
>>> Dim Sum_J As Range
>>> Dim Sum_N As Range
>>>
>>> Set Sum_T = Range("F2:F34"
>>> Set Sum_J = Range("G1:L1"
>>> Set Sum_N = Range("G2:L34"
>>>
>>> Range("R3").
>>> Range("R4").
>>> Range("R15")
>>> Range("R16")
>>> "=INDEX($G$2:
>>> Range("R17")
>>> "=VLOOKUP($N$
>>>
>>> Range("U3").
>>> Range("U4").
>>> Range("U15")
>>> Evaluate("=SUMPRODU
>>> Range("U16")
>>> Evaluate("=INDEX(
>>> Range("U17")
>>> Evaluate("=VLOOKUP(
>>>
>>> Range("S4") = Application.
>>> Range("I34")
>>> Range("T4") = Application.
>>>
>>> 'Range("S15"
>>> Application.
>>> = Range("N16")
>>> Range(Range(
>>> 'Range("T15"
>>> Range("N16")
>>> 'Range("U15"
>>> Range("N16")
>>> 'Range("S16"
>>> Range("L34")
>>> 'Range("T16"
>>> 'Range("U16"
>>> 'Range("S17"
>>> (Range(Range(
>>> 'Range("T17"
>>> (Sum_T), 4, False)
>>> 'Range("U17"
>>> Range(Sum_T)
>>>
>>> Range("S18") = Application.
>>> Range(Range(
>>> Range("T18") = Application.
>>> Range(Range(
>>>
>>> End Sub
>>>
>>> Salam
>>>
>>> Lukman
>>>
>>>
>>>
>>> 2012/11/19 Jan Raisin <miss.jan.raisin@
>>>
>>>> **
>>>>
>>>>
>>>> Dear BeExceler,
>>>>
>>>> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
>>>> cara-cara seperti berikut:
>>>>
>>>> 1. Menggunakan fungsi Evaluate
>>>> contoh: Cells(1,1).value = Evaluate("
>>>> =ini_formula_
>>>> perhatikan cara penulisannya
>>>> a. formula dari worksheet diapit dengan tanda buka_kurung dan
>>>> kutip_dua, lalu ditutup dengan tanda kutip_dua dan tutup_kurung
>>>> b. formula dari worksheet ditulis mulai dari tanda sama_dengan
>>>> sampai akhir
>>>> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula
>>>> di tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
>>>> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
>>>> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
>>>> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>>>>
>>>> 2. Memanfaatkan fungsi Application.
>>>> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
>>>> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
>>>> menulis tanda titik setelah syntax Application.
>>>> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
>>>> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
>>>> di dalam workheet
>>>> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
>>>> dalam worksheet
>>>> a. menunjuk cell menggunakan fungsi Cells
>>>> syntax-nya adalah Cells(nomer_
>>>> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di
>>>> baris 2 dan kolom 3 atau disebut cell C3
>>>> cara tersebut hanya berlaku untuk menunjuk pada cell yang
>>>> tereletak pada workbook yang aktif dan worksheet yang aktif
>>>> jika cell yang ingin ditunjuk terletak pada workbook lain
>>>> dan/atau wroksheet lain maka cara menunjuknya selalu melalui hierarki yang
>>>> lebih tinggi
>>>> contoh: Workbooks("DataPenj
>>>> , 3)
>>>> b. Menunjuk cell dan range menggunakan fungsi Range
>>>> 1). Menunjuk sebuah cell
>>>> contoh: Range("A2") artinya menunjuk kepada sebuah cell
>>>> yang bernama cell A2
>>>> 2). Menunjuk beberapa buah cell yang berhimpitan
>>>> contoh: Range("A2:C3"
>>>> buah cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2,
>>>> A3, B2, B3, C2, dan C3
>>>> 3). Menunjuk beberapa cell yang tidak berhimpitan
>>>> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell
>>>> A2, C3, dan E5 yang letaknya tidak saling berhimpit
>>>> 4). Menunjuk sebuah kolom
>>>> contoh: Range ("A:A") artinya menunjuk seluruh cell di
>>>> dalam kolom A
>>>> 5). Menunjuk beberapa kolom yang saling berhimpit
>>>> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
>>>> dari kolom A sampai E
>>>> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
>>>> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh
>>>> cell di dalam kolom A, kolom C, dan kolom E
>>>> selain dengan menunjuk langsung alamat cell atau range,
>>>> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
>>>> dilipih
>>>> contoh:
>>>> Option Explicit
>>>> Sub Tes()
>>>> Dim Pilihan As Range
>>>> Set Pilihan = Range("A:A, C:C, E:E")
>>>> Pilihan.Select
>>>> End Sub
>>>> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi
>>>> Range
>>>> syntax dari Range adalah Range(alamat_
>>>> alamat_cell_
>>>> contoh: Range(Range(
>>>> atau
>>>> Range(Cells(
>>>> kedua script di atas akan menunjuk kepada suatu range mulai
>>>> dari cell A1 sampai dengan cell E5
>>>>
>>>> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
>>>> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
>>>> digunakan oleh pak Lukman?
>>>>
>>>> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>>>>
>>>> Best Regard,
>>>>
>>>> Miss Jan Raisin
>>>>
>>>>
>>>> 2012/11/17 lkm jktind <lkmjktind@gmail.
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> Bagaimana cara penulisannya di macro excel :
>>>>> dengan contoh di bawah ini :
>>>>>
>>>>> Sumproduct((
>>>>> Index($D$2:$
>>>>> match("$D$1:
>>>>> Hloopup= (F$1;$D$1:$D$
>>>>>
>>>>>
>>>>> Cells(r,5) = application.
>>>>> Cells(r,6) = application.
>>>>> Cells(r,7) = application.
>>>>>
>>>>>
>>>>>
>>>>> Salam
>>>>>
>>>>>
>>>>> Lukman.
>>>>>
>>>>>
>>>>>
>>>>> nb : maaf nga begitu bisa bahasa inggris.
>>>>>
>>>>>
>>>>
>>>
>>
>
>
Mon Nov 19, 2012 4:44 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Lukman,
'Pada variabel yang terdefinisi sebagai berikut :
Dim Sum_T As Range
Dim Sum_J As Range
Dim Sum_N As Range
Set Sum_T = Range("F2:F34")
Set Sum_J = Range("G1:L1")
Set Sum_N = Range("G2:L34")
on error resume next
with application.worksheetfunction
'Untuk formula worksheet berbunyi :
'>> =I2+I3
range("s3").value=range("I2").value + range("I3").value
'>> =SUM(I2:I34)
range("s4").value = .sum( range("I2:I34") )
'>> =SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))
range("s15").value = .sumproduct( evaluate( "(F2:F34=N16)*(G1:L1=O16)" ) ,
sum_n )
'>> =INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))
range("s16").value = .index( range("$G$2:$M$34") , _
.match( range("$N$16").value , range("$F$2:$F$34")
, 0 ) , _
.match( range("$O$16").value , range("$G$1:$M$1")
, 0 ) _
)
'>> =VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)
range("s17").value = .vlookup( range("$N$16").value , _
range("$F$2:$L$34") , _
.match( range("$O$16").value ,
range("$F$1:$L$1") , 0 ) , _
0 _
)
end with
err.clear
on error goto 0
Wassalam,
Kid.
2012/11/19 lkm jktind <lkmjktind@gmail.com >
> **
>
>
> Pak Jan.
>
> Masih belum bisa ?
> Yang berwarna biru.
>
>
>
> Option Explicit
> Sub coba_function()
> Dim Sum_T As Range
> Dim Sum_J As Range
> Dim Sum_N As Range
>
> Set Sum_T = Range("F2:F34")
> Set Sum_J = Range("G1:L1")
> Set Sum_N = Range("G2:L34")
>
> Range("R3").Formula = "=I2+I3"
> Range("R4").Formula = "=SUM(I2:I34)"
> Range("R15").Formula = "=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))"
> Range("R16").Formula =
> "=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))"
> Range("R17").Formula =
> "=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)"
>
> Range("U3").Value = Evaluate("=I2+I3")
> Range("U4").Value = Evaluate("=SUM(I2:I34)")
> Range("U15").Value =
> Evaluate("=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))")
> Range("U16").Value =
> Evaluate("=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))")
> Range("U17").Value =
> Evaluate("=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)")
>
> Range("S4") = Application.WorksheetFunction.Sum(Range(Range("I2"),
> Range("I34")))
> Range("T4") = Application.WorksheetFunction.Sum(Sum_N)
>
> 'Range("S15") =
> Application.WorksheetFunction.SumProduct((Range(Range("F2"), Range("F34"))
> = Range("N16")) * (Range(Range("G1"), Range("L1")) = Range("O16")) *
> Range(Range("G2"), Range("L34")))
> 'Range("T15") = Application.WorksheetFunction.SumProduct((Sum_T =
> Range("N16")) * (Sum_J = Range("O16")) * (Sum_N))
> 'Range("U15") = Application.WorksheetFunction.SumProduct((Range(Sum_T) =
> Range("N16")) * (Range(Sum_J) = Range("O16")) * (Range(Sum_N)))
> 'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
> Range("L34")), 17, 3, 0)
> 'Range("T16") = Application.WorksheetFunction.Index(
> 'Range("U16") = Application.WorksheetFunction.Index(
> 'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
> (Range(Range("F2"), Range("F34"))), 4, False)
> 'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
> (Sum_T), 4, False)
> 'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
> Range(Sum_T), 4, False)
>
> Range("S18") = Application.WorksheetFunction.Match(Range("N16"),
> Range(Range("F2"), Range("F34")), 0)
> Range("T18") = Application.WorksheetFunction.Match(Range("O16"),
> Range(Range("G1"), Range("L1")), 0)
>
> End Sub
>
> Salam
>
> Lukman
>
>
'Pada variabel yang terdefinisi sebagai berikut :
Dim Sum_T As Range
Dim Sum_J As Range
Dim Sum_N As Range
Set Sum_T = Range("F2:F34"
Set Sum_J = Range("G1:L1"
Set Sum_N = Range("G2:L34"
on error resume next
with application.
'Untuk formula worksheet berbunyi :
'>> =I2+I3
range("s3").
'>> =SUM(I2:I34)
range("s4").
'>> =SUMPRODUCT(
range("s15")
sum_n )
'>> =INDEX($G$2:
range("s16")
.match( range("$N$16"
, 0 ) , _
.match( range("$O$16"
, 0 ) _
)
'>> =VLOOKUP($N$
range("s17")
range("$F$2:
.match( range("$O$16"
range("$F$1:
0 _
)
end with
err.clear
on error goto 0
Wassalam,
Kid.
2012/11/19 lkm jktind <lkmjktind@gmail.
> **
>
>
> Pak Jan.
>
> Masih belum bisa ?
> Yang berwarna biru.
>
>
>
> Option Explicit
> Sub coba_function(
> Dim Sum_T As Range
> Dim Sum_J As Range
> Dim Sum_N As Range
>
> Set Sum_T = Range("F2:F34"
> Set Sum_J = Range("G1:L1"
> Set Sum_N = Range("G2:L34"
>
> Range("R3").
> Range("R4").
> Range("R15")
> Range("R16")
> "=INDEX($G$2:
> Range("R17")
> "=VLOOKUP($N$
>
> Range("U3").
> Range("U4").
> Range("U15")
> Evaluate("=SUMPRODU
> Range("U16")
> Evaluate("=INDEX(
> Range("U17")
> Evaluate("=VLOOKUP(
>
> Range("S4") = Application.
> Range("I34")
> Range("T4") = Application.
>
> 'Range("S15"
> Application.
> = Range("N16")
> Range(Range(
> 'Range("T15"
> Range("N16")
> 'Range("U15"
> Range("N16")
> 'Range("S16"
> Range("L34")
> 'Range("T16"
> 'Range("U16"
> 'Range("S17"
> (Range(Range(
> 'Range("T17"
> (Sum_T), 4, False)
> 'Range("U17"
> Range(Sum_T)
>
> Range("S18") = Application.
> Range(Range(
> Range("T18") = Application.
> Range(Range(
>
> End Sub
>
> Salam
>
> Lukman
>
>
Mon Nov 19, 2012 12:24 am (PST) . Posted by:
"hartini_80@yahoo.co.id" hartini_80
Dear all
Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B saja, bagaimana caranya ya, jika saya klik icon filter maka semua header akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja yang terfilter, bisa minta solusinya kah ...?
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B saja, bagaimana caranya ya, jika saya klik icon filter maka semua header akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja yang terfilter, bisa minta solusinya kah ...?
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Mon Nov 19, 2012 12:42 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Jika disajikan contoh tabel dan hasil filter yang diinginkan maka saya yakin solusinya BISA dicari.
Salam,
Hendrik Karnadi
________________________________
From: "hartini_80@yahoo.co.id " <hartini_80@yahoo.co.id >
To: belajar-excel@yahoogroups.com
Sent: Monday, 19 November 2012, 15:23
Subject: [belajar-excel] Filter hanya dikolom tertentu
Dear all
Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B saja, bagaimana caranya ya, jika saya klik icon filter maka semua header akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja yang terfilter, bisa minta solusinya kah ...?
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
------------------------------------
----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links
http://docs.yahoo.com/info/terms/
Salam,
Hendrik Karnadi
____________
From: "hartini_80@yahoo.
To: belajar-excel@
Sent: Monday, 19 November 2012, 15:23
Subject: [belajar-excel] Filter hanya dikolom tertentu
Dear all
Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B saja, bagaimana caranya ya, jika saya klik icon filter maka semua header akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja yang terfilter, bisa minta solusinya kah ...?
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
------------
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
http://docs.
Mon Nov 19, 2012 2:02 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tiny,
Asumsi bahwa *sebelum baris header *tidak ada range di kolom A dan B yang
mergecells. Coba blok kolom A dan B (klik nama kolom excel huruf A dan B)
lebih dulu baru aktifkan autofilter.
Dalam keadaan tabel hanya terblok sebagian seperti ini, hati-hati terhadap
proses Sort (sengaja/tidak sengaja).
Wassalam,
Kid.
2012/11/19 <hartini_80@yahoo.co.id >
> Dear all
> Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B
> saja, bagaimana caranya ya, jika saya klik icon filter maka semua header
> akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja
> yang terfilter, bisa minta solusinya kah ...?
> Terima kasih sebelumnya
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
Asumsi bahwa *sebelum baris header *tidak ada range di kolom A dan B yang
mergecells. Coba blok kolom A dan B (klik nama kolom excel huruf A dan B)
lebih dulu baru aktifkan autofilter.
Dalam keadaan tabel hanya terblok sebagian seperti ini, hati-hati terhadap
proses Sort (sengaja/tidak sengaja).
Wassalam,
Kid.
2012/11/19 <hartini_80@yahoo.
> Dear all
> Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B
> saja, bagaimana caranya ya, jika saya klik icon filter maka semua header
> akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja
> yang terfilter, bisa minta solusinya kah ...?
> Terima kasih sebelumnya
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
Mon Nov 19, 2012 3:35 am (PST) . Posted by:
"hartini_80@yahoo.co.id" hartini_80
Maaf pak hendrik lampirannya lupa, berikut saya kirimkan, saya ingin meletakan filter di kolom NIK dan dept saja, bagaimana ya caranya.
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 19 Nov 2012 00:42:01
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Filter hanya dikolom tertentu
Jika disajikan contoh tabel dan hasil filter yang diinginkan maka saya yakin solusinya BISA dicari.
Salam,
Hendrik Karnadi
________________________________
From: "hartini_80@yahoo.co.id " <hartini_80@yahoo.co.id >
To: belajar-excel@yahoogroups.com
Sent: Monday, 19 November 2012, 15:23
Subject: [belajar-excel] Filter hanya dikolom tertentu
Dear all
Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B saja, bagaimana caranya ya, jika saya klik icon filter maka semua header akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja yang terfilter, bisa minta solusinya kah ...?
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
------------------------------------
----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links
http://docs.yahoo.com/info/terms/
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@
Sender: belajar-excel@
Date: Mon, 19 Nov 2012 00:42:01
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Filter hanya dikolom tertentu
Jika disajikan contoh tabel dan hasil filter yang diinginkan maka saya yakin solusinya BISA dicari.
Salam,
Hendrik Karnadi
____________
From: "hartini_80@yahoo.
To: belajar-excel@
Sent: Monday, 19 November 2012, 15:23
Subject: [belajar-excel] Filter hanya dikolom tertentu
Dear all
Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B saja, bagaimana caranya ya, jika saya klik icon filter maka semua header akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja yang terfilter, bisa minta solusinya kah ...?
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
------------
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
http://docs.
Mon Nov 19, 2012 4:54 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba pakai prosedur berikut :
Public Sub Filter()
Dim lCol As Long
With Range("a4:i65")
If Not .Parent.AutoFilterMode Then
.AutoFilter
End If
For lCol = 1 To .Columns.Count
.AutoFilter lCol, visibledropdown:=True
Select Case lCol
Case 2, 4
Case Else
.AutoFilter lCol, visibledropdown:=False
End Select
Next lCol
End With
End Sub
Sesuaikan dengan kebutuhan, terutama nomor indeks kolom terpilih yang akan
diberi dropdown autofilter pada select case.
Wassalam,
Kid.
2012/11/19 <hartini_80@yahoo.co.id >
> **
>
>
> ** Maaf pak hendrik lampirannya lupa, berikut saya kirimkan, saya ingin
> meletakan filter di kolom NIK dan dept saja, bagaimana ya caranya.
>
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 19 Nov 2012 00:42:01 -0800 (PST)
> *To: *belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Filter hanya dikolom tertentu
>
>
>
> Jika disajikan contoh tabel dan hasil filter yang diinginkan maka saya
> yakin solusinya BISA dicari.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* "hartini_80@yahoo.co.id " <hartini_80@yahoo.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 19 November 2012, 15:23
> *Subject:* [belajar-excel] Filter hanya dikolom tertentu
>
> Dear all
> Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B
> saja, bagaimana caranya ya, jika saya klik icon filter maka semua header
> akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja
> yang terfilter, bisa minta solusinya kah ...?
> Terima kasih sebelumnya
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
>
>
>
Public Sub Filter()
Dim lCol As Long
With Range("a4:i65"
If Not .Parent.AutoFilterM
.AutoFilter
End If
For lCol = 1 To .Columns.Count
.AutoFilter lCol, visibledropdown:
Select Case lCol
Case 2, 4
Case Else
.AutoFilter lCol, visibledropdown:
End Select
Next lCol
End With
End Sub
Sesuaikan dengan kebutuhan, terutama nomor indeks kolom terpilih yang akan
diberi dropdown autofilter pada select case.
Wassalam,
Kid.
2012/11/19 <hartini_80@yahoo.
> **
>
>
> ** Maaf pak hendrik lampirannya lupa, berikut saya kirimkan, saya ingin
> meletakan filter di kolom NIK dan dept saja, bagaimana ya caranya.
>
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
> ------------
> *From: * hendrik karnadi <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Mon, 19 Nov 2012 00:42:01 -0800 (PST)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Filter hanya dikolom tertentu
>
>
>
> Jika disajikan contoh tabel dan hasil filter yang diinginkan maka saya
> yakin solusinya BISA dicari.
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* "hartini_80@yahoo.
> *To:* belajar-excel@
> *Sent:* Monday, 19 November 2012, 15:23
> *Subject:* [belajar-excel] Filter hanya dikolom tertentu
>
> Dear all
> Saya memiliki table, dan saya ingin membuat filter hanya di kolom A dan B
> saja, bagaimana caranya ya, jika saya klik icon filter maka semua header
> akan membentuk filter, sedangkan saya hanya menginginkan kolom A dan B saja
> yang terfilter, bisa minta solusinya kah ...?
> Terima kasih sebelumnya
> Salam
> Tiny
> Powered by Telkomsel BlackBerry®
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
>
>
>
Mon Nov 19, 2012 2:06 am (PST) . Posted by:
"Ade Ismail" ade_ismail@ymail.com
Dear Master Exceller..
Tolong bantu saya dalam membuat nota penjualan untuk Kedai Nasi Bakar Saya,
Data2 saya lampirkan
Terima kasih
Tolong bantu saya dalam membuat nota penjualan untuk Kedai Nasi Bakar Saya,
Data2 saya lampirkan
Terima kasih
Mon Nov 19, 2012 3:34 am (PST) . Posted by:
"Teti Zhe" teti_zhe
Dear master Excel,
1. Saya memakai fungsi Datedif di sheet1 untuk mendapatkan usia berdasarkan tanggal lahir, hasilnya benar dan sesuai dengan yang diharapkan. tapi gilliran data tersebut saya pindah ke sheet2 dan saya coba pake fungsi Datedif lagi, hasil usia nya berbeda.. kira2 kenapa ya?? mohon penjelasan dari teman2.... format tanggal yang saya pake dd-mm-yyyy dan setting regionalnya Indonesia. apakah itu ngaruh?
2. Saya ada sejumlah data yang ingin saya jumlahkan berdasarkan kriteria tertentu, kira2 pake rumus apa yaa?, Misalnya jika kolom 1 mengandung tullisan "A" maka hitung semua jumlah yang tertera di kolom 3 pada baris yang mengandung tulisan "A" tersebut. (file terlampir)
Mohon bantuannya...........
Terimakasih,,,
Salam,
Teti.
1. Saya memakai fungsi Datedif di sheet1 untuk mendapatkan usia berdasarkan tanggal lahir, hasilnya benar dan sesuai dengan yang diharapkan. tapi gilliran data tersebut saya pindah ke sheet2 dan saya coba pake fungsi Datedif lagi, hasil usia nya berbeda.. kira2 kenapa ya?? mohon penjelasan dari teman2.... format tanggal yang saya pake dd-mm-yyyy dan setting regionalnya Indonesia. apakah itu ngaruh?
2. Saya ada sejumlah data yang ingin saya jumlahkan berdasarkan kriteria tertentu, kira2 pake rumus apa yaa?, Misalnya jika kolom 1 mengandung tullisan "A" maka hitung semua jumlah yang tertera di kolom 3 pada baris yang mengandung tulisan "A" tersebut. (file terlampir)
Mohon bantuannya..
Terimakasih,
Salam,
Teti.
Mon Nov 19, 2012 4:16 am (PST) . Posted by:
"him mah"
judul bukunya apa pak?
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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