10 New Messages
Digest #1749
3a
Re: Fw: [belajar-excel] Isian Bon sesuai dengan baris yang di klik by "Kid Mr." nmkid.family@ymail.com
3b
Re: Fw: [belajar-excel] Isian Bon sesuai dengan baris yang di klik by "hendrik karnadi" hendrikkarnadi
Messages
Thu Aug 30, 2012 4:27 am (PDT) . Posted by:
"Agus Erwanto" erwanto_agus
Dear Master,
saya menggunakan excell 2007 , saat menggunakan fungsi Vlookup ada yang berhasil tetapi ada pula yang hasilnya #NA, kenapa ya?
Terimakasih
Agus erw
saya menggunakan excell 2007 , saat menggunakan fungsi Vlookup ada yang berhasil tetapi ada pula yang hasilnya #NA, kenapa ya?
Terimakasih
Agus erw
Thu Aug 30, 2012 4:37 am (PDT) . Posted by:
"dayatshogun46@yahoo.co.id" dayatshogun46
Biasanya #NA = tidak valid atau data tidak cocok
Dayatshogun46
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: Agus Erwanto <erwanto_agus@yahoo.co.id >
Sender: belajar-excel@yahoogroups.com
Date: Thu, 30 Aug 2012 18:40:40
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Hasil Vlookup Kok #NA
Dear Master,
saya menggunakan excell 2007 , saat menggunakan fungsi Vlookup ada yang berhasil tetapi ada pula yang hasilnya #NA, kenapa ya?
Terimakasih
Agus erw
Dayatshogun46
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...
-----Original Message-----
From: Agus Erwanto <erwanto_agus@
Sender: belajar-excel@
Date: Thu, 30 Aug 2012 18:40:40
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: [belajar-excel] Hasil Vlookup Kok #NA
Dear Master,
saya menggunakan excell 2007 , saat menggunakan fungsi Vlookup ada yang berhasil tetapi ada pula yang hasilnya #NA, kenapa ya?
Terimakasih
Agus erw
Thu Aug 30, 2012 5:20 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba cek dengan menggunakan Len(Text).
Di Sheet DATA, jumlah karakter D.0001297 28 karakter dan D.0001298 24 karakter (ada banyak spasi)
sedangkan di Sheet Sheet1, jumlah karakter D.0001297 8 karakter dan D.0001298 8 karakter (tidak ada spasi)
Salam,
Hendrik Karnadi
________________________________
From: Agus Erwanto <erwanto_agus@yahoo.co.id >
To: belajar-excel@yahoogroups.com
Sent: Thursday, 30 August 2012, 17:40
Subject: [belajar-excel] Hasil Vlookup Kok #NA
Dear Master,
saya menggunakan excell 2007 , saat menggunakan fungsi Vlookup ada yang berhasil tetapi ada pula yang hasilnya #NA, kenapa ya?
Terimakasih
Agus erw
Di Sheet DATA, jumlah karakter D.0001297 28 karakter dan D.0001298 24 karakter (ada banyak spasi)
sedangkan di Sheet Sheet1, jumlah karakter D.0001297 8 karakter dan D.0001298 8 karakter (tidak ada spasi)
Salam,
Hendrik Karnadi
____________
From: Agus Erwanto <erwanto_agus@
To: belajar-excel@
Sent: Thursday, 30 August 2012, 17:40
Subject: [belajar-excel] Hasil Vlookup Kok #NA
Dear Master,
saya menggunakan excell 2007 , saat menggunakan fungsi Vlookup ada yang berhasil tetapi ada pula yang hasilnya #NA, kenapa ya?
Terimakasih
Agus erw
Thu Aug 30, 2012 5:45 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Dari hal-hal yang telah diungkapkan oleh Pak Dayat dan Pak Hendrik,
dapat diketahui bahwa :
1. spasi adalah sebuah karakter
2. proses lookup dengan opsi Exact Match harus benar-benar sama jumlah
karakter dan urutan susunan karakternya (jika bertipe string dan Excel
selalu case insensitive pada proses lookup) atau sama persis nilai angkanya
(jika bertipe numerik).
Solusinya ?
1. Konsistenkan cara penulisan data, atau
2. coba ubah formula cell B2 :
=VLOOKUP(*$A$2:$A$5*,DATA!$A$1:$B$5,2,FALSE)
menjadi :
=VLOOKUP(*$A2* & "*",DATA!$A$1:$B$5,2,FALSE)
Pertanyaan berikutnya (untuk bahan diskusi) :
1. formula cell B2 : (anggap saja cell B3 dan seterusnya tidak ada
formulanya alias hanya 1 cell ini saja yang berformula)
=VLOOKUP(*$A$2:$A$5*,DATA!$A$1:$B$5,2,FALSE)
yang tidak di Enter sebagai array formula dalam array blok,
Ketika nilai cell A3 diubah nilainya, apakah yang terjadi ?
>> formula B2 akan dikalkulasi, atau
>> formula B2 tidak akan dikalkulasi
2. formula cell B2 : (anggap saja cell B3 dan seterusnya tidak ada
formulanya alias hanya 1 cell ini saja yang berformula)
=VLOOKUP(*$A2* & "*",DATA!$A$1:$B$5,2,FALSE)
yang bukan array formula
Ketika nilai cell A3 diubah nilainya, apakah yang terjadi ?
>> formula B2 akan dikalkulasi, atau
>> formula B2 tidak akan dikalkulasi
3. Berdasar jawaban menurut Anda untuk nomor 1, pada kondisi ada 1000 cell
yang dirujuk pada 1000 cell,
jadi di cell B1 sampai B1000 ada formula yang sama yang bunyinya :
=VLOOKUP(*$A$1:$A$1000*,DATA!$A$1:$B$5,2,FALSE)
apa yang terjadi ?
Terus terang, Saya belum pernah mencoba mengkalkulasi perbedaan waktu dari
2 macam formula vlookup di atas.
Wassalam,
Kid.
2012/8/30 Agus Erwanto <erwanto_agus@yahoo.co.id >
> **
>
>
> Dear Master,
>
> saya menggunakan excell 2007 , saat menggunakan fungsi Vlookup ada yang
> berhasil tetapi ada pula yang hasilnya #NA, kenapa ya?
>
>
> Terimakasih
>
> Agus erw
>
>
>
dapat diketahui bahwa :
1. spasi adalah sebuah karakter
2. proses lookup dengan opsi Exact Match harus benar-benar sama jumlah
karakter dan urutan susunan karakternya (jika bertipe string dan Excel
selalu case insensitive pada proses lookup) atau sama persis nilai angkanya
(jika bertipe numerik).
Solusinya ?
1. Konsistenkan cara penulisan data, atau
2. coba ubah formula cell B2 :
=VLOOKUP(*$A$
menjadi :
=VLOOKUP(*$A2* & "*",DATA!$A$
Pertanyaan berikutnya (untuk bahan diskusi) :
1. formula cell B2 : (anggap saja cell B3 dan seterusnya tidak ada
formulanya alias hanya 1 cell ini saja yang berformula)
=VLOOKUP(*$A$
yang tidak di Enter sebagai array formula dalam array blok,
Ketika nilai cell A3 diubah nilainya, apakah yang terjadi ?
>> formula B2 akan dikalkulasi, atau
>> formula B2 tidak akan dikalkulasi
2. formula cell B2 : (anggap saja cell B3 dan seterusnya tidak ada
formulanya alias hanya 1 cell ini saja yang berformula)
=VLOOKUP(*$A2* & "*",DATA!$A$
yang bukan array formula
Ketika nilai cell A3 diubah nilainya, apakah yang terjadi ?
>> formula B2 akan dikalkulasi, atau
>> formula B2 tidak akan dikalkulasi
3. Berdasar jawaban menurut Anda untuk nomor 1, pada kondisi ada 1000 cell
yang dirujuk pada 1000 cell,
jadi di cell B1 sampai B1000 ada formula yang sama yang bunyinya :
=VLOOKUP(*$A$
apa yang terjadi ?
Terus terang, Saya belum pernah mencoba mengkalkulasi perbedaan waktu dari
2 macam formula vlookup di atas.
Wassalam,
Kid.
2012/8/30 Agus Erwanto <erwanto_agus@
> **
>
>
> Dear Master,
>
> saya menggunakan excell 2007 , saat menggunakan fungsi Vlookup ada yang
> berhasil tetapi ada pula yang hasilnya #NA, kenapa ya?
>
>
> Terimakasih
>
> Agus erw
>
>
>
Thu Aug 30, 2012 5:16 am (PDT) . Posted by:
"Titis Ardiyana Wulandari" tiez_2289
Pak Hendrik & Pak Kid,
ini contoh nya, saya ingin menggunakan rumus seperti contoh diatas, tapi menggunakan macro bagaimana penulisan rumusnya?
terimakasih banyak sebelumnya..
________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, August 29, 2012 10:57 PM
Subject: Re: [belajar-excel] MACRO
Dear Mbak Titis,
Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat terstruktur, mis,
If Condition Then
bla bla bla
Else
la la la
End If
Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda maksud dengan :
"apakah bisa rumus diatas di sum dengan rumus dibawah ini"
Salam,
Hendrik Karnadi
________________________________
From: Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, 29 August 2012, 22:12
Subject: Re: [belajar-excel] MACRO
terimakasih untuk jawabannya Mr.Kid,
tanya lagi..
kalau saya punya rumus dibawah ini:
Sub coba1()
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F7") = "D"
Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F7") = "N"
Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
Range("F135").Select
ActiveCell.FormulaR1C1 = 0
End If
End If
End If
End Sub
apakah bisa rumus diatas di sum dengan rumus dibawah ini:
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F8") = "D" Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F8") = "N" Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
Range("F135").Select
ActiveCell.FormulaR1C1 = 0
End If
End If
End If
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, August 29, 2012 9:41 PM
Subject: Re: [belajar-excel] MACRO
Koreksi Mods...
Formula :
=SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula :
=SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
dan di-copy ke cell lain.
Wassalam,
Kid.
2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
>salam kenal.
>
>terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
>langsung saja.
>saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
>=SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
>
>bagaimana menuliskanya di macro?
>dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana menuliskannya di macro?
>
>terimaksih banyak atas bantuannya
>
>--- Mods ---
>Selamat bergabung dengan milis Belajar-Excel.
>
>File lampiran dapat membantu BeExceller yang ingin turut berbagi alternatif solusi.
>
>Dari penjelasan mbak Wulan di atas :
>Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan dipasang pada cells lain yang pada range A3:G10.
>
>Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan menjadi :
>=SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
>Apakah benar formula di G10 akan berbunyi demikian ?
>------------
>
ini contoh nya, saya ingin menggunakan rumus seperti contoh diatas, tapi menggunakan macro bagaimana penulisan rumusnya?
terimakasih banyak sebelumnya..
____________
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Wednesday, August 29, 2012 10:57 PM
Subject: Re: [belajar-excel] MACRO
Dear Mbak Titis,
Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat terstruktur, mis,
If Condition Then
bla bla bla
Else
la la la
End If
Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda maksud dengan :
"apakah bisa rumus diatas di sum dengan rumus dibawah ini"
Salam,
Hendrik Karnadi
____________
From: Titis Ardiyana Wulandari <tiez_2289@yahoo.
To: "belajar-excel@
Sent: Wednesday, 29 August 2012, 22:12
Subject: Re: [belajar-excel] MACRO
terimakasih untuk jawabannya Mr.Kid,
tanya lagi..
kalau saya punya rumus dibawah ini:
Sub coba1()
Range("F135"
ActiveCell.FormulaR
Else
If Range("F7") = "D"
Then
Range("F135"
ActiveCell.FormulaR
Else
If Range("F7") = "N"
Then
Range("F135"
ActiveCell.FormulaR
Else
Range("F135"
ActiveCell.FormulaR
End If
End If
End If
End Sub
apakah bisa rumus diatas di sum dengan rumus dibawah ini:
Range("F135"
ActiveCell.FormulaR
Else
If Range("F8") = "D" Then
Range("F135"
ActiveCell.FormulaR
Else
If Range("F8") = "N" Then
Range("F135"
ActiveCell.FormulaR
Else
Range("F135"
ActiveCell.FormulaR
End If
End If
End If
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Wednesday, August 29, 2012 9:41 PM
Subject: Re: [belajar-excel] MACRO
Koreksi Mods...
Formula :
=SUM((IF(f8=
adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula :
=SUM((IF(A1=
dan di-copy ke cell lain.
Wassalam,
Kid.
2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
>salam kenal.
>
>terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
>langsung saja.
>saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
>=SUM((IF(A1=
>
>bagaimana menuliskanya di macro?
>dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana menuliskannya di macro?
>
>terimaksih banyak atas bantuannya
>
>--- Mods ---
>Selamat bergabung dengan milis Belajar-Excel.
>
>File lampiran dapat membantu BeExceller yang ingin turut berbagi alternatif solusi.
>
>Dari penjelasan mbak Wulan di atas :
>Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan dipasang pada cells lain yang pada range A3:G10.
>
>Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan menjadi :
>=SUM((IF(f8=
>
>Apakah benar formula di G10 akan berbunyi demikian ?
>-----------
>
Thu Aug 30, 2012 6:21 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
mbak Wulan,
file terlampir tidak menggunakan VBA untuk menyusun rekap tersebut.
Perhatikan susunan formulanya, peletakan tanda $ dalam merujuk cell,
penyusunan nilai-nilai kriteria dalam dataset output.
Jika sudah memahami duduk perkara cara mengkalkulasi dengan formula, maka
formula tersebut bisa dipasang dengan VBA seperti contoh yang pernah
dilampirkan tempo hari.
Wassalam,
Kid.
2012/8/30 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
> **
>
>
> Pak Hendrik & Pak Kid,
>
> ini contoh nya, saya ingin menggunakan rumus seperti contoh diatas, tapi
> menggunakan macro bagaimana penulisan rumusnya?
>
> terimakasih banyak sebelumnya..
>
> ------------------------------
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, August 29, 2012 10:57 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Dear Mbak Titis,
> Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
>
> Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat
> terstruktur, mis,
> If Condition Then
> bla bla bla
> Else
> la la la
> End If
>
> Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda
> maksud dengan :
> "apakah bisa rumus diatas di sum dengan rumus dibawah ini"
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 29 August 2012, 22:12
> *Subject:* Re: [belajar-excel] MACRO
>
>
> terimakasih untuk jawabannya Mr.Kid,
> tanya lagi..
> kalau saya punya rumus dibawah ini:
>
> Sub coba1()
>
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F7") = "D" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F7") = "N" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 0
> End If
> End If
> End If
> End Sub
>
> apakah bisa rumus diatas di sum dengan rumus dibawah ini:
>
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F8") = "D" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F8") = "N" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 0
> End If
> End If
> End If
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, August 29, 2012 9:41 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Koreksi Mods...
> Formula :
> =SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
> adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula
> :
> =SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
> dan di-copy ke cell lain.
>
> Wassalam,
> Kid.
>
>
> 2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
> **
>
> salam kenal.
>
> terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
> langsung saja.
> saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
> =SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
>
> bagaimana menuliskanya di macro?
> dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana
> menuliskannya di macro?
>
> terimaksih banyak atas bantuannya
>
> --- Mods ---
> Selamat bergabung dengan milis Belajar-Excel.
>
> File lampiran dapat membantu BeExceller yang ingin turut berbagi
> alternatif solusi.
>
> Dari penjelasan mbak Wulan di atas :
> Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan
> dipasang pada cells lain yang pada range A3:G10.
>
> Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu
> penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan
> menjadi :
> =SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
> Apakah benar formula di G10 akan berbunyi demikian ?
> ------------
>
>
>
>
>
>
>
>
>
>
file terlampir tidak menggunakan VBA untuk menyusun rekap tersebut.
Perhatikan susunan formulanya, peletakan tanda $ dalam merujuk cell,
penyusunan nilai-nilai kriteria dalam dataset output.
Jika sudah memahami duduk perkara cara mengkalkulasi dengan formula, maka
formula tersebut bisa dipasang dengan VBA seperti contoh yang pernah
dilampirkan tempo hari.
Wassalam,
Kid.
2012/8/30 Titis Ardiyana Wulandari <tiez_2289@yahoo.
> **
>
>
> Pak Hendrik & Pak Kid,
>
> ini contoh nya, saya ingin menggunakan rumus seperti contoh diatas, tapi
> menggunakan macro bagaimana penulisan rumusnya?
>
> terimakasih banyak sebelumnya..
>
> ------------
> *From:* hendrik karnadi <hendrikkarnadi@
> *To:* "belajar-excel@
> *Sent:* Wednesday, August 29, 2012 10:57 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Dear Mbak Titis,
> Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
>
> Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat
> terstruktur, mis,
> If Condition Then
> bla bla bla
> Else
> la la la
> End If
>
> Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda
> maksud dengan :
> "apakah bisa rumus diatas di sum dengan rumus dibawah ini"
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* Titis Ardiyana Wulandari <tiez_2289@yahoo.
> *To:* "belajar-excel@
> *Sent:* Wednesday, 29 August 2012, 22:12
> *Subject:* Re: [belajar-excel] MACRO
>
>
> terimakasih untuk jawabannya Mr.Kid,
> tanya lagi..
> kalau saya punya rumus dibawah ini:
>
> Sub coba1()
>
> Range("F135"
> ActiveCell.FormulaR
> Else
> If Range("F7") = "D" Then
> Range("F135"
> ActiveCell.FormulaR
> Else
> If Range("F7") = "N" Then
> Range("F135"
> ActiveCell.FormulaR
> Else
> Range("F135"
> ActiveCell.FormulaR
> End If
> End If
> End If
> End Sub
>
> apakah bisa rumus diatas di sum dengan rumus dibawah ini:
>
> Range("F135"
> ActiveCell.FormulaR
> Else
> If Range("F8") = "D" Then
> Range("F135"
> ActiveCell.FormulaR
> Else
> If Range("F8") = "N" Then
> Range("F135"
> ActiveCell.FormulaR
> Else
> Range("F135"
> ActiveCell.FormulaR
> End If
> End If
> End If
>
> ------------
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Wednesday, August 29, 2012 9:41 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Koreksi Mods...
> Formula :
> =SUM((IF(f8=
>
> adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula
> :
> =SUM((IF(A1=
> dan di-copy ke cell lain.
>
> Wassalam,
> Kid.
>
>
> 2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
> **
>
> salam kenal.
>
> terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
> langsung saja.
> saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
> =SUM((IF(A1=
>
> bagaimana menuliskanya di macro?
> dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana
> menuliskannya di macro?
>
> terimaksih banyak atas bantuannya
>
> --- Mods ---
> Selamat bergabung dengan milis Belajar-Excel.
>
> File lampiran dapat membantu BeExceller yang ingin turut berbagi
> alternatif solusi.
>
> Dari penjelasan mbak Wulan di atas :
> Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan
> dipasang pada cells lain yang pada range A3:G10.
>
> Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu
> penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan
> menjadi :
> =SUM((IF(f8=
>
> Apakah benar formula di G10 akan berbunyi demikian ?
> ------------
>
>
>
>
>
>
>
>
>
>
Thu Aug 30, 2012 6:24 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Masya Allah,
ternyata lampirannya ketinggalan...
Maafkan daku...
Wassalam,
Kid.
2012/8/30 Kid Mr. <mr.nmkid@gmail.com >
> mbak Wulan,
>
> file terlampir tidak menggunakan VBA untuk menyusun rekap tersebut.
> Perhatikan susunan formulanya, peletakan tanda $ dalam merujuk cell,
> penyusunan nilai-nilai kriteria dalam dataset output.
>
> Jika sudah memahami duduk perkara cara mengkalkulasi dengan formula, maka
> formula tersebut bisa dipasang dengan VBA seperti contoh yang pernah
> dilampirkan tempo hari.
>
> Wassalam,
> Kid.
>
>
> 2012/8/30 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
>> **
>>
>>
>> Pak Hendrik & Pak Kid,
>>
>> ini contoh nya, saya ingin menggunakan rumus seperti contoh diatas, tapi
>> menggunakan macro bagaimana penulisan rumusnya?
>>
>> terimakasih banyak sebelumnya..
>>
>> ------------------------------
>> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com >
>> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>> *Sent:* Wednesday, August 29, 2012 10:57 PM
>> *Subject:* Re: [belajar-excel] MACRO
>>
>>
>> Dear Mbak Titis,
>> Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
>>
>> Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat
>> terstruktur, mis,
>> If Condition Then
>> bla bla bla
>> Else
>> la la la
>> End If
>>
>> Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda
>> maksud dengan :
>> "apakah bisa rumus diatas di sum dengan rumus dibawah ini"
>>
>> Salam,
>> Hendrik Karnadi
>>
>> ------------------------------
>> *From:* Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>> *Sent:* Wednesday, 29 August 2012, 22:12
>> *Subject:* Re: [belajar-excel] MACRO
>>
>>
>> terimakasih untuk jawabannya Mr.Kid,
>> tanya lagi..
>> kalau saya punya rumus dibawah ini:
>>
>> Sub coba1()
>>
>> Range("F135").Select
>> ActiveCell.FormulaR1C1 = 1
>> Else
>> If Range("F7") = "D" Then
>> Range("F135").Select
>> ActiveCell.FormulaR1C1 = 1
>> Else
>> If Range("F7") = "N" Then
>> Range("F135").Select
>> ActiveCell.FormulaR1C1 = 1
>> Else
>> Range("F135").Select
>> ActiveCell.FormulaR1C1 = 0
>> End If
>> End If
>> End If
>> End Sub
>>
>> apakah bisa rumus diatas di sum dengan rumus dibawah ini:
>>
>> Range("F135").Select
>> ActiveCell.FormulaR1C1 = 1
>> Else
>> If Range("F8") = "D" Then
>> Range("F135").Select
>> ActiveCell.FormulaR1C1 = 1
>> Else
>> If Range("F8") = "N" Then
>> Range("F135").Select
>> ActiveCell.FormulaR1C1 = 1
>> Else
>> Range("F135").Select
>> ActiveCell.FormulaR1C1 = 0
>> End If
>> End If
>> End If
>>
>> ------------------------------
>> *From:* Kid Mr. <mr.nmkid@gmail.com >
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Wednesday, August 29, 2012 9:41 PM
>> *Subject:* Re: [belajar-excel] MACRO
>>
>>
>> Koreksi Mods...
>> Formula :
>> =SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>>
>> adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi
>> formula :
>> =SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
>> dan di-copy ke cell lain.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>>
>> **
>>
>> salam kenal.
>>
>> terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>>
>> langsung saja.
>> saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
>> =SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
>>
>> bagaimana menuliskanya di macro?
>> dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana
>> menuliskannya di macro?
>>
>> terimaksih banyak atas bantuannya
>>
>> --- Mods ---
>> Selamat bergabung dengan milis Belajar-Excel.
>>
>> File lampiran dapat membantu BeExceller yang ingin turut berbagi
>> alternatif solusi.
>>
>> Dari penjelasan mbak Wulan di atas :
>> Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula
>> akan dipasang pada cells lain yang pada range A3:G10.
>>
>> Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu
>> penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan
>> menjadi :
>> =SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>>
>> Apakah benar formula di G10 akan berbunyi demikian ?
>> ------------
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
ternyata lampirannya ketinggalan.
Maafkan daku...
Wassalam,
Kid.
2012/8/30 Kid Mr. <mr.nmkid@gmail.
> mbak Wulan,
>
> file terlampir tidak menggunakan VBA untuk menyusun rekap tersebut.
> Perhatikan susunan formulanya, peletakan tanda $ dalam merujuk cell,
> penyusunan nilai-nilai kriteria dalam dataset output.
>
> Jika sudah memahami duduk perkara cara mengkalkulasi dengan formula, maka
> formula tersebut bisa dipasang dengan VBA seperti contoh yang pernah
> dilampirkan tempo hari.
>
> Wassalam,
> Kid.
>
>
> 2012/8/30 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
>> **
>>
>>
>> Pak Hendrik & Pak Kid,
>>
>> ini contoh nya, saya ingin menggunakan rumus seperti contoh diatas, tapi
>> menggunakan macro bagaimana penulisan rumusnya?
>>
>> terimakasih banyak sebelumnya..
>>
>> ------------
>> *From:* hendrik karnadi <hendrikkarnadi@
>> *To:* "belajar-excel@
>> *Sent:* Wednesday, August 29, 2012 10:57 PM
>> *Subject:* Re: [belajar-excel] MACRO
>>
>>
>> Dear Mbak Titis,
>> Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
>>
>> Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat
>> terstruktur, mis,
>> If Condition Then
>> bla bla bla
>> Else
>> la la la
>> End If
>>
>> Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda
>> maksud dengan :
>> "apakah bisa rumus diatas di sum dengan rumus dibawah ini"
>>
>> Salam,
>> Hendrik Karnadi
>>
>> ------------
>> *From:* Titis Ardiyana Wulandari <tiez_2289@yahoo.
>> *To:* "belajar-excel@
>> *Sent:* Wednesday, 29 August 2012, 22:12
>> *Subject:* Re: [belajar-excel] MACRO
>>
>>
>> terimakasih untuk jawabannya Mr.Kid,
>> tanya lagi..
>> kalau saya punya rumus dibawah ini:
>>
>> Sub coba1()
>>
>> Range("F135"
>> ActiveCell.FormulaR
>> Else
>> If Range("F7") = "D" Then
>> Range("F135"
>> ActiveCell.FormulaR
>> Else
>> If Range("F7") = "N" Then
>> Range("F135"
>> ActiveCell.FormulaR
>> Else
>> Range("F135"
>> ActiveCell.FormulaR
>> End If
>> End If
>> End If
>> End Sub
>>
>> apakah bisa rumus diatas di sum dengan rumus dibawah ini:
>>
>> Range("F135"
>> ActiveCell.FormulaR
>> Else
>> If Range("F8") = "D" Then
>> Range("F135"
>> ActiveCell.FormulaR
>> Else
>> If Range("F8") = "N" Then
>> Range("F135"
>> ActiveCell.FormulaR
>> Else
>> Range("F135"
>> ActiveCell.FormulaR
>> End If
>> End If
>> End If
>>
>> ------------
>> *From:* Kid Mr. <mr.nmkid@gmail.
>> *To:* belajar-excel@
>> *Sent:* Wednesday, August 29, 2012 9:41 PM
>> *Subject:* Re: [belajar-excel] MACRO
>>
>>
>> Koreksi Mods...
>> Formula :
>> =SUM((IF(f8=
>>
>> adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi
>> formula :
>> =SUM((IF(A1=
>> dan di-copy ke cell lain.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/8/29 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>>
>> **
>>
>> salam kenal.
>>
>> terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>>
>> langsung saja.
>> saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
>> =SUM((IF(A1=
>>
>> bagaimana menuliskanya di macro?
>> dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana
>> menuliskannya di macro?
>>
>> terimaksih banyak atas bantuannya
>>
>> --- Mods ---
>> Selamat bergabung dengan milis Belajar-Excel.
>>
>> File lampiran dapat membantu BeExceller yang ingin turut berbagi
>> alternatif solusi.
>>
>> Dari penjelasan mbak Wulan di atas :
>> Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula
>> akan dipasang pada cells lain yang pada range A3:G10.
>>
>> Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu
>> penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan
>> menjadi :
>> =SUM((IF(f8=
>>
>> Apakah benar formula di G10 akan berbunyi demikian ?
>> ------------
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
Thu Aug 30, 2012 5:27 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Tentang penggunaan fungsi CLng.
CLng adalah fungsi konversi tipe data menjadi bertipe data Long (bilangan
bulat pada interval angka tertentu yang lebih lebar dari pita tipe data
integer)
Excel pada dasarnya selalu berusaha mengkonversi suatu nilai data menjadi
bertipe data dasarnya. Jika nilai data terdiri dari angka seluruhnya, maka
akan diubah menjadi bertipe numerik (umumnya double) dan sebagainya.
Contoh, jika ada suatu nilai data berbunyi :
BELAJAR bertipe string, maka Excel akan mengubahnya menjadi BELAJAR bertipe
string
12345 bertipe string, maka Excel akan mengubahnya menjadi 12345 bertipe
double
45678 bertipe long, maka Excel akan mengubahnya menjadi 45678 bertipe double
41151 bertipe datetime, maka Excel akan mengubahnya menjadi bertipe double
Kejadian diatas tidak berlaku untuk tipedata string jika format cell yang
dituju adalah Text.
Misal, cell i33 diset formatnya berupa Text, maka ketika ada suatu nilai
data berbunyi :
BELAJAR bertipe string, Excel membacanya sebagai data bertipe string, dan
akan ditulis ke cell i33 sebagai string, lalu diformat Text
12345 bertipe string, Excel membacanya sebagai data bertipe string, dan
akan ditulis ke cell i33 sebagai string, lalu diformat Text
45678 bertipe long, Excel membacanya sebagai data bertipe double, dan akan
ditulis ke cell i33 sebagai data bertipe double, lalu diformat Text
41151 bertipe datetime, Excel membacanya sebagai data bertipe double, dan
akan ditulis ke cell i33 sebagai data bertipe double, lalu diformat Text
*Pada kasus ini :*
1. Berdasar kaidah database, maka tabel data pada kasus ini tidak memenuhi
kaidah database. Hal ini disebabkan oleh adanya 2 tipe data dalam sebuah
kolom.
Jika terlalu sulit untuk seluruh kolom data, minimal kolom kuncinya lebih
dulu (kolom X).
Kolom ini berisi tipedata string (record pertama) dan tipe data numerik
(selain record pertama)
2. Pada bentuk struktur output, ada sebuah cell input oleh user (i33) yang
diset formatnya sebagai Text (masih ingat kejadian tentang Excel berusaha
mengkonversi tipe data diatas tadi ya).
3. Pada bentuk struktur output, ada sebuah cell berisi formula memanfaatkan
fungsi lookup dengan lookup value adalah isian user (cell i33).
Karakteristik dasar lookup oleh excel (baik melalui VLookUp, HLookUp,
LookUp, Match), selalu berdasar tipe data lookup value.
Jika i33 diisi data bertipe numerik, maka proses lookup akan memanfaatkan
kolom X yang bertipe numerik saja.
Jika i33 diisi data bertipe string, maka proses lookup akan memanfaatkan
kolom X yang bertipe string saja.
4. Tentang baris kode :
Range("i33").Value = CLng(Right(.Value, 7))
>> A. hasil dari fungsi Right adalah bertipe string. Format cell i33 yang
berupa Text, akan menyebabkan Excel tidak melakukan konversi data dari
string menjadi double karena hasil fungsi Right yang bertipe data string.
Padahal native-nya, tipe data kolom X adalah bertipe numerik.
>> B. dipilih menggunakan CLng karena format cell i33 adalah Text (lihat
nomor 2) dan native-nya data kolom X adalah bertipe numerik.
Akibatnya, ketika user double click di record pertama, hasilnya mestinya
error value.
Jadi, agar prosedur bisa berlaku untuk seluruh record, maka formula di
record pertama kolom X diubah agar menghasilkan tipe data numerik.
Formula yang ada di record pertama kolom X memanfaatkan fungsi concatenate
yang menghasilkan tipe data string.
Dengan mengubah formulanya menjadi : (ubah dulu format cellnya menjadi
berformat general)
=CONCATENATE(F9,F10,F11)+0
maka tipe data kolom X akan seluruhnya bertipe numerik.
Wassalam,
Kid.
2012/8/30 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Ini memang langkah Master.
> Sebelumnya saya coba buat tanpa Cancel = True namun programnya looping
> terus sampai error.
>
> Mr Kid, mau nanya mengenai CLng(Right(.Value, 7)), mengapa kalau CLng dihilangkan
> hasilnya menjadi error, padahal kan tujuh angka tsb (dari kanan) sudah
> merupakan bilangan bulat....
>
> Mohon pencerahannya.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, 30 August 2012, 16:26
> *Subject:* Re: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
>
>
> Coba ubah isi prosedur event worksheet before double click menjadi :
> With Target 'pada object range bernama target
> If .Count = 1 Then 'cek jumlah cell yang di double click
> (hehehe... butuh gak ya?)
> If .Column = 35 Then 'cek indeks kolom yang di double click
> Range("i33").Value = CLng(Right(.Value, 7)) 'ganti isi
> cell i33
> Call cetak 'panggil prosedur cetak
> Cancel = True 'batalkan proses double click
> End If 'akhir blok cek indeks kolom
> End If 'akhir blok cek jumlah cell yang di
> double click
> End With 'akhir blok pada object range bernama
> target
>
> Wassalam,
> Kid.
>
> 2012/8/30 Kelik Pitoyo <kelik@shindengen.co.id >
>
> **
>
> Selamat Siang,
> Yth. Be Exceller,
>
> Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak
> code /makro dan rumus yang saya ambil dari temen-temen.
> Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
> bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview
> form bon BBM,
> Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang
> saya klik untuk di cetak. (harus manual mengganti no BON)
> Bagaimana pemecahannya, mohon pencerahannya.
>
> Terima kasih sebelumnya,
> Salam,
> kelik
>
>
>
>
>
>
CLng adalah fungsi konversi tipe data menjadi bertipe data Long (bilangan
bulat pada interval angka tertentu yang lebih lebar dari pita tipe data
integer)
Excel pada dasarnya selalu berusaha mengkonversi suatu nilai data menjadi
bertipe data dasarnya. Jika nilai data terdiri dari angka seluruhnya, maka
akan diubah menjadi bertipe numerik (umumnya double) dan sebagainya.
Contoh, jika ada suatu nilai data berbunyi :
BELAJAR bertipe string, maka Excel akan mengubahnya menjadi BELAJAR bertipe
string
12345 bertipe string, maka Excel akan mengubahnya menjadi 12345 bertipe
double
45678 bertipe long, maka Excel akan mengubahnya menjadi 45678 bertipe double
41151 bertipe datetime, maka Excel akan mengubahnya menjadi bertipe double
Kejadian diatas tidak berlaku untuk tipedata string jika format cell yang
dituju adalah Text.
Misal, cell i33 diset formatnya berupa Text, maka ketika ada suatu nilai
data berbunyi :
BELAJAR bertipe string, Excel membacanya sebagai data bertipe string, dan
akan ditulis ke cell i33 sebagai string, lalu diformat Text
12345 bertipe string, Excel membacanya sebagai data bertipe string, dan
akan ditulis ke cell i33 sebagai string, lalu diformat Text
45678 bertipe long, Excel membacanya sebagai data bertipe double, dan akan
ditulis ke cell i33 sebagai data bertipe double, lalu diformat Text
41151 bertipe datetime, Excel membacanya sebagai data bertipe double, dan
akan ditulis ke cell i33 sebagai data bertipe double, lalu diformat Text
*Pada kasus ini :*
1. Berdasar kaidah database, maka tabel data pada kasus ini tidak memenuhi
kaidah database. Hal ini disebabkan oleh adanya 2 tipe data dalam sebuah
kolom.
Jika terlalu sulit untuk seluruh kolom data, minimal kolom kuncinya lebih
dulu (kolom X).
Kolom ini berisi tipedata string (record pertama) dan tipe data numerik
(selain record pertama)
2. Pada bentuk struktur output, ada sebuah cell input oleh user (i33) yang
diset formatnya sebagai Text (masih ingat kejadian tentang Excel berusaha
mengkonversi tipe data diatas tadi ya).
3. Pada bentuk struktur output, ada sebuah cell berisi formula memanfaatkan
fungsi lookup dengan lookup value adalah isian user (cell i33).
Karakteristik dasar lookup oleh excel (baik melalui VLookUp, HLookUp,
LookUp, Match), selalu berdasar tipe data lookup value.
Jika i33 diisi data bertipe numerik, maka proses lookup akan memanfaatkan
kolom X yang bertipe numerik saja.
Jika i33 diisi data bertipe string, maka proses lookup akan memanfaatkan
kolom X yang bertipe string saja.
4. Tentang baris kode :
Range("i33")
>> A. hasil dari fungsi Right adalah bertipe string. Format cell i33 yang
berupa Text, akan menyebabkan Excel tidak melakukan konversi data dari
string menjadi double karena hasil fungsi Right yang bertipe data string.
Padahal native-nya, tipe data kolom X adalah bertipe numerik.
>> B. dipilih menggunakan CLng karena format cell i33 adalah Text (lihat
nomor 2) dan native-nya data kolom X adalah bertipe numerik.
Akibatnya, ketika user double click di record pertama, hasilnya mestinya
error value.
Jadi, agar prosedur bisa berlaku untuk seluruh record, maka formula di
record pertama kolom X diubah agar menghasilkan tipe data numerik.
Formula yang ada di record pertama kolom X memanfaatkan fungsi concatenate
yang menghasilkan tipe data string.
Dengan mengubah formulanya menjadi : (ubah dulu format cellnya menjadi
berformat general)
=CONCATENATE(
maka tipe data kolom X akan seluruhnya bertipe numerik.
Wassalam,
Kid.
2012/8/30 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Ini memang langkah Master.
> Sebelumnya saya coba buat tanpa Cancel = True namun programnya looping
> terus sampai error.
>
> Mr Kid, mau nanya mengenai CLng(Right(.
> hasilnya menjadi error, padahal kan tujuh angka tsb (dari kanan) sudah
> merupakan bilangan bulat....
>
> Mohon pencerahannya.
>
> Terima kasih.
>
> Salam,
> Hendrik Karnadi
>
>
> ----- Forwarded Message -----
> *From:* Kid Mr. <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Thursday, 30 August 2012, 16:26
> *Subject:* Re: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
>
>
> Coba ubah isi prosedur event worksheet before double click menjadi :
> With Target 'pada object range bernama target
> If .Count = 1 Then 'cek jumlah cell yang di double click
> (hehehe... butuh gak ya?)
> If .Column = 35 Then 'cek indeks kolom yang di double click
> Range("i33")
> cell i33
> Call cetak 'panggil prosedur cetak
> Cancel = True 'batalkan proses double click
> End If 'akhir blok cek indeks kolom
> End If 'akhir blok cek jumlah cell yang di
> double click
> End With 'akhir blok pada object range bernama
> target
>
> Wassalam,
> Kid.
>
> 2012/8/30 Kelik Pitoyo <kelik@shindengen.
>
> **
>
> Selamat Siang,
> Yth. Be Exceller,
>
> Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak
> code /makro dan rumus yang saya ambil dari temen-temen.
> Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
> bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview
> form bon BBM,
> Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang
> saya klik untuk di cetak. (harus manual mengganti no BON)
> Bagaimana pemecahannya, mohon pencerahannya.
>
> Terima kasih sebelumnya,
> Salam,
> kelik
>
>
>
>
>
>
Thu Aug 30, 2012 5:34 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Mr. Kid atas pencerahannya.
Seingat saya, sejak saya bergabung dengan milis ini hanya 2 Master yang pernah menggunakan CLng, yoitu Mbak Siti dan Mr. Kid.
Salam,
Hendrik Karnadi
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, 30 August 2012, 19:27
Subject: Re: Fw: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
Tentang penggunaan fungsi CLng.
CLng adalah fungsi konversi tipe data menjadi bertipe data Long (bilangan bulat pada interval angka tertentu yang lebih lebar dari pita tipe data integer)
Excel pada dasarnya selalu berusaha mengkonversi suatu nilai data menjadi bertipe data dasarnya. Jika nilai data terdiri dari angka seluruhnya, maka akan diubah menjadi bertipe numerik (umumnya double) dan sebagainya.
Contoh, jika ada suatu nilai data berbunyi :
BELAJAR bertipe string, maka Excel akan mengubahnya menjadi BELAJAR bertipe string
12345 bertipe string, maka Excel akan mengubahnya menjadi 12345 bertipe double
45678 bertipe long, maka Excel akan mengubahnya menjadi 45678 bertipe double
41151 bertipe datetime, maka Excel akan mengubahnya menjadi bertipe double
Kejadian diatas tidak berlaku untuk tipedata string jika format cell yang dituju adalah Text.
Misal, cell i33 diset formatnya berupa Text, maka ketika ada suatu nilai data berbunyi :
BELAJAR bertipe string, Excel membacanya sebagai data bertipe string, dan akan ditulis ke cell i33 sebagai string, lalu diformat Text
12345 bertipe string, Excel membacanya sebagai data bertipe string, dan akan ditulis ke cell i33 sebagai string, lalu diformat Text
45678 bertipe long, Excel membacanya sebagai data bertipe double, dan akan ditulis ke cell i33 sebagai data bertipe double, lalu diformat Text
41151 bertipe datetime, Excel membacanya sebagai data bertipe double, dan akan ditulis ke cell i33 sebagai data bertipe double, lalu diformat Text
Pada kasus ini :
1. Berdasar kaidah database, maka tabel data pada kasus ini tidak memenuhi kaidah database. Hal ini disebabkan oleh adanya 2 tipe data dalam sebuah kolom.
Jika terlalu sulit untuk seluruh kolom data, minimal kolom kuncinya lebih dulu (kolom X).
Kolom ini berisi tipedata string (record pertama) dan tipe data numerik (selain record pertama)
2. Pada bentuk struktur output, ada sebuah cell input oleh user (i33) yang diset formatnya sebagai Text (masih ingat kejadian tentang Excel berusaha mengkonversi tipe data diatas tadi ya).
3. Pada bentuk struktur output, ada sebuah cell berisi formula memanfaatkan fungsi lookup dengan lookup value adalah isian user (cell i33).
Karakteristik dasar lookup oleh excel (baik melalui VLookUp, HLookUp, LookUp, Match), selalu berdasar tipe data lookup value.
Jika i33 diisi data bertipe numerik, maka proses lookup akan memanfaatkan kolom X yang bertipe numerik saja.
Jika i33 diisi data bertipe string, maka proses lookup akan memanfaatkan kolom X yang bertipe string saja.
4. Tentang baris kode :
Range("i33").Value = CLng(Right(.Value, 7))
>> A. hasil dari fungsi Right adalah bertipe string. Format cell i33 yang berupa Text, akan menyebabkan Excel tidak melakukan konversi data dari string menjadi double karena hasil fungsi Right yang bertipe data string. Padahal native-nya, tipe data kolom X adalah bertipe numerik.
>> B. dipilih menggunakan CLng karena format cell i33 adalah Text (lihat nomor 2) dan native-nya data kolom X adalah bertipe numerik.
Akibatnya, ketika user double click di record pertama, hasilnya mestinya error value.
Jadi, agar prosedur bisa berlaku untuk seluruh record, maka formula di record pertama kolom X diubah agar menghasilkan tipe data numerik.
Formula yang ada di record pertama kolom X memanfaatkan fungsi concatenate yang menghasilkan tipe data string.
Dengan mengubah formulanya menjadi : (ubah dulu format cellnya menjadi berformat general)
=CONCATENATE(F9,F10,F11)+0
maka tipe data kolom X akan seluruhnya bertipe numerik.
Wassalam,
Kid.
2012/8/30 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>Ini memang langkah Master.
>Sebelumnya saya coba buat tanpa Cancel = True namun programnya looping terus sampai error.
>
>
>Mr Kid, mau nanya mengenai CLng(Right(.Value, 7)), mengapa kalau CLng dihilangkan hasilnya menjadi error, padahal kan tujuh angka tsb (dari kanan) sudah merupakan bilangan bulat....
>
>
>
>Mohon pencerahannya.
>
>
>Terima kasih.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, 30 August 2012, 16:26
>Subject: Re: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
>
>
>
>Coba ubah isi prosedur event worksheet before double click menjadi :
> With Target 'pada object range bernama target
> If .Count = 1 Then 'cek jumlah cell yang di double click (hehehe... butuh gak ya?)
> If .Column = 35 Then 'cek indeks kolom yang di double click
> Range("i33").Value = CLng(Right(.Value, 7)) 'ganti isi cell i33
> Call cetak 'panggil prosedur cetak
> Cancel = True 'batalkan proses double click
> End If 'akhir blok cek indeks kolom
> End If 'akhir blok cek jumlah cell yang di double click
> End With 'akhir blok pada object range bernama target
>
>Wassalam,
>Kid.
>
>
>2012/8/30 Kelik Pitoyo <kelik@shindengen.co.id >
>
>
>>
>>Selamat Siang,
>>Yth. Be Exceller,
>>
>>Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak code /makro dan rumus yang saya ambil dari temen-temen.
>>Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
>>bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview form bon BBM,
>>Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang saya klik untuk di cetak. (harus manual mengganti no BON)
>>Bagaimana pemecahannya, mohon pencerahannya.
>>
>>Terima kasih sebelumnya,
>>Salam,
>>kelik
>>
>>
>
>
>
Seingat saya, sejak saya bergabung dengan milis ini hanya 2 Master yang pernah menggunakan CLng, yoitu Mbak Siti dan Mr. Kid.
Salam,
Hendrik Karnadi
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Thursday, 30 August 2012, 19:27
Subject: Re: Fw: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
Tentang penggunaan fungsi CLng.
CLng adalah fungsi konversi tipe data menjadi bertipe data Long (bilangan bulat pada interval angka tertentu yang lebih lebar dari pita tipe data integer)
Excel pada dasarnya selalu berusaha mengkonversi suatu nilai data menjadi bertipe data dasarnya. Jika nilai data terdiri dari angka seluruhnya, maka akan diubah menjadi bertipe numerik (umumnya double) dan sebagainya.
Contoh, jika ada suatu nilai data berbunyi :
BELAJAR bertipe string, maka Excel akan mengubahnya menjadi BELAJAR bertipe string
12345 bertipe string, maka Excel akan mengubahnya menjadi 12345 bertipe double
45678 bertipe long, maka Excel akan mengubahnya menjadi 45678 bertipe double
41151 bertipe datetime, maka Excel akan mengubahnya menjadi bertipe double
Kejadian diatas tidak berlaku untuk tipedata string jika format cell yang dituju adalah Text.
Misal, cell i33 diset formatnya berupa Text, maka ketika ada suatu nilai data berbunyi :
BELAJAR bertipe string, Excel membacanya sebagai data bertipe string, dan akan ditulis ke cell i33 sebagai string, lalu diformat Text
12345 bertipe string, Excel membacanya sebagai data bertipe string, dan akan ditulis ke cell i33 sebagai string, lalu diformat Text
45678 bertipe long, Excel membacanya sebagai data bertipe double, dan akan ditulis ke cell i33 sebagai data bertipe double, lalu diformat Text
41151 bertipe datetime, Excel membacanya sebagai data bertipe double, dan akan ditulis ke cell i33 sebagai data bertipe double, lalu diformat Text
Pada kasus ini :
1. Berdasar kaidah database, maka tabel data pada kasus ini tidak memenuhi kaidah database. Hal ini disebabkan oleh adanya 2 tipe data dalam sebuah kolom.
Jika terlalu sulit untuk seluruh kolom data, minimal kolom kuncinya lebih dulu (kolom X).
Kolom ini berisi tipedata string (record pertama) dan tipe data numerik (selain record pertama)
2. Pada bentuk struktur output, ada sebuah cell input oleh user (i33) yang diset formatnya sebagai Text (masih ingat kejadian tentang Excel berusaha mengkonversi tipe data diatas tadi ya).
3. Pada bentuk struktur output, ada sebuah cell berisi formula memanfaatkan fungsi lookup dengan lookup value adalah isian user (cell i33).
Karakteristik dasar lookup oleh excel (baik melalui VLookUp, HLookUp, LookUp, Match), selalu berdasar tipe data lookup value.
Jika i33 diisi data bertipe numerik, maka proses lookup akan memanfaatkan kolom X yang bertipe numerik saja.
Jika i33 diisi data bertipe string, maka proses lookup akan memanfaatkan kolom X yang bertipe string saja.
4. Tentang baris kode :
Range("i33")
>> A. hasil dari fungsi Right adalah bertipe string. Format cell i33 yang berupa Text, akan menyebabkan Excel tidak melakukan konversi data dari string menjadi double karena hasil fungsi Right yang bertipe data string. Padahal native-nya, tipe data kolom X adalah bertipe numerik.
>> B. dipilih menggunakan CLng karena format cell i33 adalah Text (lihat nomor 2) dan native-nya data kolom X adalah bertipe numerik.
Akibatnya, ketika user double click di record pertama, hasilnya mestinya error value.
Jadi, agar prosedur bisa berlaku untuk seluruh record, maka formula di record pertama kolom X diubah agar menghasilkan tipe data numerik.
Formula yang ada di record pertama kolom X memanfaatkan fungsi concatenate yang menghasilkan tipe data string.
Dengan mengubah formulanya menjadi : (ubah dulu format cellnya menjadi berformat general)
=CONCATENATE(
maka tipe data kolom X akan seluruhnya bertipe numerik.
Wassalam,
Kid.
2012/8/30 hendrik karnadi <hendrikkarnadi@
>
>Ini memang langkah Master.
>Sebelumnya saya coba buat tanpa Cancel = True namun programnya looping terus sampai error.
>
>
>Mr Kid, mau nanya mengenai CLng(Right(.
>
>
>
>Mohon pencerahannya.
>
>
>Terima kasih.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Thursday, 30 August 2012, 16:26
>Subject: Re: [belajar-excel] Isian Bon sesuai dengan baris yang di klik
>
>
>
>Coba ubah isi prosedur event worksheet before double click menjadi :
> With Target 'pada object range bernama target
> If .Count = 1 Then 'cek jumlah cell yang di double click (hehehe... butuh gak ya?)
> If .Column = 35 Then 'cek indeks kolom yang di double click
> Range("i33")
> Call cetak 'panggil prosedur cetak
> Cancel = True 'batalkan proses double click
> End If 'akhir blok cek indeks kolom
> End If 'akhir blok cek jumlah cell yang di double click
> End With 'akhir blok pada object range bernama target
>
>Wassalam,
>Kid.
>
>
>2012/8/30 Kelik Pitoyo <kelik@shindengen.
>
>
>>
>>Selamat Siang,
>>Yth. Be Exceller,
>>
>>Sebelumnya saya ucapkan banyak terima kasih dan mohon maaf bila banyak code /makro dan rumus yang saya ambil dari temen-temen.
>>Sebelumnya saya pernah posting hal ini namun dengan permasalahan berbeda,
>>bila saya menginginkan kolom "AI" diklik 2x maka akan muncul print preview form bon BBM,
>>Permasalahan yang saya hadapi isian bon BBM belum sesuai dengan baris yang saya klik untuk di cetak. (harus manual mengganti no BON)
>>Bagaimana pemecahannya, mohon pencerahannya.
>>
>>Terima kasih sebelumnya,
>>Salam,
>>kelik
>>
>>
>
>
>
Thu Aug 30, 2012 8:42 am (PDT) . Posted by:
"Abang Tukang tanya"
Selamat Malam,
Maaf menggangu teman-teman untuk tidur malamnya, saya mau tanya bagaimana cara mengubah otomatis suatu range jika saya merubah
sheetnya, sehingga ketika saya merubah sheetnya dengan saya beri nama misal "A5" maka otomatis pada range yang ditunjuk akan terisi A5.
Mohon bantuannya
Regards,
Abang tukang tanya
Maaf menggangu teman-teman untuk tidur malamnya, saya mau tanya bagaimana cara mengubah otomatis suatu range jika saya merubah
sheetnya, sehingga ketika saya merubah sheetnya dengan saya beri nama misal "A5" maka otomatis pada range yang ditunjuk akan terisi A5.
Mohon bantuannya
Regards,
Abang tukang tanya
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