15 New Messages
Digest #1925
3b
Re: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih by "hendrik karnadi" hendrikkarnadi
3c
Bls: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih by "Winda Miranti" winda_1504
Messages
Thu Nov 22, 2012 2:39 pm (PST) . Posted by:
"ngademin Thohari" ngademinth
mr. kid
terima kasih atas penjelasannnya yang gamblang walaupun pemahaman saya masaih kurang,
saya coba telaah dulu dan saya laporkan ke milis
terima kasih
amin
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 22 November 2012 21:42
Judul: Re: [belajar-excel] verify data setiap 2 jam sekali
Ops opsinya bukan bukan Current Module, tetapi pilih Current Project atau Current VBAProject gitu...
hehehe...
Wassalam,
Kid.
2012/11/22 Mr. Kid <mr.nmkid@gmail.com >
Coba juga untuk mengubah nama prosedur SetTimer dengan nama lain seperti SetMyTimer
>Caranya :
>1. aktifkan Module1
>2. CTRL H
>3. Find : SetTimer ; Replace : SetMyTimer ; opsi pilih CurrentModule ; tekan Replace All
>4. ganti bagian Find bertuliskan StopTimer ; replace menjadi StopMyTimer ; opsi pilih current module ; tekan replace all
>5. tekan Cancel
>6. save workbook dan tutup workbook
>7. buka lagi workbooknya
>
>Wassalam,
>Kid.
>
>
>2012/11/22 Mr. Kid <mr.nmkid@gmail.com >
>
>
>Application.OnTime tidak ada bedanya antara xl2007 dengan versi lainnya.
>>
>>Script aktifkan pesan thread agar prosedur SetTimer dijalankan diwaktu tertentu :
>>Public Sub SetTimer()
>> Dim lState As Long 'var status locked (0 = false alias bisa diubah isi cellnya, selainnya tidak bisa)
>> Dim dtNext As Date 'data waktu akan dijalankannya lagi prosedur settimer ini
>>
>> dtNext = Now() 'nilai waktu awal
>> lState = (Hour(dtNext) + 3) Mod 4 'set status
>> Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True 'proteksi sheet
>> Sheet1.Range("i2").Locked = (lState <> 0) 'set properti locked milik cell i2
>>
>> 'menentukan waktu untuk dijalankannya lagi prosedur settimer
>>
>> dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2 - lState Mod 2 & ":00:00")
>>
>> 'proses pesan thread agar pada waktu dtNext, prosedur bernama SetTimer dijalankan
>>
>> Application.OnTime dtNext, "SetTimer"
>>End Sub
>>
>>Script pembatalan pesanan thread proses di atas :
>>Public Sub StopTimer()
>> On Error Resume Next 'trap error
>>
>> 'batalkan pesanan thread
>>
>> Application.OnTime Now + TimeValue("00:00:01"), "SetTimer", schedule:=False
>>
>> 'clear error dan set trap error kembali seperti semula
>>
>> Err.Clear
>> On Error GoTo 0
>>End Sub
>>
>>Jika masih error, coba :
>>1. hapus dim dtNext as date dari dalam prosedur SetTimer
>>2. buat deklarasi pada level module dengan scope public untuk variabel dtNext bertipe date (sebelum prosedur SetTimer = baris kedua dalam lembar script)
>>public dtNext as date
>>3. pada prosedur stoptimer bagian :
>>
>>Now + TimeValue("00:00:01")
>>
diubah menjadi :
>>dtnext
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>On Thu, Nov 22, 2012 at 8:12 PM, ngademin Thohari <ngademinth@yahoo.co.id > wrote:
>>
>>
>>>
>>>mr. kid
>>>sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
>>>
>>>Option Explicit
>>>
>>>Public Sub SetTimer()
>>> Dim lState As Long
>>> Dim dtNext As Date
>>>
>>> dtNext = Now()
>>> lState = (Hour(dtNext) + 3) Mod 4
>>> Sheet1.Protect "Belajar-Excel", userinterfaceonly:=True
>>> Sheet1.Range("i2").Locked = (lState <> 0)
>>> dtNext = Int(Now) + TimeValue(Hour(dtNext) & ":00:00") + TimeValue(2 - lState Mod 2 & ":00:00")
>>> Application.OnTime dtNext, "SetTimer"
>>>End Sub
>>>
>>>Public Sub StopTimer()
>>> On Error Resume Next
>>> Application.OnTime Now + TimeValue("00:00:01"), "SetTimer", schedule:=False
>>> Err.Clear
>>> On Error GoTo 0
>>>End Sub
>>>
>>>terima kasih
>>>
>>>amin
>>>
>>>
>>
>
terima kasih atas penjelasannnya yang gamblang walaupun pemahaman saya masaih kurang,
saya coba telaah dulu dan saya laporkan ke milis
terima kasih
amin
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 22 November 2012 21:42
Judul: Re: [belajar-excel] verify data setiap 2 jam sekali
Ops opsinya bukan bukan Current Module, tetapi pilih Current Project atau Current VBAProject gitu...
hehehe...
Wassalam,
Kid.
2012/11/22 Mr. Kid <mr.nmkid@gmail.
Coba juga untuk mengubah nama prosedur SetTimer dengan nama lain seperti SetMyTimer
>Caranya :
>1. aktifkan Module1
>2. CTRL H
>3. Find : SetTimer ; Replace : SetMyTimer ; opsi pilih CurrentModule ; tekan Replace All
>4. ganti bagian Find bertuliskan StopTimer ; replace menjadi StopMyTimer ; opsi pilih current module ; tekan replace all
>5. tekan Cancel
>6. save workbook dan tutup workbook
>7. buka lagi workbooknya
>
>Wassalam,
>Kid.
>
>
>2012/11/22 Mr. Kid <mr.nmkid@gmail.
>
>
>Application.
>>
>>Script aktifkan pesan thread agar prosedur SetTimer dijalankan diwaktu tertentu :
>>Public Sub SetTimer()
>> Dim lState As Long 'var status locked (0 = false alias bisa diubah isi cellnya, selainnya tidak bisa)
>> Dim dtNext As Date 'data waktu akan dijalankannya lagi prosedur settimer ini
>>
>> dtNext = Now() 'nilai waktu awal
>> lState = (Hour(dtNext) + 3) Mod 4 'set status
>> Sheet1.Protect "Belajar-Excel"
>> Sheet1.Range(
>>
>> 'menentukan waktu untuk dijalankannya lagi prosedur settimer
>>
>> dtNext = Int(Now) + TimeValue(Hour(
>>
>> 'proses pesan thread agar pada waktu dtNext, prosedur bernama SetTimer dijalankan
>>
>> Application.
>>End Sub
>>
>>Script pembatalan pesanan thread proses di atas :
>>Public Sub StopTimer()
>> On Error Resume Next 'trap error
>>
>> 'batalkan pesanan thread
>>
>> Application.
>>
>> 'clear error dan set trap error kembali seperti semula
>>
>> Err.Clear
>> On Error GoTo 0
>>End Sub
>>
>>Jika masih error, coba :
>>1. hapus dim dtNext as date dari dalam prosedur SetTimer
>>2. buat deklarasi pada level module dengan scope public untuk variabel dtNext bertipe date (sebelum prosedur SetTimer = baris kedua dalam lembar script)
>>public dtNext as date
>>3. pada prosedur stoptimer bagian :
>>
>>Now + TimeValue("00:
>>
diubah menjadi :
>>dtnext
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>On Thu, Nov 22, 2012 at 8:12 PM, ngademin Thohari <ngademinth@yahoo.
>>
>>
>>>
>>>mr. kid
>>>sudi kah kiranya menjelaskan di bawah ini, saya masih bingung plus awam
>>>
>>>Option Explicit
>>>
>>>Public Sub SetTimer()
>>> Dim lState As Long
>>> Dim dtNext As Date
>>>
>>> dtNext = Now()
>>> lState = (Hour(dtNext) + 3) Mod 4
>>> Sheet1.Protect "Belajar-Excel"
>>> Sheet1.Range(
>>> dtNext = Int(Now) + TimeValue(Hour(
>>> Application.
>>>End Sub
>>>
>>>Public Sub StopTimer()
>>> On Error Resume Next
>>> Application.
>>> Err.Clear
>>> On Error GoTo 0
>>>End Sub
>>>
>>>terima kasih
>>>
>>>amin
>>>
>>>
>>
>
Thu Nov 22, 2012 5:20 pm (PST) . Posted by:
"abdul dedy" abduldedysubhansyah
dear suhu excel
semoga lampiran kali ini sudah memenuhi syarat
masih seperti kemarin, apa yang salah dengan IF saya ya?
berikut yang saya input ke dalam cell
=IF(AND(C3=0,D3=0,E3=0,F3=0,ISNUMBER(SEARCH("X",A3))),"BelumBayar",IF(ISNUMBER(SEARCH("X",A3)),"PenggantiTolakan",IF(AND(B3-K3<>0,C3=0,D3=0,E3=0,F3=0),"BelumBayar",IF(AND(B3=0,OR(C3+K3=0,D3+K3=0,E3+K3=0,F3+K3=0)),"PelunasanNotaPutih",IF(OR(AND(B3=K3,B3+C3=0),AND(B3=K3,B3+D3=0),AND(B3=K3,B3+E3=0),AND(B3=K3,B3+F3=0)),"PembayaranInvoice",IF(AND(B3=K3,OR(C3+H3+A3=0,D3+H3+A3=0,E3+H3+A3=0,F3+H3+A3=0)),"PembayaranInvoice",""))))))
thanks
semoga lampiran kali ini sudah memenuhi syarat
masih seperti kemarin, apa yang salah dengan IF saya ya?
berikut yang saya input ke dalam cell
=IF(AND(C3=0,
thanks
Thu Nov 22, 2012 6:28 pm (PST) . Posted by:
"Bagus" bagus4bls
Pak Abdul;
File terlampir semoga sesuai harapan
Bagus
----- Original Message -----
From: abdul dedy
To: belajar-excel@yahoogroups.com
Sent: Friday, November 23, 2012 7:36 AM
Subject: [belajar-excel] APA YANG SALAH??? (fungsi IF)
dear suhu excel
semoga lampiran kali ini sudah memenuhi syarat
masih seperti kemarin, apa yang salah dengan IF saya ya?
berikut yang saya input ke dalam cell
=IF(AND(C3=0,D3=0,E3=0,F3=0,ISNUMBER(SEARCH("X",A3))),"BelumBayar",IF(ISNUMBER(SEARCH("X",A3)),"PenggantiTolakan",IF(AND(B3-K3<>0,C3=0,D3=0,E3=0,F3=0),"BelumBayar",IF(AND(B3=0,OR(C3+K3=0,D3+K3=0,E3+K3=0,F3+K3=0)),"PelunasanNotaPutih",IF(OR(AND(B3=K3,B3+C3=0),AND(B3=K3,B3+D3=0),AND(B3=K3,B3+E3=0),AND(B3=K3,B3+F3=0)),"PembayaranInvoice",IF(AND(B3=K3,OR(C3+H3+A3=0,D3+H3+A3=0,E3+H3+A3=0,F3+H3+A3=0)),"PembayaranInvoice",""))))))
thanks
File terlampir semoga sesuai harapan
Bagus
----- Original Message -----
From: abdul dedy
To: belajar-excel@
Sent: Friday, November 23, 2012 7:36 AM
Subject: [belajar-excel] APA YANG SALAH??? (fungsi IF)
dear suhu excel
semoga lampiran kali ini sudah memenuhi syarat
masih seperti kemarin, apa yang salah dengan IF saya ya?
berikut yang saya input ke dalam cell
=IF(AND(C3=0,
thanks
Thu Nov 22, 2012 7:51 pm (PST) . Posted by:
"abdul dedy" abduldedysubhansyah
Dear Bagus
sepertinya masih ada yang aneh
di cell J1160 & J1163 seharusnya "BELUM BAYAR", karena B3 = 0, dan yang kosong (""), harusnya "PEMBAYARAN INVOICE", tapi dapet inspirasi dari IFnya agan jadi deh ane modified dikit-dikit jadi gini
=IF(AND(SUM(C3:F3)=0,ISNUMBER(SEARCH("X",A3))),"BelumBayar",IF(AND(ISNUMBER(SEARCH("X",A3)),SUM(C3:F3)+K3=0),"PenggantiTolakan",IF(AND(B3-K3<>0,SUM(C3:F3)=0),"BelumBayar",IF(AND(B3=0,OR(SUM(C3:F3)+K3=0)),"PelunasanNotaPutih",IF(AND(OR(B3=K3,B3<>K3),SUM(C3:F3)+B3+H3=0),"PembayaranInvoice","")))))
THANKS BERAT YA AGAN BAGUS
>________________________________
>Dari: Bagus <bagus@kingjim.co.id >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Jumat, 23 November 2012 10:26
>Judul: Re: [belajar-excel] APA YANG SALAH??? (fungsi IF)
>
>
>Pak Abdul;
>
>File terlampir semoga sesuai harapan
>
>
>Bagus
>
>----- Original Message -----
>>From: abdul dedy
>>To: belajar-excel@yahoogroups.com
>>Sent: Friday, November 23, 2012 7:36 AM
>>Subject: [belajar-excel] APA YANG SALAH??? (fungsi IF)
>>
>>
>>dear suhu excel
>>
>>semoga lampiran kali ini sudah memenuhi syarat
>>
>>masih seperti kemarin, apa yang salah dengan IF saya ya?
>>
>>berikut yang saya input ke dalam cell
>>
>>=IF(AND(C3=0,D3=0,E3=0,F3=0,ISNUMBER(SEARCH("X",A3))),"BelumBayar",IF(ISNUMBER(SEARCH("X",A3)),"PenggantiTolakan",IF(AND(B3-K3<>0,C3=0,D3=0,E3=0,F3=0),"BelumBayar",IF(AND(B3=0,OR(C3+K3=0,D3+K3=0,E3+K3=0,F3+K3=0)),"PelunasanNotaPutih",IF(OR(AND(B3=K3,B3+C3=0),AND(B3=K3,B3+D3=0),AND(B3=K3,B3+E3=0),AND(B3=K3,B3+F3=0)),"PembayaranInvoice",IF(AND(B3=K3,OR(C3+H3+A3=0,D3+H3+A3=0,E3+H3+A3=0,F3+H3+A3=0)),"PembayaranInvoice",""))))))
>>
>>thanks
>
sepertinya masih ada yang aneh
di cell J1160 & J1163 seharusnya "BELUM BAYAR", karena B3 = 0, dan yang kosong (""), harusnya "PEMBAYARAN INVOICE", tapi dapet inspirasi dari IFnya agan jadi deh ane modified dikit-dikit jadi gini
=IF(AND(SUM(
THANKS BERAT YA AGAN BAGUS
>___________
>Dari: Bagus <bagus@kingjim.
>Kepada: belajar-excel@
>Dikirim: Jumat, 23 November 2012 10:26
>Judul: Re: [belajar-excel] APA YANG SALAH??? (fungsi IF)
>
>
>Pak Abdul;
>
>File terlampir semoga sesuai harapan
>
>
>Bagus
>
>----- Original Message -----
>>From: abdul dedy
>>To: belajar-excel@
>>Sent: Friday, November 23, 2012 7:36 AM
>>Subject: [belajar-excel] APA YANG SALAH??? (fungsi IF)
>>
>>
>>dear suhu excel
>>
>>semoga lampiran kali ini sudah memenuhi syarat
>>
>>masih seperti kemarin, apa yang salah dengan IF saya ya?
>>
>>berikut yang saya input ke dalam cell
>>
>>=IF(AND(C3=
>>
>>thanks
>
Thu Nov 22, 2012 8:29 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sedikit menyimpulkan dari kiriman Pak Bagus (yang sampai melebihi batas
250KB ~masuk moderated deh~)
sekalian dongeng jumat pagi kali ya... :)
Dari formula Pak Abdul yang berbunyi :
=IF( AND( C3=0,D3=0,E3=0,F3=0
,ISNUMBER( SEARCH("X",A3) )
)
,"BelumBayar"
,IF( ISNUMBER( SEARCH("X",A3) )
,"PenggantiTolakan"
,IF( AND(B3-K3<>0,C3=0,D3=0,E3=0,F3=0)
,"BelumBayar"
,IF( AND(B3=0
,OR(C3+K3=0,D3+K3=0,E3+K3=0,F3+K3=0)
)
,"PelunasanNotaPutih"
,IF( OR( AND(B3=K3,B3+C3=0)
,AND(B3=K3,B3+D3=0)
,AND(B3=K3,B3+E3=0)
,AND(B3=K3,B3+F3=0)
)
,"PembayaranInvoice"
,IF( AND(B3=K3
,*OR(C3+H3+A3=0,D3+H3+A3=0,E3+H3+A3=0,F3+H3+A3
=0)*
)
,"PembayaranInvoice"
,""
)
)
)
)
)
)
rujukan ke *A3* yang bertipe string-lah yang menimbulkan error value #Value!
Pak Bagus kemudian mengasumsikan bahwa *A3 *mungkin merujuk ke *B3 *seperti
pola kondisi (IF) sebelum bagian tersebut.
Berikut formula dari Pak Bagus :
=IF(ISNUMBER(SEARCH("X",A3)),"PenggantiTolakan",IF(AND(B3-K3<>0,SUM(C3:F3)=0),"BelumBayar",IF(AND(B3=0,OR(SUM(C3:F3)+K3=0))
,"PelunasanNotaPutih",IF(AND(B3=K3,*SUM(C3:F3)+B3+H3=0*
),"PembayaranInvoice",""))))
Bagian yang font-nya *dibesarken*, yang ada dalam formula pak Abdul dan Pak
Bagus (yang A3-nya Pak Abdul sudah diganti B3)
adalah bagian yang sama secara urutan susunan formula, tetapi berbeda
secara makna. *Asumsikan saja B3=K3 bernilai TRUE*.
Setelah dikumpulkan kedua bagian itu, akan tampak seperti : (A3 sudah
diganti dengan B3 supaya sama)
>> Pak Abdul : *OR(C3+H3+B3=0,D3+H3+B3=0,E3+H3+B3=0,F3+H3+B3=0)*
>> Pak Bagus : *SUM(C3:F3)+B3+H3=0*
Sekarang, mari asumsikan saja, nilai : (terlepas dari bagaimana
karakteristik masing-masing makna kolom relatif terhadap kolom lainnya)
H3+B3 adalah -100
C3=25;D3=25;E3=25;F3=25
Formula Pak Abdul akan menghasilkan FALSE karena 25-100=0 adalah FALSE
Formula Pak Bagus akan menghasilkan TRUE karena Sum(25,25,25,25)-100=0
adalah TRUE
Bagaimana kalau dicoba untuk membaca formula Pak Abdul secara utuh...
Dari formula Pak Abdul dapat diketahui ada 5 nilai hasil bertipe text,
yaitu :
1. "BelumBayar"
2. "PenggantiTolakan"
3. "PelunasanNotaPutih"
4. "PembayaranInvoice"
5. nullstring ("")
Hasil nomor 5 adalah ketika seluruh kriteria penentu 4 nilai hasil lainnya
tidak dapat terpenuhi.
Mari ditelaah satu per satu kriterianya.
1. "BelumBayar"
>> Harus memenuhi kondisi :
A. *AND(C3=0,D3=0,E3=0,F3=0,ISNUMBER(SEARCH("X",A3)))*
*atau *B. *AND(B3-K3<>0,C3=0,D3=0,E3=0,F3=0)*
>> dengan kata *atau*, maka susunan bisa disatukan menjadi :
* AND(C3=0,D3=0,E3=0,F3=0,OR(ISNUMBER(SEARCH("X",A3)),B3-K3<>0))*
>> susunan tersebut bisa disederhanakan menjadi : (AND ~ perkalian ; OR ~
penjumlahan)
*AND(C3=0,D3=0,E3=0,F3=0**)*(**ISNUMBER(SEARCH("X",A3))+**(B3-K3<>0**)
)*
>> bagian *B3-K3<>0* yang berarti B3 dikurangi K3 bukan 0 bisa diubah
menjadi *B3<>K3* karena *B3-K3<>0* tercapai jika B3 tidak sama (<>) dengan 0
>> bagian *ISNUMBER(SEARCH("X",A3))* adalah pemeriksaan akan kehadiran
karakter 'X' di A3, yang bisa juga diungkapkan dengan : *CountIF(A3,"*X*")*
>> jadi kriteria nomor 1 bisa menjadi :
*AND(C3=0,D3=0,E3=0,F3=0**)*(**CountIF(A3,"*X*")+**(B3<>K3**))*
>> Sampai disini, formula didapatkan baru berbentuk :
=IF( *AND(C3=0,D3=0,E3=0,F3=0**)*(**CountIF(A3,"*X*")+**(B3<>K3**))*
,"BelumBayar", 'kondisi nomor 2 nanti disini' )
2. "PenggantiTolakan"
>> Harus memenuhi kondisi : ISNUMBER( SEARCH("X",A3)
>> pada nomor 1 sudah didapatkan bahwa kondisi seperti ini bisa diganti
dengan : *CountIF(A3,"*X*")*
>> susunan formula untuk nomor 2 saja adalah :
*IF( CountIF(A3,"*X*" , "PenggantiTolakan" , 'kondisi nomor 3 nanti
disini' )*
>> Ketika kondisi nomor 2 ini masuk ke formula nomor 1, maka akan menjadi
=IF( *AND(C3=0,D3=0,E3=0,F3=0**)*(**CountIF(A3,"*X*")+**(B3<>K3**))*
, "BelumBayar"
, *IF( CountIF(A3,"*X*" , "PenggantiTolakan" , 'kondisi nomor 3
nanti disini' ) *
)
3. "PelunasanNotaPutih"
>> Harus memenuhi kondisi :
AND(B3=0,OR(C3+K3=0,D3+K3=0,E3+K3=0,F3+K3=0)
>> dengan AND setara perkalian (*) dan OR setara penjumlahan (+), maka bisa
diubah menjadi :
(B3=0)*((C3=-K3)+(D3=-K3)+(E3=-K3)+(F3=-K3))
>> Karena bagian merah (OR) hanya membutuhkan minimal 1 bagian saja yang
benar untuk menghasilkan nilai TRUE,
maka pola susunan yang dibandingkan, yaitu cell C3 sampai F3, hanya
cukup dihitung mininal 1 (atau ada) yang sesuai.
>> Ungkapan bagian OR itu, yaitu bagian ((C3=-K3)+(D3=-K3)+(E3=-K3)+(F3=-K3)
), dapat disederhanakan menjadi :
CountIF(C3:F3,-K3)
>> Jadi, kriteria untuk memenuhi nomor 3 ini adalah :
(B3=0)*CountIF(C3:F3,-K3)
>> Formula kondisi untuk nomor 3 saja adalah :
*IF( **(B3=0)*CountIF(C3:F3,-K3) , **"PelunasanNotaPutih" , 'kondisi
nomor 4 disini' )*
>> Formula kondisi nomor 3 ketika masuk di formula keseluruhan hasil akhir
nomor 2 akan menjadi :
=IF( *AND(C3=0,D3=0,E3=0,F3=0**)*(**CountIF(A3,"*X*")+**(B3<>K3**))*
, "BelumBayar"
, *IF( CountIF(A3,"*X*"
, "PenggantiTolakan"
, **IF( (B3=0)*CountIF(C3:F3,-K3)
, "PelunasanNotaPutih"
, 'kondisi nomor 4 disini'
)
) *
)
4. "PembayaranInvoice"
>> Harus memenuhi kondisi :
A. OR(
AND(B3=K3,B3+C3=0),AND(B3=K3,B3+D3=0),AND(B3=K3,B3+E3=0),AND(B3=K3,B3+F3=0)
)
*atau* B. AND(B3=K3,*OR(C3+H3+B3=0,D3+H3+B3=0,E3+H3+**B**3=0,F3+H3+B3=0)*
)
>> Bagian A bisa disederhanakan menjadi :
(B3=K3)*(-B3=C3) + (B3=K3)*(-B3=D3) + (B3=K3)*(-B3=E3) +
(B3=K3)*(-B3=F3)
yang dalam matematika (sifat-sifat operasi mematika yang asosiatif,
komutatif, distributif) bisa disederhanakan menjadi :
(B3=K3)*( (-B3=C3) + (-B3=D3) + (-B3=E3) + (-B3=F3) )
-> bagian yang merah bisa diubah menjadi : CountIF(C3:F3,-B3)
-> maka kondisi A menjadi :
(B3=K3)*CountIF(C3:F3,-B3)
>> Bagian B bisa disederhanakan menjadi :
(B3=K3)*CountIF(*C3:F3,-(H3+B3))*
>> Bagian A dengan bagian B dihubungkan dengan *atau *(setara penjumlahan),
maka menjadi :
(B3=K3)*CountIF(C3:F3,-B3) *+* (B3=K3)*CountIF(*C3:F3,-(H3+B3))*
yang bisa disederhanakan lagi menjadi :
(B3=K3)*( CountIF(C3:F3,-B3) *+* CountIF(*C3:F3,-(H3+B3))* )
>> Formula nomor 4 menjadi :
*IF( **(B3=K3)*( CountIF(C3:F3,-B3) + CountIF(C3:F3,-(H3+B3)) ) , *
*"PembayaranInvoice" , 'kondisi nomor 5 disini' )*
>> Ketika dimasukkan ke formula lengkap hasil akhir nomor 3 akan menjadi :
=IF( *AND(C3=0,D3=0,E3=0,F3=0**)*(**CountIF(A3,"*X*")+**(B3<>K3**))*
, "BelumBayar"
, *IF( CountIF(A3,"*X*"
, "PenggantiTolakan"
, **IF( (B3=0)*CountIF(C3:F3,-K3)
, "PelunasanNotaPutih"
, **IF( (B3=K3)*(
CountIF(C3:F3,-B3) + CountIF(C3:F3,-(H3+B3)) )
,
"PembayaranInvoice"
, 'kondisi
nomor 5 disini'
)
)
) *
)
5. nullstring ("")
>> Karena nilai nomor 5 adalah nilai ketika seluruh kondisi 1 sampai 4
tidak terpenuhi, maka formula akhir nomor 4 bagian *'kondisi nomor 5 disini'
* bisa diisi dengan nilai nomor 5 ini.
>> Formula akhir akan menjadi :
=IF( *AND(C3=0,D3=0,E3=0,F3=0**)*(**CountIF(A3,"*X*")+**(B3<>K3**))*
, "BelumBayar"
, *IF( CountIF(A3,"*X*"
, "PenggantiTolakan"
, **IF( (B3=0)*CountIF(C3:F3,-K3)
, "PelunasanNotaPutih"
, **IF( (B3=K3)*(
CountIF(C3:F3,-B3) + CountIF(C3:F3,-(H3+B3)) )
,
"PembayaranInvoice"
, **""
)
)
) *
)
Jika disusun seutuhnya, maka formulanya :
=IF(*AND(C3=0,D3=0,E3=0,F3=0**)*(**CountIF(A3,"*X*")+**(B3<>K3**))*,
"BelumBayar",*IF( CountIF(A3,"*X*","PenggantiTolakan",**IF(**(B3=0)*
CountIF(C3:F3,-K3),"PelunasanNotaPutih",**IF((B3=K3)*(CountIF(C3:F3,-B3)+
CountIF(C3:F3,-(H3+B3))),"PembayaranInvoice",**"")))*)
Tapi, semua dongeng di atas harus dicek lagi...
sapa tahu ada yang terlewatkan dan salah susun.
Wassalam,
Kid.
On Fri, Nov 23, 2012 at 9:26 AM, Bagus <bagus@kingjim.co.id > wrote:
> **
>
>
> **
> Pak Abdul;
>
> File terlampir semoga sesuai harapan
>
>
> Bagus
>
>
> ----- Original Message -----
> *From:* abdul dedy <abduldedysubhansyah@yahoo.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, November 23, 2012 7:36 AM
> *Subject:* [belajar-excel] APA YANG SALAH??? (fungsi IF)
>
>
>
> dear suhu excel
>
> semoga lampiran kali ini sudah memenuhi syarat
>
> masih seperti kemarin, apa yang salah dengan IF saya ya?
>
> berikut yang saya input ke dalam cell
>
>
> =IF(AND(C3=0,D3=0,E3=0,F3=0,ISNUMBER(SEARCH("X",A3))),"BelumBayar",IF(ISNUMBER(SEARCH("X",A3)),"PenggantiTolakan",IF(AND(B3-K3<>0,C3=0,D3=0,E3=0,F3=0),"BelumBayar",IF(AND(B3=0,OR(C3+K3=0,D3+K3=0,E3+K3=0,F3+K3=0)),"PelunasanNotaPutih",IF(OR(AND(B3=K3,B3+C3=0),AND(B3=K3,B3+D3=0),AND(B3=K3,B3+E3=0),AND(B3=K3,B3+F3=0)),"PembayaranInvoice",IF(AND(B3=K3,OR(C3+H3+A3=0,D3+H3+A3=0,E3+H3+A3=0,F3+H3+A3=0)),"PembayaranInvoice",""))))))
>
> thanks
>
> _
>
250KB ~masuk moderated deh~)
sekalian dongeng jumat pagi kali ya... :)
Dari formula Pak Abdul yang berbunyi :
=IF( AND( C3=0,D3=0,E3=
,ISNUMBER( SEARCH("X",A3) )
)
,"BelumBayar"
,IF( ISNUMBER( SEARCH("X",A3) )
,"PenggantiTolakan"
,IF( AND(B3-K3<>0,
,"BelumBayar"
,IF( AND(B3=0
,OR(C3+K3=0,
)
,"PelunasanNotaPuti
,IF( OR( AND(B3=K3,B3+
,AND(B3=K3,B3+
,AND(B3=K3,B3+
,AND(B3=K3,B3+
)
,"PembayaranInvoice
,IF( AND(B3=K3
,*OR(C3+H3+A3=
=0)*
)
,"PembayaranInvoice
,""
)
)
)
)
)
)
rujukan ke *A3* yang bertipe string-lah yang menimbulkan error value #Value!
Pak Bagus kemudian mengasumsikan bahwa *A3 *mungkin merujuk ke *B3 *seperti
pola kondisi (IF) sebelum bagian tersebut.
Berikut formula dari Pak Bagus :
=IF(ISNUMBER(
,"PelunasanNotaPuti
),"PembayaranInvoic
Bagian yang font-nya *dibesarken*
Bagus (yang A3-nya Pak Abdul sudah diganti B3)
adalah bagian yang sama secara urutan susunan formula, tetapi berbeda
secara makna. *Asumsikan saja B3=K3 bernilai TRUE*.
Setelah dikumpulkan kedua bagian itu, akan tampak seperti : (A3 sudah
diganti dengan B3 supaya sama)
>> Pak Abdul : *OR(C3+H3+B3=
>> Pak Bagus : *SUM(C3:F3)+
Sekarang, mari asumsikan saja, nilai : (terlepas dari bagaimana
karakteristik masing-masing makna kolom relatif terhadap kolom lainnya)
H3+B3 adalah -100
C3=25;D3=25;
Formula Pak Abdul akan menghasilkan FALSE karena 25-100=0 adalah FALSE
Formula Pak Bagus akan menghasilkan TRUE karena Sum(25,25,25,
adalah TRUE
Bagaimana kalau dicoba untuk membaca formula Pak Abdul secara utuh...
Dari formula Pak Abdul dapat diketahui ada 5 nilai hasil bertipe text,
yaitu :
1. "BelumBayar"
2. "PenggantiTolakan"
3. "PelunasanNotaPutih
4. "PembayaranInvoice"
5. nullstring ("")
Hasil nomor 5 adalah ketika seluruh kriteria penentu 4 nilai hasil lainnya
tidak dapat terpenuhi.
Mari ditelaah satu per satu kriterianya.
1. "BelumBayar"
>> Harus memenuhi kondisi :
A. *AND(C3=0,D3=
*atau *B. *AND(B3-K3<>
>> dengan kata *atau*, maka susunan bisa disatukan menjadi :
* AND(C3=0,D3=
>> susunan tersebut bisa disederhanakan menjadi : (AND ~ perkalian ; OR ~
penjumlahan)
*AND(C3=0,D3=
)*
>> bagian *B3-K3<>0* yang berarti B3 dikurangi K3 bukan 0 bisa diubah
menjadi *B3<>K3* karena *B3-K3<>0* tercapai jika B3 tidak sama (<>) dengan 0
>> bagian *ISNUMBER(SEARCH(
karakter 'X' di A3, yang bisa juga diungkapkan dengan : *CountIF(A3,
>> jadi kriteria nomor 1 bisa menjadi :
*AND(C3=0,D3=
>> Sampai disini, formula didapatkan baru berbentuk :
=IF( *AND(C3=0,D3=
,"BelumBayar"
2. "PenggantiTolakan"
>> Harus memenuhi kondisi : ISNUMBER( SEARCH("X",A3)
>> pada nomor 1 sudah didapatkan bahwa kondisi seperti ini bisa diganti
dengan : *CountIF(A3,
>> susunan formula untuk nomor 2 saja adalah :
*IF( CountIF(A3,"
disini' )*
>> Ketika kondisi nomor 2 ini masuk ke formula nomor 1, maka akan menjadi
=IF( *AND(C3=0,D3=
, "BelumBayar"
, *IF( CountIF(A3,"
nanti disini' ) *
)
3. "PelunasanNotaPutih
>> Harus memenuhi kondisi :
AND(B3=0,OR(
>> dengan AND setara perkalian (*) dan OR setara penjumlahan (+), maka bisa
diubah menjadi :
(B3=0)*((C3=
>> Karena bagian merah (OR) hanya membutuhkan minimal 1 bagian saja yang
benar untuk menghasilkan nilai TRUE,
maka pola susunan yang dibandingkan, yaitu cell C3 sampai F3, hanya
cukup dihitung mininal 1 (atau ada) yang sesuai.
>> Ungkapan bagian OR itu, yaitu bagian ((C3=-K3)+(D3=
), dapat disederhanakan menjadi :
CountIF(C3:F3,
>> Jadi, kriteria untuk memenuhi nomor 3 ini adalah :
(B3=0)*CountIF(
>> Formula kondisi untuk nomor 3 saja adalah :
*IF( **(B3=0)*CountIF(
nomor 4 disini' )*
>> Formula kondisi nomor 3 ketika masuk di formula keseluruhan hasil akhir
nomor 2 akan menjadi :
=IF( *AND(C3=0,D3=
, "BelumBayar"
, *IF( CountIF(A3,"
, "PenggantiTolakan"
, **IF( (B3=0)*CountIF(
, "PelunasanNotaPutih
, 'kondisi nomor 4 disini'
)
) *
)
4. "PembayaranInvoice"
>> Harus memenuhi kondisi :
A. OR(
AND(B3=K3,B3+
)
*atau* B. AND(B3=K3,*OR(
)
>> Bagian A bisa disederhanakan menjadi :
(B3=K3)*(-B3=
(B3=K3)*(-B3=
yang dalam matematika (sifat-sifat operasi mematika yang asosiatif,
komutatif, distributif) bisa disederhanakan menjadi :
(B3=K3)*( (-B3=C3) + (-B3=D3) + (-B3=E3) + (-B3=F3) )
-> bagian yang merah bisa diubah menjadi : CountIF(C3:F3,
-> maka kondisi A menjadi :
(B3=K3)*CountIF(
>> Bagian B bisa disederhanakan menjadi :
(B3=K3)*CountIF(
>> Bagian A dengan bagian B dihubungkan dengan *atau *(setara penjumlahan)
maka menjadi :
(B3=K3)*CountIF(
yang bisa disederhanakan lagi menjadi :
(B3=K3)*( CountIF(C3:F3,
>> Formula nomor 4 menjadi :
*IF( **(B3=K3)*( CountIF(C3:F3,
*"PembayaranInvoice
>> Ketika dimasukkan ke formula lengkap hasil akhir nomor 3 akan menjadi :
=IF( *AND(C3=0,D3=
, "BelumBayar"
, *IF( CountIF(A3,"
, "PenggantiTolakan"
, **IF( (B3=0)*CountIF(
, "PelunasanNotaPutih
, **IF( (B3=K3)*(
CountIF(C3:F3,
,
"PembayaranInvoice"
, 'kondisi
nomor 5 disini'
)
)
) *
)
5. nullstring ("")
>> Karena nilai nomor 5 adalah nilai ketika seluruh kondisi 1 sampai 4
tidak terpenuhi, maka formula akhir nomor 4 bagian *'kondisi nomor 5 disini'
* bisa diisi dengan nilai nomor 5 ini.
>> Formula akhir akan menjadi :
=IF( *AND(C3=0,D3=
, "BelumBayar"
, *IF( CountIF(A3,"
, "PenggantiTolakan"
, **IF( (B3=0)*CountIF(
, "PelunasanNotaPutih
, **IF( (B3=K3)*(
CountIF(C3:F3,
,
"PembayaranInvoice"
, **""
)
)
) *
)
Jika disusun seutuhnya, maka formulanya :
=IF(*AND(C3=
"BelumBayar"
CountIF(C3:F3,
CountIF(C3:F3,
Tapi, semua dongeng di atas harus dicek lagi...
sapa tahu ada yang terlewatkan dan salah susun.
Wassalam,
Kid.
On Fri, Nov 23, 2012 at 9:26 AM, Bagus <bagus@kingjim.
> **
>
>
> **
> Pak Abdul;
>
> File terlampir semoga sesuai harapan
>
>
> Bagus
>
>
> ----- Original Message -----
> *From:* abdul dedy <abduldedysubhansyah
> *To:* belajar-excel@
> *Sent:* Friday, November 23, 2012 7:36 AM
> *Subject:* [belajar-excel] APA YANG SALAH??? (fungsi IF)
>
>
>
> dear suhu excel
>
> semoga lampiran kali ini sudah memenuhi syarat
>
> masih seperti kemarin, apa yang salah dengan IF saya ya?
>
> berikut yang saya input ke dalam cell
>
>
> =IF(AND(C3=0,
>
> thanks
>
> _
>
Thu Nov 22, 2012 5:39 pm (PST) . Posted by:
"Winda Miranti" winda_1504
Dear Master Excel,
Melanjutkan pembahasan yang lama, ada yang mau saya tanyakan lagi :D
Saya menemukan kendala ketika data yang digunakan itu menggunakan row yg sangat banyak
Apakah ada cara utk mengefektifkan kerja makro sehingga kinerjanya menjadi lebih cepat?
Kemudian saya sudah mencoba utk menggunakan jurus dari Mas Aji utk menemukan baris paling akir
dan sudah coba utk mengotak atik rumus dari mas Hendrik juga utk menemukan baris trakirnya, tapi masi blm bisa
Maklum masi dalam tahap mempelajari makro :D
Mohon pencerahanya para master excel :)
Berikut saya lampirkan data excelnya
Regards,
Winda
________________________________
Dari: Winda Miranti <winda_1504@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 Oktober 2012 13:42
Judul: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Trimakasi master excel atas pencerahanya, akan saya pelajari terlebih dahulu :D
Regards,
Winda
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 Oktober 2012 11:50
Judul: Fw: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Terima kasih Mas Aji atas tambahan ilmunya.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: aji mumpung <pupung1986@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, 19 October 2012, 11:05
Subject: Re: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
ikutan ya.. biar rame hehehe..
cara lain untuk menemukan baris paling akhir adalah menggunakan kode berikut
Cells.SpecialCells(xlCellTypeLastCell).Row
hasilnya disimpan dalam sebuah variabel yang seharusnya sudah dideklarasikan di awal
jadi jika dalam range data terdapat beberapa baris kosing, masih bisa terdeteksi dalam looping For - Next
hal ini juga akan memperpendek waktu proses & mengurangi beban kerja macro yang hanya akan memproses dari baris data awal sampai dengan baris data akhir.. selain itu tidak perlu dilakukan pengecekan
cmiiw (kata mbak'e Colek Me If Im Wrong)
wassalam,
-aji mumpung-
Pada 19 Oktober 2012 10:56, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
>
>Dear Winda,
>
>
>Mengapa yang dibold tidak terbaca?
>Karena disamping baris kosong pertama pada kolom B masih ada data (masih termasuk lingkup CurrentRegion), sedangkan disamping baris kosong kedua pada kolom B tidak ada data jadi tidak ikut terambil.
>
>
>Untuk itu perlu sedikit akal untuk menentukan baris akhir yang ada isinya.
>
>
>Coba lihat macro yang sudah diupdate untuk mengambil baris terakhir yang ada isinya.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>
>________________________________
> From: Winda Miranti <winda_1504@yahoo.co.id >
>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Sent: Friday, 19 October 2012, 9:46
>Subject: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>
>Dear Mas Hendrik,
>
>Trimakasi sekali solusi nya mas hendrik kebenaran saya juga lagi menemukan kasus yang sama
>tapi hanya ingin sebatas per kolom saja misalnya hanya kolom B, saya coba otak atik tapi debug selalu hehe, bgmn cara membatasinya biar hanya membaca satu kolom saja?
>dan saya coba tambahkan data kebawah seperti data telampir, tetapi jika ada baris yg kosong dua kali, data setelah baris kosong yg kedua tersebut tidak terbaca
>Mohon pencerahanya mas hendrik :D
>
>Regards,
>Winda
>
>
>
>
>
>
>________________________________
> Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
>Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Dikirim: Jumat, 19 Oktober 2012 6:05
>Judul: Fw: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>Sekedar selingan, pake macro.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, 18 October 2012, 23:47
>Subject: Re: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>1. Untuk cara 2, ada array formula bantu berbunyi : (cell M3)
>=MIN(IF(COUNTIF(N$2:N2,$B$3:$F$14)=0,ROW($B$3:$F$14)*1000+COLUMN($B$3:$F$14)))
>Kondisi yang ada baru 1, yaitu bagian CountIF. Belum ada pengkondisian berdasar ada atau tidaknya teks dalam data.
>Pengkondisian untuk mengambil cell yang ada datanya saja adalah dengan memeriksa jumlah karakter yang ada di dalam cell tersebut.
>( Len($B$3:$F$14) > 0 )
>
>Jadi, 2 kondisi yang harus digunakan adalah :
>>> ( COUNTIF(N$2:N2,$B$3:$F$14)=0 )
>>> ( Len($B$3:$F$14) > 0 )
>Keduanya harus terpenuhi, artinya harus dihubungkan dengan operator AND yang setara dengan kegiatan operasi matematis perkalian.
>Jadi kedua kondisi akan diekspresikan menjadi :
>( COUNTIF(N$2:N2,$B$3:$F$14)=0 )*( Len($B$3:$F$14) > 0 )
>
>Maka bagian CountIF dalam array formula diganti dengan 2 pengkondisian baru ini akan menjadi :
>=MIN(IF( ( COUNTIF(N$2:N2,$B$3:$F$14)=0 )*( Len($B$3:$F$14) > 0 ) ,ROW($B$3:$F$14)*1000+COLUMN($B$3:$F$14)))
>>> Jangan lupa untuk di-Enter sebagai Array formula dengan CTRL SHIFT ENTER <<
>
>2. Menghitung jumlah unique item (seperti cell H2 atau M2)
>Formula yang ada :
>=SUMPRODUCT(1/COUNTIF(B3:F14,B3:F14))
>Ketika ada cell di B3:F14 yang tidak ada datanya, maka akan menghasilkan hasil countif akan 0. Maka akan ada item yang kalkulasinya berupa 1/0 yang menghasilkan error value #DIV/0!
>Maka efek ketika hasil CountIF adalah 0 harus dinetralisir dengan suatu nilai yang bukan 0. CountIF menghasilkan 0 jika tidak ada data, maka kondisi tidak ada data bisa diubah hasilnya menjadi 1 yang setara TRUE. Maka Len(B3:F14)=0 akan bernilai TRUE ketika B3:F14 tidak ada datanya. Bunyi kondisi terhadap CountIF adalah sebagai berikut :
>>> Jika hasil CountIF adalah 0, maka isi dengan Len(B3:F14)=0
>>> Jika hasil CountIF bukan 0, maka isi dengan hasil CountIF
>Secara harfiah, translatenya ke bahasa formula menjadi :
>IF( COUNTIF(B3:F14,B3:F14)= 0 , ( Len(B3:F14)=0 ) , COUNTIF(B3:F14,B3:F14) )
>Dari kalimat ini, sebenarnya jika diperhatikan secara seksama, akan ada benang merah berbunyi :
>"Nilai hasil CountIF atau Len(B3:F14)=0"
>yang bahasa formulanya :
>( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>Hasilnya, akan didapat bahwa seluruh cell yang tidak ada isinya akan bernilai TRUE (setara 1).
>Maka, 1/COUNTIF(B3:F14,B3:F14)
>akan menjadi :
>1/( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>tetapi, akan terjadi 1/1 ketika cell tidak ada isinya, karena 1/( 0 + TRUE ) = 1/( 0 + 1 ) = 1/1
>Hal ini akan menghasilkan jumlah unique yang tidak tepat. Oleh sebab itu bagian 1 (biru) dalam :
>1/( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>harus berupa pemfilteran bahwa jika cell berisi data maka bernilai 1 dan jika tidak berisi data bernilai 0.
>( Len(B3:F14)>0 )
>Maka formula lengkap :
>=SUMPRODUCT(( Len(B3:F14)>0 ) / ( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) ) )
>
>3. Cara1.
>untuk versi xl2007 (dengan IFError) array formulanya (J3)
>=IFERROR(INDEX($H$3:$H$63,MATCH(0,COUNTIF(J$2:J2,$H$3:$H$63),0)),"")
>untuk semua versi (berdasar jumlah item unique yang mungkin) : (K3)
>=IF(ROW()-2>$H$2,"",INDEX($H$3:$H$63,MATCH(0,COUNTIF(K$2:K2,$H$3:$H$63),0)))
>memiliki benang merah pada bagian yang biru :
>MATCH(0,COUNTIF(K$2:K2,$H$3:$H$63),0)
>Bahasa manusianya :
>"Cari posisi angka 0 pada suatu data array yang berupa nilai-nilai jumlah cacah (CountIF) data dalam $H$3:$H$63 di suatu area K$2:K2 yang pencariannya harus bener-bener persis [0]"
>Kalimat 'nilai-nilai jumlah cacah data dalam $H$3:$H$63 di suatu area K$2:K2' akan menghasilkan angka bukan 0 jika memang telah ada di K$2:K2 dan menghasilkan 0 jika belum ada di K$2:K2. Padahal area K$2:K2 adalah hasil (output). Artinya, kalau sampai hasil CountIF adalah 0, maka data itu belum ada di area output alias data baru. Dengan demikian, fungsi Match tugasnya adalah selalu mendapatkan posisi data baru (data yang belum ada di output).
>Pada kondisi itu, tidak ada pengkondisian bahwa data di $H$3:$H$63 bukanlah bernilai 0.
>Jelas sudah diketahui bahwa data baru (belum ada di output) adalah yang COUNTIF(K$2:K2,$H$3:$H$63)=0
>Kondisi data di $H$3:$H$63 bukanlah bernilai 0 dapat diekspresikan sebagai :
>( $H$3:$H$63 <> 0 )
>
>Sampai disini, sudah ada 2 kondisi :
>1. data baru (belum ada dioutput) :
>( COUNTIF(K$2:K2,$H$3:$H$63)=0 )
>2. tidak adanya nilai di data $H$3:$H$63
>( $H$3:$H$63 <> 0 )
>Keduanya harus terpenuhi berarti setara AND yang setara perkalian.
>Maka array data dalam Match akan berupa :
>( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 )
>Hasilnya adalah 1 (untuk data baru dan nilai data di $H$3:$H$63 bukanlah 0 ) atau 0 (untuk salah satu dari kedua kondisi yang tak terpenuhi).
>Jadi, yang menjadi lookup value (dicari oleh match) bukan lagi angka 0, melainkan angka 1
>Nah... bagian Match akan menjadi :
>MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 )
>
>Array formula lengkap masing-masing :
>1. untuk versi xl2007 :
>=IFERROR(INDEX($H$3:$H$63,MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 ) ),"")
>
>2. untuk semua versi :
>=IF(ROW()-2>$H$2,"",INDEX($H$3:$H$63,MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 ) ))
>
>Kesimpulannya :
>Pengubahan formula karena adanya perubahan kondisi (bertambah atau berkurang jumlah kondisinya), difokuskan pada penyusunan kondisi-kondisi baru yang menyertakan kondisi awal (sebelum berubah) secara konsisten. Seperti kondisi bahwa jika CountIF 0 artinya sebagai data baru bergabung bersama kondisi baru berupa ada data di suatu area (dengan Len misalnya).
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/18 M.Ade Alfarid <QA@kkmi.co.id>
>
>Dear,
>>
>>
>>Untuk menghilangkan angka 0 pada list index,
>>tambah rumus apa?
>>
>>Ade
>>
>>
>>
>>
>>On Mon, 15 Oct 2012 16:30:55 +0700, Mr. Kid <mr.nmkid@gmail.com > wrote:
>>
>>
>>> Coba file terlampir.
>>> Ada yang dibantu oleh sebuah kolom untuk menyusun data multi kolom
>>> menjadi
>>> data sekolom.
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>> 2012/10/15 M.Ade Alfarid <QA@kkmi.co.id>
>>>
>>>> **
>>
>>>>
>>>>
>>>> BeExceller,
>>>>
>>>> Bagaimana untuk mengurut banyak data beberapa kolom,
>>>> data dobel dihitung sekali saja?
>>>> Terimakasih
>>>> --
>>>> ade
>>>>
>>
>
>
>
>
>
>
>
Melanjutkan pembahasan yang lama, ada yang mau saya tanyakan lagi :D
Saya menemukan kendala ketika data yang digunakan itu menggunakan row yg sangat banyak
Apakah ada cara utk mengefektifkan kerja makro sehingga kinerjanya menjadi lebih cepat?
Kemudian saya sudah mencoba utk menggunakan jurus dari Mas Aji utk menemukan baris paling akir
dan sudah coba utk mengotak atik rumus dari mas Hendrik juga utk menemukan baris trakirnya, tapi masi blm bisa
Maklum masi dalam tahap mempelajari makro :D
Mohon pencerahanya para master excel :)
Berikut saya lampirkan data excelnya
Regards,
Winda
____________
Dari: Winda Miranti <winda_1504@yahoo.
Kepada: "belajar-excel@
Dikirim: Jumat, 19 Oktober 2012 13:42
Judul: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Trimakasi master excel atas pencerahanya, akan saya pelajari terlebih dahulu :D
Regards,
Winda
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 19 Oktober 2012 11:50
Judul: Fw: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Terima kasih Mas Aji atas tambahan ilmunya.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: aji mumpung <pupung1986@gmail.
To: belajar-excel@
Sent: Friday, 19 October 2012, 11:05
Subject: Re: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
ikutan ya.. biar rame hehehe..
cara lain untuk menemukan baris paling akhir adalah menggunakan kode berikut
Cells.SpecialCells(
hasilnya disimpan dalam sebuah variabel yang seharusnya sudah dideklarasikan di awal
jadi jika dalam range data terdapat beberapa baris kosing, masih bisa terdeteksi dalam looping For - Next
hal ini juga akan memperpendek waktu proses & mengurangi beban kerja macro yang hanya akan memproses dari baris data awal sampai dengan baris data akhir.. selain itu tidak perlu dilakukan pengecekan
cmiiw (kata mbak'e Colek Me If Im Wrong)
wassalam,
-aji mumpung-
Pada 19 Oktober 2012 10:56, hendrik karnadi <hendrikkarnadi@
>
>Dear Winda,
>
>
>Mengapa yang dibold tidak terbaca?
>Karena disamping baris kosong pertama pada kolom B masih ada data (masih termasuk lingkup CurrentRegion)
>
>
>Untuk itu perlu sedikit akal untuk menentukan baris akhir yang ada isinya.
>
>
>Coba lihat macro yang sudah diupdate untuk mengambil baris terakhir yang ada isinya.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>
>___________
> From: Winda Miranti <winda_1504@yahoo.
>To: "belajar-excel@
>Sent: Friday, 19 October 2012, 9:46
>Subject: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>
>Dear Mas Hendrik,
>
>Trimakasi sekali solusi nya mas hendrik kebenaran saya juga lagi menemukan kasus yang sama
>tapi hanya ingin sebatas per kolom saja misalnya hanya kolom B, saya coba otak atik tapi debug selalu hehe, bgmn cara membatasinya biar hanya membaca satu kolom saja?
>dan saya coba tambahkan data kebawah seperti data telampir, tetapi jika ada baris yg kosong dua kali, data setelah baris kosong yg kedua tersebut tidak terbaca
>Mohon pencerahanya mas hendrik :D
>
>Regards,
>Winda
>
>
>
>
>
>
>___________
> Dari: hendrik karnadi <hendrikkarnadi@
>Kepada: "belajar-excel@
>Dikirim: Jumat, 19 Oktober 2012 6:05
>Judul: Fw: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>Sekedar selingan, pake macro.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Thursday, 18 October 2012, 23:47
>Subject: Re: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>1. Untuk cara 2, ada array formula bantu berbunyi : (cell M3)
>=MIN(IF(COUNTIF(
>Kondisi yang ada baru 1, yaitu bagian CountIF. Belum ada pengkondisian berdasar ada atau tidaknya teks dalam data.
>Pengkondisian untuk mengambil cell yang ada datanya saja adalah dengan memeriksa jumlah karakter yang ada di dalam cell tersebut.
>( Len($B$3:$F$
>
>Jadi, 2 kondisi yang harus digunakan adalah :
>>> ( COUNTIF(N$2:
>>> ( Len($B$3:$F$
>Keduanya harus terpenuhi, artinya harus dihubungkan dengan operator AND yang setara dengan kegiatan operasi matematis perkalian.
>Jadi kedua kondisi akan diekspresikan menjadi :
>( COUNTIF(N$2:
>
>Maka bagian CountIF dalam array formula diganti dengan 2 pengkondisian baru ini akan menjadi :
>=MIN(IF( ( COUNTIF(N$2:
>>> Jangan lupa untuk di-Enter sebagai Array formula dengan CTRL SHIFT ENTER <<
>
>2. Menghitung jumlah unique item (seperti cell H2 atau M2)
>Formula yang ada :
>=SUMPRODUCT(
>Ketika ada cell di B3:F14 yang tidak ada datanya, maka akan menghasilkan hasil countif akan 0. Maka akan ada item yang kalkulasinya berupa 1/0 yang menghasilkan error value #DIV/0!
>Maka efek ketika hasil CountIF adalah 0 harus dinetralisir dengan suatu nilai yang bukan 0. CountIF menghasilkan 0 jika tidak ada data, maka kondisi tidak ada data bisa diubah hasilnya menjadi 1 yang setara TRUE. Maka Len(B3:F14)=
>>> Jika hasil CountIF adalah 0, maka isi dengan Len(B3:F14)=
>>> Jika hasil CountIF bukan 0, maka isi dengan hasil CountIF
>Secara harfiah, translatenya ke bahasa formula menjadi :
>IF( COUNTIF(B3:F14,
>Dari kalimat ini, sebenarnya jika diperhatikan secara seksama, akan ada benang merah berbunyi :
>"Nilai hasil CountIF atau Len(B3:F14)=
>yang bahasa formulanya :
>( COUNTIF(B3:F14,
>Hasilnya, akan didapat bahwa seluruh cell yang tidak ada isinya akan bernilai TRUE (setara 1).
>Maka, 1/COUNTIF(B3:
>akan menjadi :
>1/( COUNTIF(B3:F14,
>tetapi, akan terjadi 1/1 ketika cell tidak ada isinya, karena 1/( 0 + TRUE ) = 1/( 0 + 1 ) = 1/1
>Hal ini akan menghasilkan jumlah unique yang tidak tepat. Oleh sebab itu bagian 1 (biru) dalam :
>1/( COUNTIF(B3:F14,
>harus berupa pemfilteran bahwa jika cell berisi data maka bernilai 1 dan jika tidak berisi data bernilai 0.
>( Len(B3:F14)>
>Maka formula lengkap :
>=SUMPRODUCT(
>
>3. Cara1.
>untuk versi xl2007 (dengan IFError) array formulanya (J3)
>=IFERROR(INDEX(
>untuk semua versi (berdasar jumlah item unique yang mungkin) : (K3)
>=IF(ROW()-2>
>memiliki benang merah pada bagian yang biru :
>MATCH(0,COUNTIF(
>Bahasa manusianya :
>"Cari posisi angka 0 pada suatu data array yang berupa nilai-nilai jumlah cacah (CountIF) data dalam $H$3:$H$63 di suatu area K$2:K2 yang pencariannya harus bener-bener persis [0]"
>Kalimat 'nilai-nilai jumlah cacah data dalam $H$3:$H$63 di suatu area K$2:K2' akan menghasilkan angka bukan 0 jika memang telah ada di K$2:K2 dan menghasilkan 0 jika belum ada di K$2:K2. Padahal area K$2:K2 adalah hasil (output). Artinya, kalau sampai hasil CountIF adalah 0, maka data itu belum ada di area output alias data baru. Dengan demikian, fungsi Match tugasnya adalah selalu mendapatkan posisi data baru (data yang belum ada di output).
>Pada kondisi itu, tidak ada pengkondisian bahwa data di $H$3:$H$63 bukanlah bernilai 0.
>Jelas sudah diketahui bahwa data baru (belum ada di output) adalah yang COUNTIF(K$2:
>Kondisi data di $H$3:$H$63 bukanlah bernilai 0 dapat diekspresikan sebagai :
>( $H$3:$H$63 <> 0 )
>
>Sampai disini, sudah ada 2 kondisi :
>1. data baru (belum ada dioutput) :
>( COUNTIF(K$2:
>2. tidak adanya nilai di data $H$3:$H$63
>( $H$3:$H$63 <> 0 )
>Keduanya harus terpenuhi berarti setara AND yang setara perkalian.
>Maka array data dalam Match akan berupa :
>( COUNTIF(K$2:
>Hasilnya adalah 1 (untuk data baru dan nilai data di $H$3:$H$63 bukanlah 0 ) atau 0 (untuk salah satu dari kedua kondisi yang tak terpenuhi).
>Jadi, yang menjadi lookup value (dicari oleh match) bukan lagi angka 0, melainkan angka 1
>Nah... bagian Match akan menjadi :
>MATCH(1 , ( COUNTIF(K$2:
>
>Array formula lengkap masing-masing :
>1. untuk versi xl2007 :
>=IFERROR(INDEX(
>
>2. untuk semua versi :
>=IF(ROW()-2>
>
>Kesimpulannya :
>Pengubahan formula karena adanya perubahan kondisi (bertambah atau berkurang jumlah kondisinya), difokuskan pada penyusunan kondisi-kondisi baru yang menyertakan kondisi awal (sebelum berubah) secara konsisten. Seperti kondisi bahwa jika CountIF 0 artinya sebagai data baru bergabung bersama kondisi baru berupa ada data di suatu area (dengan Len misalnya).
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/18 M.Ade Alfarid <QA@kkmi.co.id>
>
>Dear,
>>
>>
>>Untuk menghilangkan angka 0 pada list index,
>>tambah rumus apa?
>>
>>Ade
>>
>>
>>
>>
>>On Mon, 15 Oct 2012 16:30:55 +0700, Mr. Kid <mr.nmkid@gmail.
>>
>>
>>> Coba file terlampir.
>>> Ada yang dibantu oleh sebuah kolom untuk menyusun data multi kolom
>>> menjadi
>>> data sekolom.
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>> 2012/10/15 M.Ade Alfarid <QA@kkmi.co.id>
>>>
>>>> **
>>
>>>>
>>>>
>>>> BeExceller,
>>>>
>>>> Bagaimana untuk mengurut banyak data beberapa kolom,
>>>> data dobel dihitung sekali saja?
>>>> Terimakasih
>>>> --
>>>> ade
>>>>
>>
>
>
>
>
>
>
>
Thu Nov 22, 2012 6:39 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba copy paste macro ini ke module1,
Sub Tes()
Dim Rng As Range
Dim i As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Pertanyaan 2").Select
Range("A2").Select
Set Rng = Range("A2", Range("A2").End(xlDown))
For i = 1 To Rng.Rows.Count
ActiveCell.Offset(0, 2).FormulaR1C1 = "=TEXT(RC[-2],""dd/mm/yy"")"
ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Hasilnya seperti file terlampir (macro diattached ke tombol "FILTER")
Salam,
Hendrik Karnadi
________________________________
From: Winda Miranti <winda_1504@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Friday, 23 November 2012, 8:37
Subject: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Dear Master Excel,
Melanjutkan pembahasan yang lama, ada yang mau saya tanyakan lagi :D
Saya menemukan kendala ketika data yang digunakan itu menggunakan row yg sangat banyak
Apakah ada cara utk mengefektifkan kerja makro sehingga kinerjanya menjadi lebih cepat?
Kemudian saya sudah mencoba utk menggunakan jurus dari Mas Aji utk menemukan baris paling akir
dan sudah coba utk mengotak atik rumus dari mas Hendrik juga utk menemukan baris trakirnya, tapi masi blm bisa
Maklum masi dalam tahap mempelajari makro :D
Mohon pencerahanya para master excel :)
Berikut saya lampirkan data excelnya
Regards,
Winda
________________________________
Dari: Winda Miranti <winda_1504@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 Oktober 2012 13:42
Judul: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Trimakasi master excel atas pencerahanya, akan saya pelajari terlebih dahulu :D
Regards,
Winda
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 Oktober 2012 11:50
Judul: Fw: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Terima kasih Mas Aji atas tambahan ilmunya.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: aji mumpung <pupung1986@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, 19 October 2012, 11:05
Subject: Re: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
ikutan ya.. biar rame hehehe..
cara lain untuk menemukan baris paling akhir adalah menggunakan kode berikut
Cells.SpecialCells(xlCellTypeLastCell).Row
hasilnya disimpan dalam sebuah variabel yang seharusnya sudah dideklarasikan di awal
jadi jika dalam range data terdapat beberapa baris kosing, masih bisa terdeteksi dalam looping For - Next
hal ini juga akan memperpendek waktu proses & mengurangi beban kerja macro yang hanya akan memproses dari baris data awal sampai dengan baris data akhir.. selain itu tidak perlu dilakukan pengecekan
cmiiw (kata mbak'e Colek Me If Im Wrong)
wassalam,
-aji mumpung-
Pada 19 Oktober 2012 10:56, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
>
>Dear Winda,
>
>
>Mengapa yang dibold tidak terbaca?
>Karena disamping baris kosong pertama pada kolom B masih ada data (masih termasuk lingkup CurrentRegion), sedangkan disamping baris kosong kedua pada kolom B tidak ada data jadi tidak ikut terambil.
>
>
>Untuk itu perlu sedikit akal untuk menentukan baris akhir yang ada isinya.
>
>
>Coba lihat macro yang sudah diupdate untuk mengambil baris terakhir yang ada isinya.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>
>________________________________
> From: Winda Miranti <winda_1504@yahoo.co.id >
>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Sent: Friday, 19 October 2012, 9:46
>Subject: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>
>Dear Mas Hendrik,
>
>Trimakasi sekali solusi nya mas hendrik kebenaran saya juga lagi menemukan kasus yang sama
>tapi hanya ingin sebatas per kolom saja misalnya hanya kolom B, saya coba otak atik tapi debug selalu hehe, bgmn cara membatasinya biar hanya membaca satu kolom saja?
>dan saya coba tambahkan data kebawah seperti data telampir, tetapi jika ada baris yg kosong dua kali, data setelah baris kosong yg kedua tersebut tidak terbaca
>Mohon pencerahanya mas hendrik :D
>
>Regards,
>Winda
>
>
>
>
>
>
>________________________________
> Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
>Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Dikirim: Jumat, 19 Oktober 2012 6:05
>Judul: Fw: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>Sekedar selingan, pake macro.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, 18 October 2012, 23:47
>Subject: Re: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>1. Untuk cara 2, ada array formula bantu berbunyi : (cell M3)
>=MIN(IF(COUNTIF(N$2:N2,$B$3:$F$14)=0,ROW($B$3:$F$14)*1000+COLUMN($B$3:$F$14)))
>Kondisi yang ada baru 1, yaitu bagian CountIF. Belum ada pengkondisian berdasar ada atau tidaknya teks dalam data.
>Pengkondisian untuk mengambil cell yang ada datanya saja adalah dengan memeriksa jumlah karakter yang ada di dalam cell tersebut.
>( Len($B$3:$F$14) > 0 )
>
>Jadi, 2 kondisi yang harus digunakan adalah :
>>> ( COUNTIF(N$2:N2,$B$3:$F$14)=0 )
>>> ( Len($B$3:$F$14) > 0 )
>Keduanya harus terpenuhi, artinya harus dihubungkan dengan operator AND yang setara dengan kegiatan operasi matematis perkalian.
>Jadi kedua kondisi akan diekspresikan menjadi :
>( COUNTIF(N$2:N2,$B$3:$F$14)=0 )*( Len($B$3:$F$14) > 0 )
>
>Maka bagian CountIF dalam array formula diganti dengan 2 pengkondisian baru ini akan menjadi :
>=MIN(IF( ( COUNTIF(N$2:N2,$B$3:$F$14)=0 )*( Len($B$3:$F$14) > 0 ) ,ROW($B$3:$F$14)*1000+COLUMN($B$3:$F$14)))
>>> Jangan lupa untuk di-Enter sebagai Array formula dengan CTRL SHIFT ENTER <<
>
>2. Menghitung jumlah unique item (seperti cell H2 atau M2)
>Formula yang ada :
>=SUMPRODUCT(1/COUNTIF(B3:F14,B3:F14))
>Ketika ada cell di B3:F14 yang tidak ada datanya, maka akan menghasilkan hasil countif akan 0. Maka akan ada item yang kalkulasinya berupa 1/0 yang menghasilkan error value #DIV/0!
>Maka efek ketika hasil CountIF adalah 0 harus dinetralisir dengan suatu nilai yang bukan 0. CountIF menghasilkan 0 jika tidak ada data, maka kondisi tidak ada data bisa diubah hasilnya menjadi 1 yang setara TRUE. Maka Len(B3:F14)=0 akan bernilai TRUE ketika B3:F14 tidak ada datanya. Bunyi kondisi terhadap CountIF adalah sebagai berikut :
>>> Jika hasil CountIF adalah 0, maka isi dengan Len(B3:F14)=0
>>> Jika hasil CountIF bukan 0, maka isi dengan hasil CountIF
>Secara harfiah, translatenya ke bahasa formula menjadi :
>IF( COUNTIF(B3:F14,B3:F14)= 0 , ( Len(B3:F14)=0 ) , COUNTIF(B3:F14,B3:F14) )
>Dari kalimat ini, sebenarnya jika diperhatikan secara seksama, akan ada benang merah berbunyi :
>"Nilai hasil CountIF atau Len(B3:F14)=0"
>yang bahasa formulanya :
>( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>Hasilnya, akan didapat bahwa seluruh cell yang tidak ada isinya akan bernilai TRUE (setara 1).
>Maka, 1/COUNTIF(B3:F14,B3:F14)
>akan menjadi :
>1/( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>tetapi, akan terjadi 1/1 ketika cell tidak ada isinya, karena 1/( 0 + TRUE ) = 1/( 0 + 1 ) = 1/1
>Hal ini akan menghasilkan jumlah unique yang tidak tepat. Oleh sebab itu bagian 1 (biru) dalam :
>1/( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>harus berupa pemfilteran bahwa jika cell berisi data maka bernilai 1 dan jika tidak berisi data bernilai 0.
>( Len(B3:F14)>0 )
>Maka formula lengkap :
>=SUMPRODUCT(( Len(B3:F14)>0 ) / ( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) ) )
>
>3. Cara1.
>untuk versi xl2007 (dengan IFError) array formulanya (J3)
>=IFERROR(INDEX($H$3:$H$63,MATCH(0,COUNTIF(J$2:J2,$H$3:$H$63),0)),"")
>untuk semua versi (berdasar jumlah item unique yang mungkin) : (K3)
>=IF(ROW()-2>$H$2,"",INDEX($H$3:$H$63,MATCH(0,COUNTIF(K$2:K2,$H$3:$H$63),0)))
>memiliki benang merah pada bagian yang biru :
>MATCH(0,COUNTIF(K$2:K2,$H$3:$H$63),0)
>Bahasa manusianya :
>"Cari posisi angka 0 pada suatu data array yang berupa nilai-nilai jumlah cacah (CountIF) data dalam $H$3:$H$63 di suatu area K$2:K2 yang pencariannya harus bener-bener persis [0]"
>Kalimat 'nilai-nilai jumlah cacah data dalam $H$3:$H$63 di suatu area K$2:K2' akan menghasilkan angka bukan 0 jika memang telah ada di K$2:K2 dan menghasilkan 0 jika belum ada di K$2:K2. Padahal area K$2:K2 adalah hasil (output). Artinya, kalau sampai hasil CountIF adalah 0, maka data itu belum ada di area output alias data baru. Dengan demikian, fungsi Match tugasnya adalah selalu mendapatkan posisi data baru (data yang belum ada di output).
>Pada kondisi itu, tidak ada pengkondisian bahwa data di $H$3:$H$63 bukanlah bernilai 0.
>Jelas sudah diketahui bahwa data baru (belum ada di output) adalah yang COUNTIF(K$2:K2,$H$3:$H$63)=0
>Kondisi data di $H$3:$H$63 bukanlah bernilai 0 dapat diekspresikan sebagai :
>( $H$3:$H$63 <> 0 )
>
>Sampai disini, sudah ada 2 kondisi :
>1. data baru (belum ada dioutput) :
>( COUNTIF(K$2:K2,$H$3:$H$63)=0 )
>2. tidak adanya nilai di data $H$3:$H$63
>( $H$3:$H$63 <> 0 )
>Keduanya harus terpenuhi berarti setara AND yang setara perkalian.
>Maka array data dalam Match akan berupa :
>( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 )
>Hasilnya adalah 1 (untuk data baru dan nilai data di $H$3:$H$63 bukanlah 0 ) atau 0 (untuk salah satu dari kedua kondisi yang tak terpenuhi).
>Jadi, yang menjadi lookup value (dicari oleh match) bukan lagi angka 0, melainkan angka 1
>Nah... bagian Match akan menjadi :
>MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 )
>
>Array formula lengkap masing-masing :
>1. untuk versi xl2007 :
>=IFERROR(INDEX($H$3:$H$63,MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 ) ),"")
>
>2. untuk semua versi :
>=IF(ROW()-2>$H$2,"",INDEX($H$3:$H$63,MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 ) ))
>
>Kesimpulannya :
>Pengubahan formula karena adanya perubahan kondisi (bertambah atau berkurang jumlah kondisinya), difokuskan pada penyusunan kondisi-kondisi baru yang menyertakan kondisi awal (sebelum berubah) secara konsisten. Seperti kondisi bahwa jika CountIF 0 artinya sebagai data baru bergabung bersama kondisi baru berupa ada data di suatu area (dengan Len misalnya).
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/18 M.Ade Alfarid <QA@kkmi.co.id>
>
>Dear,
>>
>>
>>Untuk menghilangkan angka 0 pada list index,
>>tambah rumus apa?
>>
>>Ade
>>
>>
>>
>>
>>On Mon, 15 Oct 2012 16:30:55 +0700, Mr. Kid <mr.nmkid@gmail.com > wrote:
>>
>>
>>> Coba file terlampir.
>>> Ada yang dibantu oleh sebuah kolom untuk menyusun data multi kolom
>>> menjadi
>>> data sekolom.
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>> 2012/10/15 M.Ade Alfarid <QA@kkmi.co.id>
>>>
>>>> **
>>
>>>>
>>>>
>>>> BeExceller,
>>>>
>>>> Bagaimana untuk mengurut banyak data beberapa kolom,
>>>> data dobel dihitung sekali saja?
>>>> Terimakasih
>>>> --
>>>> ade
>>>>
>>
>
>
>
>
>
>
>
Sub Tes()
Dim Rng As Range
Dim i As Long
Application.
Application.
Sheets("Pertanyaan 2").Select
Range("A2").
Set Rng = Range("A2", Range("A2").
For i = 1 To Rng.Rows.Count
ActiveCell.Offset(
ActiveCell.Offset(
Next i
Application.
Application.
End Sub
Hasilnya seperti file terlampir (macro diattached ke tombol "FILTER")
Salam,
Hendrik Karnadi
____________
From: Winda Miranti <winda_1504@yahoo.
To: "belajar-excel@
Sent: Friday, 23 November 2012, 8:37
Subject: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Dear Master Excel,
Melanjutkan pembahasan yang lama, ada yang mau saya tanyakan lagi :D
Saya menemukan kendala ketika data yang digunakan itu menggunakan row yg sangat banyak
Apakah ada cara utk mengefektifkan kerja makro sehingga kinerjanya menjadi lebih cepat?
Kemudian saya sudah mencoba utk menggunakan jurus dari Mas Aji utk menemukan baris paling akir
dan sudah coba utk mengotak atik rumus dari mas Hendrik juga utk menemukan baris trakirnya, tapi masi blm bisa
Maklum masi dalam tahap mempelajari makro :D
Mohon pencerahanya para master excel :)
Berikut saya lampirkan data excelnya
Regards,
Winda
____________
Dari: Winda Miranti <winda_1504@yahoo.
Kepada: "belajar-excel@
Dikirim: Jumat, 19 Oktober 2012 13:42
Judul: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Trimakasi master excel atas pencerahanya, akan saya pelajari terlebih dahulu :D
Regards,
Winda
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 19 Oktober 2012 11:50
Judul: Fw: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Terima kasih Mas Aji atas tambahan ilmunya.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: aji mumpung <pupung1986@gmail.
To: belajar-excel@
Sent: Friday, 19 October 2012, 11:05
Subject: Re: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
ikutan ya.. biar rame hehehe..
cara lain untuk menemukan baris paling akhir adalah menggunakan kode berikut
Cells.SpecialCells(
hasilnya disimpan dalam sebuah variabel yang seharusnya sudah dideklarasikan di awal
jadi jika dalam range data terdapat beberapa baris kosing, masih bisa terdeteksi dalam looping For - Next
hal ini juga akan memperpendek waktu proses & mengurangi beban kerja macro yang hanya akan memproses dari baris data awal sampai dengan baris data akhir.. selain itu tidak perlu dilakukan pengecekan
cmiiw (kata mbak'e Colek Me If Im Wrong)
wassalam,
-aji mumpung-
Pada 19 Oktober 2012 10:56, hendrik karnadi <hendrikkarnadi@
>
>Dear Winda,
>
>
>Mengapa yang dibold tidak terbaca?
>Karena disamping baris kosong pertama pada kolom B masih ada data (masih termasuk lingkup CurrentRegion)
>
>
>Untuk itu perlu sedikit akal untuk menentukan baris akhir yang ada isinya.
>
>
>Coba lihat macro yang sudah diupdate untuk mengambil baris terakhir yang ada isinya.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>
>___________
> From: Winda Miranti <winda_1504@yahoo.
>To: "belajar-excel@
>Sent: Friday, 19 October 2012, 9:46
>Subject: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>
>Dear Mas Hendrik,
>
>Trimakasi sekali solusi nya mas hendrik kebenaran saya juga lagi menemukan kasus yang sama
>tapi hanya ingin sebatas per kolom saja misalnya hanya kolom B, saya coba otak atik tapi debug selalu hehe, bgmn cara membatasinya biar hanya membaca satu kolom saja?
>dan saya coba tambahkan data kebawah seperti data telampir, tetapi jika ada baris yg kosong dua kali, data setelah baris kosong yg kedua tersebut tidak terbaca
>Mohon pencerahanya mas hendrik :D
>
>Regards,
>Winda
>
>
>
>
>
>
>___________
> Dari: hendrik karnadi <hendrikkarnadi@
>Kepada: "belajar-excel@
>Dikirim: Jumat, 19 Oktober 2012 6:05
>Judul: Fw: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>Sekedar selingan, pake macro.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Thursday, 18 October 2012, 23:47
>Subject: Re: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>1. Untuk cara 2, ada array formula bantu berbunyi : (cell M3)
>=MIN(IF(COUNTIF(
>Kondisi yang ada baru 1, yaitu bagian CountIF. Belum ada pengkondisian berdasar ada atau tidaknya teks dalam data.
>Pengkondisian untuk mengambil cell yang ada datanya saja adalah dengan memeriksa jumlah karakter yang ada di dalam cell tersebut.
>( Len($B$3:$F$
>
>Jadi, 2 kondisi yang harus digunakan adalah :
>>> ( COUNTIF(N$2:
>>> ( Len($B$3:$F$
>Keduanya harus terpenuhi, artinya harus dihubungkan dengan operator AND yang setara dengan kegiatan operasi matematis perkalian.
>Jadi kedua kondisi akan diekspresikan menjadi :
>( COUNTIF(N$2:
>
>Maka bagian CountIF dalam array formula diganti dengan 2 pengkondisian baru ini akan menjadi :
>=MIN(IF( ( COUNTIF(N$2:
>>> Jangan lupa untuk di-Enter sebagai Array formula dengan CTRL SHIFT ENTER <<
>
>2. Menghitung jumlah unique item (seperti cell H2 atau M2)
>Formula yang ada :
>=SUMPRODUCT(
>Ketika ada cell di B3:F14 yang tidak ada datanya, maka akan menghasilkan hasil countif akan 0. Maka akan ada item yang kalkulasinya berupa 1/0 yang menghasilkan error value #DIV/0!
>Maka efek ketika hasil CountIF adalah 0 harus dinetralisir dengan suatu nilai yang bukan 0. CountIF menghasilkan 0 jika tidak ada data, maka kondisi tidak ada data bisa diubah hasilnya menjadi 1 yang setara TRUE. Maka Len(B3:F14)=
>>> Jika hasil CountIF adalah 0, maka isi dengan Len(B3:F14)=
>>> Jika hasil CountIF bukan 0, maka isi dengan hasil CountIF
>Secara harfiah, translatenya ke bahasa formula menjadi :
>IF( COUNTIF(B3:F14,
>Dari kalimat ini, sebenarnya jika diperhatikan secara seksama, akan ada benang merah berbunyi :
>"Nilai hasil CountIF atau Len(B3:F14)=
>yang bahasa formulanya :
>( COUNTIF(B3:F14,
>Hasilnya, akan didapat bahwa seluruh cell yang tidak ada isinya akan bernilai TRUE (setara 1).
>Maka, 1/COUNTIF(B3:
>akan menjadi :
>1/( COUNTIF(B3:F14,
>tetapi, akan terjadi 1/1 ketika cell tidak ada isinya, karena 1/( 0 + TRUE ) = 1/( 0 + 1 ) = 1/1
>Hal ini akan menghasilkan jumlah unique yang tidak tepat. Oleh sebab itu bagian 1 (biru) dalam :
>1/( COUNTIF(B3:F14,
>harus berupa pemfilteran bahwa jika cell berisi data maka bernilai 1 dan jika tidak berisi data bernilai 0.
>( Len(B3:F14)>
>Maka formula lengkap :
>=SUMPRODUCT(
>
>3. Cara1.
>untuk versi xl2007 (dengan IFError) array formulanya (J3)
>=IFERROR(INDEX(
>untuk semua versi (berdasar jumlah item unique yang mungkin) : (K3)
>=IF(ROW()-2>
>memiliki benang merah pada bagian yang biru :
>MATCH(0,COUNTIF(
>Bahasa manusianya :
>"Cari posisi angka 0 pada suatu data array yang berupa nilai-nilai jumlah cacah (CountIF) data dalam $H$3:$H$63 di suatu area K$2:K2 yang pencariannya harus bener-bener persis [0]"
>Kalimat 'nilai-nilai jumlah cacah data dalam $H$3:$H$63 di suatu area K$2:K2' akan menghasilkan angka bukan 0 jika memang telah ada di K$2:K2 dan menghasilkan 0 jika belum ada di K$2:K2. Padahal area K$2:K2 adalah hasil (output). Artinya, kalau sampai hasil CountIF adalah 0, maka data itu belum ada di area output alias data baru. Dengan demikian, fungsi Match tugasnya adalah selalu mendapatkan posisi data baru (data yang belum ada di output).
>Pada kondisi itu, tidak ada pengkondisian bahwa data di $H$3:$H$63 bukanlah bernilai 0.
>Jelas sudah diketahui bahwa data baru (belum ada di output) adalah yang COUNTIF(K$2:
>Kondisi data di $H$3:$H$63 bukanlah bernilai 0 dapat diekspresikan sebagai :
>( $H$3:$H$63 <> 0 )
>
>Sampai disini, sudah ada 2 kondisi :
>1. data baru (belum ada dioutput) :
>( COUNTIF(K$2:
>2. tidak adanya nilai di data $H$3:$H$63
>( $H$3:$H$63 <> 0 )
>Keduanya harus terpenuhi berarti setara AND yang setara perkalian.
>Maka array data dalam Match akan berupa :
>( COUNTIF(K$2:
>Hasilnya adalah 1 (untuk data baru dan nilai data di $H$3:$H$63 bukanlah 0 ) atau 0 (untuk salah satu dari kedua kondisi yang tak terpenuhi).
>Jadi, yang menjadi lookup value (dicari oleh match) bukan lagi angka 0, melainkan angka 1
>Nah... bagian Match akan menjadi :
>MATCH(1 , ( COUNTIF(K$2:
>
>Array formula lengkap masing-masing :
>1. untuk versi xl2007 :
>=IFERROR(INDEX(
>
>2. untuk semua versi :
>=IF(ROW()-2>
>
>Kesimpulannya :
>Pengubahan formula karena adanya perubahan kondisi (bertambah atau berkurang jumlah kondisinya), difokuskan pada penyusunan kondisi-kondisi baru yang menyertakan kondisi awal (sebelum berubah) secara konsisten. Seperti kondisi bahwa jika CountIF 0 artinya sebagai data baru bergabung bersama kondisi baru berupa ada data di suatu area (dengan Len misalnya).
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/18 M.Ade Alfarid <QA@kkmi.co.id>
>
>Dear,
>>
>>
>>Untuk menghilangkan angka 0 pada list index,
>>tambah rumus apa?
>>
>>Ade
>>
>>
>>
>>
>>On Mon, 15 Oct 2012 16:30:55 +0700, Mr. Kid <mr.nmkid@gmail.
>>
>>
>>> Coba file terlampir.
>>> Ada yang dibantu oleh sebuah kolom untuk menyusun data multi kolom
>>> menjadi
>>> data sekolom.
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>> 2012/10/15 M.Ade Alfarid <QA@kkmi.co.id>
>>>
>>>> **
>>
>>>>
>>>>
>>>> BeExceller,
>>>>
>>>> Bagaimana untuk mengurut banyak data beberapa kolom,
>>>> data dobel dihitung sekali saja?
>>>> Terimakasih
>>>> --
>>>> ade
>>>>
>>
>
>
>
>
>
>
>
Thu Nov 22, 2012 9:46 pm (PST) . Posted by:
"Winda Miranti" winda_1504
Trimakasi atas solusi nya mas Hendrik,
brarti nanti kalo saya mau menggunakan cara yg sama dengan rumus yg berbeda saya ganti bagian =TEXT(RC[-2],""dd/mm/yy"")" saja yg disesuaikan dengan rumusyg akan dipake?
Regards,
Winda
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 23 November 2012 9:39
Judul: Re: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Coba copy paste macro ini ke module1,
Sub Tes()
Dim Rng As Range
Dim i As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Pertanyaan 2").Select
Range("A2").Select
Set Rng = Range("A2", Range("A2").End(xlDown))
For i = 1 To Rng.Rows.Count
ActiveCell.Offset(0, 2).FormulaR1C1 = "=TEXT(RC[-2],""dd/mm/yy"")"
ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Hasilnya seperti file terlampir (macro diattached ke tombol "FILTER")
Salam,
Hendrik Karnadi
________________________________
From: Winda Miranti <winda_1504@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Friday, 23 November 2012, 8:37
Subject: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Dear Master Excel,
Melanjutkan pembahasan yang lama, ada yang mau saya tanyakan lagi :D
Saya menemukan kendala ketika data yang digunakan itu menggunakan row yg sangat banyak
Apakah ada cara utk mengefektifkan kerja makro sehingga kinerjanya menjadi lebih cepat?
Kemudian saya sudah mencoba utk menggunakan jurus dari Mas Aji utk menemukan baris paling akir
dan sudah coba utk mengotak atik rumus dari mas Hendrik juga utk menemukan baris trakirnya, tapi masi blm bisa
Maklum masi dalam tahap mempelajari makro :D
Mohon pencerahanya para master excel :)
Berikut saya lampirkan data excelnya
Regards,
Winda
________________________________
Dari: Winda Miranti <winda_1504@yahoo.co.id >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 Oktober 2012 13:42
Judul: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Trimakasi master excel atas pencerahanya, akan saya pelajari terlebih dahulu :D
Regards,
Winda
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 19 Oktober 2012 11:50
Judul: Fw: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Terima kasih Mas Aji atas tambahan ilmunya.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: aji mumpung <pupung1986@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, 19 October 2012, 11:05
Subject: Re: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
ikutan ya.. biar rame hehehe..
cara lain untuk menemukan baris paling akhir adalah menggunakan kode berikut
Cells.SpecialCells(xlCellTypeLastCell).Row
hasilnya disimpan dalam sebuah variabel yang seharusnya sudah dideklarasikan di awal
jadi jika dalam range data terdapat beberapa baris kosing, masih bisa terdeteksi dalam looping For - Next
hal ini juga akan memperpendek waktu proses & mengurangi beban kerja macro yang hanya akan memproses dari baris data awal sampai dengan baris data akhir.. selain itu tidak perlu dilakukan pengecekan
cmiiw (kata mbak'e Colek Me If Im Wrong)
wassalam,
-aji mumpung-
Pada 19 Oktober 2012 10:56, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
>
>Dear Winda,
>
>
>Mengapa yang dibold tidak terbaca?
>Karena disamping baris kosong pertama pada kolom B masih ada data (masih termasuk lingkup CurrentRegion), sedangkan disamping baris kosong kedua pada kolom B tidak ada data jadi tidak ikut terambil.
>
>
>Untuk itu perlu sedikit akal untuk menentukan baris akhir yang ada isinya.
>
>
>Coba lihat macro yang sudah diupdate untuk mengambil baris terakhir yang ada isinya.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>
>________________________________
> From: Winda Miranti <winda_1504@yahoo.co.id >
>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Sent: Friday, 19 October 2012, 9:46
>Subject: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>
>Dear Mas Hendrik,
>
>Trimakasi sekali solusi nya mas hendrik kebenaran saya juga lagi menemukan kasus yang sama
>tapi hanya ingin sebatas per kolom saja misalnya hanya kolom B, saya coba otak atik tapi debug selalu hehe, bgmn cara membatasinya biar hanya membaca satu kolom saja?
>dan saya coba tambahkan data kebawah seperti data telampir, tetapi jika ada baris yg kosong dua kali, data setelah baris kosong yg kedua tersebut tidak terbaca
>Mohon pencerahanya mas hendrik :D
>
>Regards,
>Winda
>
>
>
>
>
>
>________________________________
> Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
>Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Dikirim: Jumat, 19 Oktober 2012 6:05
>Judul: Fw: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>Sekedar selingan, pake macro.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, 18 October 2012, 23:47
>Subject: Re: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>1. Untuk cara 2, ada array formula bantu berbunyi : (cell M3)
>=MIN(IF(COUNTIF(N$2:N2,$B$3:$F$14)=0,ROW($B$3:$F$14)*1000+COLUMN($B$3:$F$14)))
>Kondisi yang ada baru 1, yaitu bagian CountIF. Belum ada pengkondisian berdasar ada atau tidaknya teks dalam data.
>Pengkondisian untuk mengambil cell yang ada datanya saja adalah dengan memeriksa jumlah karakter yang ada di dalam cell tersebut.
>( Len($B$3:$F$14) > 0 )
>
>Jadi, 2 kondisi yang harus digunakan adalah :
>>> ( COUNTIF(N$2:N2,$B$3:$F$14)=0 )
>>> ( Len($B$3:$F$14) > 0 )
>Keduanya harus terpenuhi, artinya harus dihubungkan dengan operator AND yang setara dengan kegiatan operasi matematis perkalian.
>Jadi kedua kondisi akan diekspresikan menjadi :
>( COUNTIF(N$2:N2,$B$3:$F$14)=0 )*( Len($B$3:$F$14) > 0 )
>
>Maka bagian CountIF dalam array formula diganti dengan 2 pengkondisian baru ini akan menjadi :
>=MIN(IF( ( COUNTIF(N$2:N2,$B$3:$F$14)=0 )*( Len($B$3:$F$14) > 0 ) ,ROW($B$3:$F$14)*1000+COLUMN($B$3:$F$14)))
>>> Jangan lupa untuk di-Enter sebagai Array formula dengan CTRL SHIFT ENTER <<
>
>2. Menghitung jumlah unique item (seperti cell H2 atau M2)
>Formula yang ada :
>=SUMPRODUCT(1/COUNTIF(B3:F14,B3:F14))
>Ketika ada cell di B3:F14 yang tidak ada datanya, maka akan menghasilkan hasil countif akan 0. Maka akan ada item yang kalkulasinya berupa 1/0 yang menghasilkan error value #DIV/0!
>Maka efek ketika hasil CountIF adalah 0 harus dinetralisir dengan suatu nilai yang bukan 0. CountIF menghasilkan 0 jika tidak ada data, maka kondisi tidak ada data bisa diubah hasilnya menjadi 1 yang setara TRUE. Maka Len(B3:F14)=0 akan bernilai TRUE ketika B3:F14 tidak ada datanya. Bunyi kondisi terhadap CountIF adalah sebagai berikut :
>>> Jika hasil CountIF adalah 0, maka isi dengan Len(B3:F14)=0
>>> Jika hasil CountIF bukan 0, maka isi dengan hasil CountIF
>Secara harfiah, translatenya ke bahasa formula menjadi :
>IF( COUNTIF(B3:F14,B3:F14)= 0 , ( Len(B3:F14)=0 ) , COUNTIF(B3:F14,B3:F14) )
>Dari kalimat ini, sebenarnya jika diperhatikan secara seksama, akan ada benang merah berbunyi :
>"Nilai hasil CountIF atau Len(B3:F14)=0"
>yang bahasa formulanya :
>( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>Hasilnya, akan didapat bahwa seluruh cell yang tidak ada isinya akan bernilai TRUE (setara 1).
>Maka, 1/COUNTIF(B3:F14,B3:F14)
>akan menjadi :
>1/( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>tetapi, akan terjadi 1/1 ketika cell tidak ada isinya, karena 1/( 0 + TRUE ) = 1/( 0 + 1 ) = 1/1
>Hal ini akan menghasilkan jumlah unique yang tidak tepat. Oleh sebab itu bagian 1 (biru) dalam :
>1/( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) )
>harus berupa pemfilteran bahwa jika cell berisi data maka bernilai 1 dan jika tidak berisi data bernilai 0.
>( Len(B3:F14)>0 )
>Maka formula lengkap :
>=SUMPRODUCT(( Len(B3:F14)>0 ) / ( COUNTIF(B3:F14,B3:F14) + ( Len(B3:F14)=0 ) ) )
>
>3. Cara1.
>untuk versi xl2007 (dengan IFError) array formulanya (J3)
>=IFERROR(INDEX($H$3:$H$63,MATCH(0,COUNTIF(J$2:J2,$H$3:$H$63),0)),"")
>untuk semua versi (berdasar jumlah item unique yang mungkin) : (K3)
>=IF(ROW()-2>$H$2,"",INDEX($H$3:$H$63,MATCH(0,COUNTIF(K$2:K2,$H$3:$H$63),0)))
>memiliki benang merah pada bagian yang biru :
>MATCH(0,COUNTIF(K$2:K2,$H$3:$H$63),0)
>Bahasa manusianya :
>"Cari posisi angka 0 pada suatu data array yang berupa nilai-nilai jumlah cacah (CountIF) data dalam $H$3:$H$63 di suatu area K$2:K2 yang pencariannya harus bener-bener persis [0]"
>Kalimat 'nilai-nilai jumlah cacah data dalam $H$3:$H$63 di suatu area K$2:K2' akan menghasilkan angka bukan 0 jika memang telah ada di K$2:K2 dan menghasilkan 0 jika belum ada di K$2:K2. Padahal area K$2:K2 adalah hasil (output). Artinya, kalau sampai hasil CountIF adalah 0, maka data itu belum ada di area output alias data baru. Dengan demikian, fungsi Match tugasnya adalah selalu mendapatkan posisi data baru (data yang belum ada di output).
>Pada kondisi itu, tidak ada pengkondisian bahwa data di $H$3:$H$63 bukanlah bernilai 0.
>Jelas sudah diketahui bahwa data baru (belum ada di output) adalah yang COUNTIF(K$2:K2,$H$3:$H$63)=0
>Kondisi data di $H$3:$H$63 bukanlah bernilai 0 dapat diekspresikan sebagai :
>( $H$3:$H$63 <> 0 )
>
>Sampai disini, sudah ada 2 kondisi :
>1. data baru (belum ada dioutput) :
>( COUNTIF(K$2:K2,$H$3:$H$63)=0 )
>2. tidak adanya nilai di data $H$3:$H$63
>( $H$3:$H$63 <> 0 )
>Keduanya harus terpenuhi berarti setara AND yang setara perkalian.
>Maka array data dalam Match akan berupa :
>( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 )
>Hasilnya adalah 1 (untuk data baru dan nilai data di $H$3:$H$63 bukanlah 0 ) atau 0 (untuk salah satu dari kedua kondisi yang tak terpenuhi).
>Jadi, yang menjadi lookup value (dicari oleh match) bukan lagi angka 0, melainkan angka 1
>Nah... bagian Match akan menjadi :
>MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 )
>
>Array formula lengkap masing-masing :
>1. untuk versi xl2007 :
>=IFERROR(INDEX($H$3:$H$63,MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 ) ),"")
>
>2. untuk semua versi :
>=IF(ROW()-2>$H$2,"",INDEX($H$3:$H$63,MATCH(1 , ( COUNTIF(K$2:K2,$H$3:$H$63)=0 ) * ( $H$3:$H$63 <> 0 ) , 0 ) ))
>
>Kesimpulannya :
>Pengubahan formula karena adanya perubahan kondisi (bertambah atau berkurang jumlah kondisinya), difokuskan pada penyusunan kondisi-kondisi baru yang menyertakan kondisi awal (sebelum berubah) secara konsisten. Seperti kondisi bahwa jika CountIF 0 artinya sebagai data baru bergabung bersama kondisi baru berupa ada data di suatu area (dengan Len misalnya).
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/18 M.Ade Alfarid <QA@kkmi.co.id>
>
>Dear,
>>
>>
>>Untuk menghilangkan angka 0 pada list index,
>>tambah rumus apa?
>>
>>Ade
>>
>>
>>
>>
>>On Mon, 15 Oct 2012 16:30:55 +0700, Mr. Kid <mr.nmkid@gmail.com > wrote:
>>
>>
>>> Coba file terlampir.
>>> Ada yang dibantu oleh sebuah kolom untuk menyusun data multi kolom
>>> menjadi
>>> data sekolom.
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>> 2012/10/15 M.Ade Alfarid <QA@kkmi.co.id>
>>>
>>>> **
>>
>>>>
>>>>
>>>> BeExceller,
>>>>
>>>> Bagaimana untuk mengurut banyak data beberapa kolom,
>>>> data dobel dihitung sekali saja?
>>>> Terimakasih
>>>> --
>>>> ade
>>>>
>>
>
>
>
>
>
>
>
brarti nanti kalo saya mau menggunakan cara yg sama dengan rumus yg berbeda saya ganti bagian =TEXT(RC[-2]
Regards,
Winda
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 23 November 2012 9:39
Judul: Re: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Coba copy paste macro ini ke module1,
Sub Tes()
Dim Rng As Range
Dim i As Long
Application.
Application.
Sheets("Pertanyaan 2").Select
Range("A2").
Set Rng = Range("A2", Range("A2").
For i = 1 To Rng.Rows.Count
ActiveCell.Offset(
ActiveCell.Offset(
Next i
Application.
Application.
End Sub
Hasilnya seperti file terlampir (macro diattached ke tombol "FILTER")
Salam,
Hendrik Karnadi
____________
From: Winda Miranti <winda_1504@yahoo.
To: "belajar-excel@
Sent: Friday, 23 November 2012, 8:37
Subject: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Dear Master Excel,
Melanjutkan pembahasan yang lama, ada yang mau saya tanyakan lagi :D
Saya menemukan kendala ketika data yang digunakan itu menggunakan row yg sangat banyak
Apakah ada cara utk mengefektifkan kerja makro sehingga kinerjanya menjadi lebih cepat?
Kemudian saya sudah mencoba utk menggunakan jurus dari Mas Aji utk menemukan baris paling akir
dan sudah coba utk mengotak atik rumus dari mas Hendrik juga utk menemukan baris trakirnya, tapi masi blm bisa
Maklum masi dalam tahap mempelajari makro :D
Mohon pencerahanya para master excel :)
Berikut saya lampirkan data excelnya
Regards,
Winda
____________
Dari: Winda Miranti <winda_1504@yahoo.
Kepada: "belajar-excel@
Dikirim: Jumat, 19 Oktober 2012 13:42
Judul: Bls: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Trimakasi master excel atas pencerahanya, akan saya pelajari terlebih dahulu :D
Regards,
Winda
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Jumat, 19 Oktober 2012 11:50
Judul: Fw: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
Terima kasih Mas Aji atas tambahan ilmunya.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: aji mumpung <pupung1986@gmail.
To: belajar-excel@
Sent: Friday, 19 October 2012, 11:05
Subject: Re: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
ikutan ya.. biar rame hehehe..
cara lain untuk menemukan baris paling akhir adalah menggunakan kode berikut
Cells.SpecialCells(
hasilnya disimpan dalam sebuah variabel yang seharusnya sudah dideklarasikan di awal
jadi jika dalam range data terdapat beberapa baris kosing, masih bisa terdeteksi dalam looping For - Next
hal ini juga akan memperpendek waktu proses & mengurangi beban kerja macro yang hanya akan memproses dari baris data awal sampai dengan baris data akhir.. selain itu tidak perlu dilakukan pengecekan
cmiiw (kata mbak'e Colek Me If Im Wrong)
wassalam,
-aji mumpung-
Pada 19 Oktober 2012 10:56, hendrik karnadi <hendrikkarnadi@
>
>Dear Winda,
>
>
>Mengapa yang dibold tidak terbaca?
>Karena disamping baris kosong pertama pada kolom B masih ada data (masih termasuk lingkup CurrentRegion)
>
>
>Untuk itu perlu sedikit akal untuk menentukan baris akhir yang ada isinya.
>
>
>Coba lihat macro yang sudah diupdate untuk mengambil baris terakhir yang ada isinya.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>
>___________
> From: Winda Miranti <winda_1504@yahoo.
>To: "belajar-excel@
>Sent: Friday, 19 October 2012, 9:46
>Subject: Bls: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>
>Dear Mas Hendrik,
>
>Trimakasi sekali solusi nya mas hendrik kebenaran saya juga lagi menemukan kasus yang sama
>tapi hanya ingin sebatas per kolom saja misalnya hanya kolom B, saya coba otak atik tapi debug selalu hehe, bgmn cara membatasinya biar hanya membaca satu kolom saja?
>dan saya coba tambahkan data kebawah seperti data telampir, tetapi jika ada baris yg kosong dua kali, data setelah baris kosong yg kedua tersebut tidak terbaca
>Mohon pencerahanya mas hendrik :D
>
>Regards,
>Winda
>
>
>
>
>
>
>___________
> Dari: hendrik karnadi <hendrikkarnadi@
>Kepada: "belajar-excel@
>Dikirim: Jumat, 19 Oktober 2012 6:05
>Judul: Fw: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>Sekedar selingan, pake macro.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>----- Forwarded Message -----
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Thursday, 18 October 2012, 23:47
>Subject: Re: [belajar-excel] Index Data Beberapa Kolom atau Lebih
>
>
>
>1. Untuk cara 2, ada array formula bantu berbunyi : (cell M3)
>=MIN(IF(COUNTIF(
>Kondisi yang ada baru 1, yaitu bagian CountIF. Belum ada pengkondisian berdasar ada atau tidaknya teks dalam data.
>Pengkondisian untuk mengambil cell yang ada datanya saja adalah dengan memeriksa jumlah karakter yang ada di dalam cell tersebut.
>( Len($B$3:$F$
>
>Jadi, 2 kondisi yang harus digunakan adalah :
>>> ( COUNTIF(N$2:
>>> ( Len($B$3:$F$
>Keduanya harus terpenuhi, artinya harus dihubungkan dengan operator AND yang setara dengan kegiatan operasi matematis perkalian.
>Jadi kedua kondisi akan diekspresikan menjadi :
>( COUNTIF(N$2:
>
>Maka bagian CountIF dalam array formula diganti dengan 2 pengkondisian baru ini akan menjadi :
>=MIN(IF( ( COUNTIF(N$2:
>>> Jangan lupa untuk di-Enter sebagai Array formula dengan CTRL SHIFT ENTER <<
>
>2. Menghitung jumlah unique item (seperti cell H2 atau M2)
>Formula yang ada :
>=SUMPRODUCT(
>Ketika ada cell di B3:F14 yang tidak ada datanya, maka akan menghasilkan hasil countif akan 0. Maka akan ada item yang kalkulasinya berupa 1/0 yang menghasilkan error value #DIV/0!
>Maka efek ketika hasil CountIF adalah 0 harus dinetralisir dengan suatu nilai yang bukan 0. CountIF menghasilkan 0 jika tidak ada data, maka kondisi tidak ada data bisa diubah hasilnya menjadi 1 yang setara TRUE. Maka Len(B3:F14)=
>>> Jika hasil CountIF adalah 0, maka isi dengan Len(B3:F14)=
>>> Jika hasil CountIF bukan 0, maka isi dengan hasil CountIF
>Secara harfiah, translatenya ke bahasa formula menjadi :
>IF( COUNTIF(B3:F14,
>Dari kalimat ini, sebenarnya jika diperhatikan secara seksama, akan ada benang merah berbunyi :
>"Nilai hasil CountIF atau Len(B3:F14)=
>yang bahasa formulanya :
>( COUNTIF(B3:F14,
>Hasilnya, akan didapat bahwa seluruh cell yang tidak ada isinya akan bernilai TRUE (setara 1).
>Maka, 1/COUNTIF(B3:
>akan menjadi :
>1/( COUNTIF(B3:F14,
>tetapi, akan terjadi 1/1 ketika cell tidak ada isinya, karena 1/( 0 + TRUE ) = 1/( 0 + 1 ) = 1/1
>Hal ini akan menghasilkan jumlah unique yang tidak tepat. Oleh sebab itu bagian 1 (biru) dalam :
>1/( COUNTIF(B3:F14,
>harus berupa pemfilteran bahwa jika cell berisi data maka bernilai 1 dan jika tidak berisi data bernilai 0.
>( Len(B3:F14)>
>Maka formula lengkap :
>=SUMPRODUCT(
>
>3. Cara1.
>untuk versi xl2007 (dengan IFError) array formulanya (J3)
>=IFERROR(INDEX(
>untuk semua versi (berdasar jumlah item unique yang mungkin) : (K3)
>=IF(ROW()-2>
>memiliki benang merah pada bagian yang biru :
>MATCH(0,COUNTIF(
>Bahasa manusianya :
>"Cari posisi angka 0 pada suatu data array yang berupa nilai-nilai jumlah cacah (CountIF) data dalam $H$3:$H$63 di suatu area K$2:K2 yang pencariannya harus bener-bener persis [0]"
>Kalimat 'nilai-nilai jumlah cacah data dalam $H$3:$H$63 di suatu area K$2:K2' akan menghasilkan angka bukan 0 jika memang telah ada di K$2:K2 dan menghasilkan 0 jika belum ada di K$2:K2. Padahal area K$2:K2 adalah hasil (output). Artinya, kalau sampai hasil CountIF adalah 0, maka data itu belum ada di area output alias data baru. Dengan demikian, fungsi Match tugasnya adalah selalu mendapatkan posisi data baru (data yang belum ada di output).
>Pada kondisi itu, tidak ada pengkondisian bahwa data di $H$3:$H$63 bukanlah bernilai 0.
>Jelas sudah diketahui bahwa data baru (belum ada di output) adalah yang COUNTIF(K$2:
>Kondisi data di $H$3:$H$63 bukanlah bernilai 0 dapat diekspresikan sebagai :
>( $H$3:$H$63 <> 0 )
>
>Sampai disini, sudah ada 2 kondisi :
>1. data baru (belum ada dioutput) :
>( COUNTIF(K$2:
>2. tidak adanya nilai di data $H$3:$H$63
>( $H$3:$H$63 <> 0 )
>Keduanya harus terpenuhi berarti setara AND yang setara perkalian.
>Maka array data dalam Match akan berupa :
>( COUNTIF(K$2:
>Hasilnya adalah 1 (untuk data baru dan nilai data di $H$3:$H$63 bukanlah 0 ) atau 0 (untuk salah satu dari kedua kondisi yang tak terpenuhi).
>Jadi, yang menjadi lookup value (dicari oleh match) bukan lagi angka 0, melainkan angka 1
>Nah... bagian Match akan menjadi :
>MATCH(1 , ( COUNTIF(K$2:
>
>Array formula lengkap masing-masing :
>1. untuk versi xl2007 :
>=IFERROR(INDEX(
>
>2. untuk semua versi :
>=IF(ROW()-2>
>
>Kesimpulannya :
>Pengubahan formula karena adanya perubahan kondisi (bertambah atau berkurang jumlah kondisinya), difokuskan pada penyusunan kondisi-kondisi baru yang menyertakan kondisi awal (sebelum berubah) secara konsisten. Seperti kondisi bahwa jika CountIF 0 artinya sebagai data baru bergabung bersama kondisi baru berupa ada data di suatu area (dengan Len misalnya).
>
>Wassalam,
>Kid.
>
>
>
>
>2012/10/18 M.Ade Alfarid <QA@kkmi.co.id>
>
>Dear,
>>
>>
>>Untuk menghilangkan angka 0 pada list index,
>>tambah rumus apa?
>>
>>Ade
>>
>>
>>
>>
>>On Mon, 15 Oct 2012 16:30:55 +0700, Mr. Kid <mr.nmkid@gmail.
>>
>>
>>> Coba file terlampir.
>>> Ada yang dibantu oleh sebuah kolom untuk menyusun data multi kolom
>>> menjadi
>>> data sekolom.
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>> 2012/10/15 M.Ade Alfarid <QA@kkmi.co.id>
>>>
>>>> **
>>
>>>>
>>>>
>>>> BeExceller,
>>>>
>>>> Bagaimana untuk mengurut banyak data beberapa kolom,
>>>> data dobel dihitung sekali saja?
>>>> Terimakasih
>>>> --
>>>> ade
>>>>
>>
>
>
>
>
>
>
>
Thu Nov 22, 2012 5:55 pm (PST) . Posted by:
"him mah"
Assalamu'alaikum Wr. Wb.
ketika kita membuat perintah menggunakan VBA atau makro maka sering
kita mengalami error, bisa ngga ya semua error itu ditampung terlebih
dahulu sampai semua prosedur dijalankan sampai akhir. Nah ketika
emang dalam proses tersebut terjadi error bisa 1 atau lebih, maka
error tersebut akan ditampilkan dalam sheet tertentu lengkap dengan
waktu kejadiannya misal saja sheet "ERROR". kira-kira kalau seperti
itu bagaimana VBA nya
terima kasih
ketika kita membuat perintah menggunakan VBA atau makro maka sering
kita mengalami error, bisa ngga ya semua error itu ditampung terlebih
dahulu sampai semua prosedur dijalankan sampai akhir. Nah ketika
emang dalam proses tersebut terjadi error bisa 1 atau lebih, maka
error tersebut akan ditampilkan dalam sheet tertentu lengkap dengan
waktu kejadiannya misal saja sheet "ERROR". kira-kira kalau seperti
itu bagaimana VBA nya
terima kasih
Thu Nov 22, 2012 7:15 pm (PST) . Posted by:
"jajang muhammad siddik" jajang_ms
Dear para pendekar Excel..
Mohon bantuannya script untuk memprotect textbox yang ada pada sebuah userform agar hanya bisa di input dengan angka (0-9) dan ketika textbox tsb di ketik huruf, maka akan muncul peringatan.
salam,
Jajang Muhammad Siddik
Mohon bantuannya script untuk memprotect textbox yang ada pada sebuah userform agar hanya bisa di input dengan angka (0-9) dan ketika textbox tsb di ketik huruf, maka akan muncul peringatan.
salam,
Jajang Muhammad Siddik
Thu Nov 22, 2012 7:54 pm (PST) . Posted by:
"the_x_mikey@yahoo.com" the_x_mikey
Kalau saya pakai
Private sub txtangkaonly.change()
If isnumeric(txtangkaonly.text)= false then
Txtangkaonly=""
Exit sub
End sub
-----Original Message-----
From: jajang muhammad siddik <jajang_ms@yahoo.co.id >
Sender: belajar-excel@yahoogroups.com
Date: Fri, 23 Nov 2012 11:06:38
To: Belajar Excel<belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] protect textbox hanya untuk angka
Dear para pendekar Excel..
Mohon bantuannya script untuk memprotect textbox yang ada pada sebuah userform agar hanya bisa di input dengan angka (0-9) dan ketika textbox tsb di ketik huruf, maka akan muncul peringatan.
salam,
�
Jajang Muhammad Siddik
Private sub txtangkaonly.
If isnumeric(txtangkao
Txtangkaonly=
Exit sub
End sub
-----Original Message-----
From: jajang muhammad siddik <jajang_ms@yahoo.
Sender: belajar-excel@
Date: Fri, 23 Nov 2012 11:06:38
To: Belajar Excel<belajar-excel@
Reply-To: belajar-excel@
Subject: [belajar-excel] protect textbox hanya untuk angka
Dear para pendekar Excel..
Mohon bantuannya script untuk memprotect textbox yang ada pada sebuah userform agar hanya bisa di input dengan angka (0-9) dan ketika textbox tsb di ketik huruf, maka akan muncul peringatan.
salam,
�
Jajang Muhammad Siddik
Thu Nov 22, 2012 7:53 pm (PST) . Posted by:
"Andre Rahmaidy Teeza" andre_teeza_bn
Pagi Mr.Kid
Terima kasih sebelumnya atas petunjuknya, saya mau tanya lagi misalkan data yang akan di entri (data exel) pd setiap field dengan jumlah karakternya berbeda-beda contohnya :
1. field 1 jumlah karakter 45 tipe data bukan numerik melainkan huruf (kata) kalau seandainya data yang dientry berjumlah 12, sedangkan field nya wajib diisi panjang karakter 45.
terkait dengan pertanyaan diatas sudah saya cba sformula di vba yang sebelumnya seperti ini '=TEXT(Ax,"diisi spasi 45"") untuk panjang karakter 45 tipe data huruf. Setelah dilihat hasil notepadnya rumus tersebut tidak jalan. mohon petunjuknya pak. file terlampir.
Regards
Andree
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, November 22, 2012 4:31 PM
Subject: Re: [belajar-excel] Request Macro
Pak Andre,
Milisnya bernama Belajar-Excel.
Berhubung arenanya adalah arena belajar, coba sesuaikan baris :
sFormula = "=TEXT(B1,""000000000"")&TEXT(C1,""000000000"")&TEXT(D1,""000000000"")" 'simpan teks formula
agar merujuk ke range yang diinginkan, dan perhatikan pola dari 3 cell inputan.
Jika ingin buaaaaanyaaaaaakkkkk sekali cell inputan, maka lanjutkan pola formula tersebut sesuai kebutuhan.
Wassalam,
Kid.
2012/11/22 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
>
>Sore Pak Kid
>
>Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan outputnya txt. terima kasih sebelumnya
>
>Regards
>
>Andree
>
>_
>
----------
01001000000000KANTOR CABANG JL. M. THAMRIN NO.45 JAKARTA 349225117(0751) 31577 BUM.9-1-44/II 25041962170819629/20/KEP.DpG/2007 11102007111020079/45/B1/JK/2007 010519810106198110/55/B1/JK/2007 1108200820092008000000024210112008PENAMBAHAN KANTOR BARU
Terima kasih sebelumnya atas petunjuknya, saya mau tanya lagi misalkan data yang akan di entri (data exel) pd setiap field dengan jumlah karakternya berbeda-beda contohnya :
1. field 1 jumlah karakter 45 tipe data bukan numerik melainkan huruf (kata) kalau seandainya data yang dientry berjumlah 12, sedangkan field nya wajib diisi panjang karakter 45.
terkait dengan pertanyaan diatas sudah saya cba sformula di vba yang sebelumnya seperti ini '=TEXT(Ax,"diisi spasi 45"") untuk panjang karakter 45 tipe data huruf. Setelah dilihat hasil notepadnya rumus tersebut tidak jalan. mohon petunjuknya pak. file terlampir.
Regards
Andree
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Thursday, November 22, 2012 4:31 PM
Subject: Re: [belajar-excel] Request Macro
Pak Andre,
Milisnya bernama Belajar-Excel.
Berhubung arenanya adalah arena belajar, coba sesuaikan baris :
sFormula = "=TEXT(B1,""
agar merujuk ke range yang diinginkan, dan perhatikan pola dari 3 cell inputan.
Jika ingin buaaaaanyaaaaaakkkk
Wassalam,
Kid.
2012/11/22 Andre Rahmaidy Teeza <andre_teeza_
>
>Sore Pak Kid
>
>Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan outputnya txt. terima kasih sebelumnya
>
>Regards
>
>Andree
>
>_
>
----------
01001000000000KANTO
Thu Nov 22, 2012 7:58 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Andre,
Untuk data bertipe text. Misal fixedlength 45 char (ketika dituangkan ke
dalam VBA,* setiap karakter *data text petik dua (") harus menjadi 2 buah
petik dua ("")
1. space sebelum nilai data :
right( rept(" ",45) & nilai_datanya , 45 )
2. space setelah nilai data :
left( nilai_datanya & rept(" ",45) , 45 )
Wassalam,
Kid.
2012/11/23 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
> **
>
>
> Pagi Mr.Kid
>
> Terima kasih sebelumnya atas petunjuknya, saya mau tanya lagi misalkan
> data yang akan di entri (data exel) pd setiap field dengan jumlah
> karakternya berbeda-beda contohnya :
> 1. field 1 jumlah karakter 45 tipe data bukan numerik melainkan huruf
> (kata) kalau seandainya data yang dientry berjumlah 12, sedangkan field nya
> wajib diisi panjang karakter 45.
>
> terkait dengan pertanyaan diatas sudah saya cba sformula di vba yang
> sebelumnya seperti ini '=TEXT(Ax,"diisi spasi 45"") untuk panjang karakter
> 45 tipe data huruf. Setelah dilihat hasil notepadnya rumus tersebut tidak
> jalan. mohon petunjuknya pak. file terlampir.
>
> Regards
>
> Andree
>
>
> ________________________________
> From: Mr. Kid <mr.nmkid@gmail.com >
> To: belajar-excel@yahoogroups.com
> Sent: Thursday, November 22, 2012 4:31 PM
> Subject: Re: [belajar-excel] Request Macro
>
>
>
> Pak Andre,
>
> Milisnya bernama Belajar-Excel.
> Berhubung arenanya adalah arena belajar, coba sesuaikan baris :
> sFormula =
> "=TEXT(B1,""000000000"")&TEXT(C1,""000000000"")&TEXT(D1,""000000000"")"
> 'simpan teks formula
> agar merujuk ke range yang diinginkan, dan perhatikan pola dari 3 cell
> inputan.
> Jika ingin buaaaaanyaaaaaakkkkk sekali cell inputan, maka lanjutkan pola
> formula tersebut sesuai kebutuhan.
>
> Wassalam,
> Kid.
>
> 2012/11/22 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
>
> >
> >Sore Pak Kid
> >
> >Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah
> fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk
> txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya
> tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan
> outputnya txt. terima kasih sebelumnya
> >
> >Regards
> >
> >Andree
> >
> >_
> >
>
>
>
Untuk data bertipe text. Misal fixedlength 45 char (ketika dituangkan ke
dalam VBA,* setiap karakter *data text petik dua (") harus menjadi 2 buah
petik dua ("")
1. space sebelum nilai data :
right( rept(" ",45) & nilai_datanya , 45 )
2. space setelah nilai data :
left( nilai_datanya & rept(" ",45) , 45 )
Wassalam,
Kid.
2012/11/23 Andre Rahmaidy Teeza <andre_teeza_
> **
>
>
> Pagi Mr.Kid
>
> Terima kasih sebelumnya atas petunjuknya, saya mau tanya lagi misalkan
> data yang akan di entri (data exel) pd setiap field dengan jumlah
> karakternya berbeda-beda contohnya :
> 1. field 1 jumlah karakter 45 tipe data bukan numerik melainkan huruf
> (kata) kalau seandainya data yang dientry berjumlah 12, sedangkan field nya
> wajib diisi panjang karakter 45.
>
> terkait dengan pertanyaan diatas sudah saya cba sformula di vba yang
> sebelumnya seperti ini '=TEXT(Ax,"diisi spasi 45"") untuk panjang karakter
> 45 tipe data huruf. Setelah dilihat hasil notepadnya rumus tersebut tidak
> jalan. mohon petunjuknya pak. file terlampir.
>
> Regards
>
> Andree
>
>
> ____________
> From: Mr. Kid <mr.nmkid@gmail.
> To: belajar-excel@
> Sent: Thursday, November 22, 2012 4:31 PM
> Subject: Re: [belajar-excel] Request Macro
>
>
>
> Pak Andre,
>
> Milisnya bernama Belajar-Excel.
> Berhubung arenanya adalah arena belajar, coba sesuaikan baris :
> sFormula =
> "=TEXT(B1,""
> 'simpan teks formula
> agar merujuk ke range yang diinginkan, dan perhatikan pola dari 3 cell
> inputan.
> Jika ingin buaaaaanyaaaaaakkkk
> formula tersebut sesuai kebutuhan.
>
> Wassalam,
> Kid.
>
> 2012/11/22 Andre Rahmaidy Teeza <andre_teeza_
>
> >
> >Sore Pak Kid
> >
> >Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah
> fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk
> txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya
> tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan
> outputnya txt. terima kasih sebelumnya
> >
> >Regards
> >
> >Andree
> >
> >_
> >
>
>
>
Thu Nov 22, 2012 9:46 pm (PST) . Posted by:
"Andre Rahmaidy Teeza" andre_teeza_bn
Pak Kid
terima kasih sebelumnya dari petunjuk tadi rumus yang akan dituangkan ke vbanya kalau nilai data harus pakai space setelah nilai data bisa bapak contohkan ga ke file yang saya kirim karena udah saya beberapakali gagal terus hasilnya.. maaf sebelumny pak karena saya baru pertama kali menggunakan macro.
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, November 23, 2012 10:58 AM
Subject: Re: [belajar-excel] Part II Excel ke Text File : FixedLength
Pak Andre,
Untuk data bertipe text. Misal fixedlength 45 char (ketika dituangkan ke dalam VBA,setiap karakter data text petik dua (") harus menjadi 2 buah petik dua ("")
1. space sebelum nilai data :
right( rept(" ",45) & nilai_datanya , 45 )
2. space setelah nilai data :
left( nilai_datanya & rept(" ",45) , 45 )
Wassalam,
Kid.
2012/11/23 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
>
>Pagi Mr.Kid
>
>Terima kasih sebelumnya atas petunjuknya, saya mau tanya lagi misalkan data yang akan di entri (data exel) pd setiap field dengan jumlah karakternya berbeda-beda contohnya :
>1. field 1 jumlah karakter 45 tipe data bukan numerik melainkan huruf (kata) kalau seandainya data yang dientry berjumlah 12, sedangkan field nya wajib diisi panjang karakter 45.
>
>terkait dengan pertanyaan diatas sudah saya cba sformula di vba yang sebelumnya seperti ini '=TEXT(Ax,"diisi spasi 45"") untuk panjang karakter 45 tipe data huruf. Setelah dilihat hasil notepadnya rumus tersebut tidak jalan. mohon petunjuknya pak. file terlampir.
>
>Regards
>
>Andree
>
>
>________________________________
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, November 22, 2012 4:31 PM
>Subject: Re: [belajar-excel] Request Macro
>
>
>
>Pak Andre,
>
>Milisnya bernama Belajar-Excel.
>Berhubung arenanya adalah arena belajar, coba sesuaikan baris :
>sFormula = "=TEXT(B1,""000000000"")&TEXT(C1,""000000000"")&TEXT(D1,""000000000"")" 'simpan teks formula
>agar merujuk ke range yang diinginkan, dan perhatikan pola dari 3 cell inputan.
>Jika ingin buaaaaanyaaaaaakkkkk sekali cell inputan, maka lanjutkan pola formula tersebut sesuai kebutuhan.
>
>Wassalam,
>Kid.
>
>2012/11/22 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
>
>>
>>Sore Pak Kid
>>
>>Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan outputnya txt. terima kasih sebelumnya
>>
>>Regards
>>
>>Andree
>>
>>_
>>
>
>
----------
01001000000000KANTOR CABANG JL. M. THAMRIN NO.45 JAKARTA 349225117(0751) 31577 BUM.9-1-44/II 25041962170819629/20/KEP.DpG/2007 11102007111020079/45/B1/JK/2007 010519810106198110/55/B1/JK/2007 1108200820092008000000024210112008PENAMBAHAN KANTOR BARU
terima kasih sebelumnya dari petunjuk tadi rumus yang akan dituangkan ke vbanya kalau nilai data harus pakai space setelah nilai data bisa bapak contohkan ga ke file yang saya kirim karena udah saya beberapakali gagal terus hasilnya.. maaf sebelumny pak karena saya baru pertama kali menggunakan macro.
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Friday, November 23, 2012 10:58 AM
Subject: Re: [belajar-excel] Part II Excel ke Text File : FixedLength
Pak Andre,
Untuk data bertipe text. Misal fixedlength 45 char (ketika dituangkan ke dalam VBA,setiap karakter data text petik dua (") harus menjadi 2 buah petik dua ("")
1. space sebelum nilai data :
right( rept(" ",45) & nilai_datanya , 45 )
2. space setelah nilai data :
left( nilai_datanya & rept(" ",45) , 45 )
Wassalam,
Kid.
2012/11/23 Andre Rahmaidy Teeza <andre_teeza_
>
>Pagi Mr.Kid
>
>Terima kasih sebelumnya atas petunjuknya, saya mau tanya lagi misalkan data yang akan di entri (data exel) pd setiap field dengan jumlah karakternya berbeda-beda contohnya :
>1. field 1 jumlah karakter 45 tipe data bukan numerik melainkan huruf (kata) kalau seandainya data yang dientry berjumlah 12, sedangkan field nya wajib diisi panjang karakter 45.
>
>terkait dengan pertanyaan diatas sudah saya cba sformula di vba yang sebelumnya seperti ini '=TEXT(Ax,"diisi spasi 45"") untuk panjang karakter 45 tipe data huruf. Setelah dilihat hasil notepadnya rumus tersebut tidak jalan. mohon petunjuknya pak. file terlampir.
>
>Regards
>
>Andree
>
>
>___________
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Thursday, November 22, 2012 4:31 PM
>Subject: Re: [belajar-excel] Request Macro
>
>
>
>Pak Andre,
>
>Milisnya bernama Belajar-Excel.
>Berhubung arenanya adalah arena belajar, coba sesuaikan baris :
>sFormula = "=TEXT(B1,""
>agar merujuk ke range yang diinginkan, dan perhatikan pola dari 3 cell inputan.
>Jika ingin buaaaaanyaaaaaakkkk
>
>Wassalam,
>Kid.
>
>2012/11/22 Andre Rahmaidy Teeza <andre_teeza_
>
>>
>>Sore Pak Kid
>>
>>Menindaklanjuti request saya mengenai macro exel, kalau seandainya jumlah fielnya lebih dari 3 (tiga) yang akan dijadikan file output dalam bentuk txt, sudah saya coba coding macro pada file yang telah dikirim sebelumnya tapi hasilnya gagal. mohon bantuannya pak file terlampir dijadikan outputnya txt. terima kasih sebelumnya
>>
>>Regards
>>
>>Andree
>>
>>_
>>
>
>
----------
01001000000000KANTO
Thu Nov 22, 2012 7:54 pm (PST) . Posted by:
"the_x_mikey@yahoo.com" the_x_mikey
Lupa mesej box nya
Private sub txtangkaonly.change()
If isnumeric(txtangkaonly.text)= false then
Txtangkaonly=""
Msgbox "wooii jgn bandel, cuma boleh angka"
Exit sub
End sub
-----Original Message-----
From: the_x_mikey@yahoo.com
Date: Fri, 23 Nov 2012 03:18:47
To: <belajar-excel@yahoogroups.com >
Reply-To: the_x_mikey@yahoo.com
Subject: Re: [belajar-excel] protect textbox hanya untuk angka
Kalau saya pakai
Private sub txtangkaonly.change()
If isnumeric(txtangkaonly.text)= false then
Txtangkaonly=""
Exit sub
End sub
-----Original Message-----
From: jajang muhammad siddik <jajang_ms@yahoo.co.id >
Sender: belajar-excel@yahoogroups.com
Date: Fri, 23 Nov 2012 11:06:38
To: Belajar Excel<belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] protect textbox hanya untuk angka
Dear para pendekar Excel..
Mohon bantuannya script untuk memprotect textbox yang ada pada sebuah userform agar hanya bisa di input dengan angka (0-9) dan ketika textbox tsb di ketik huruf, maka akan muncul peringatan.
salam,
�
Jajang Muhammad Siddik
Private sub txtangkaonly.
If isnumeric(txtangkao
Txtangkaonly=
Msgbox "wooii jgn bandel, cuma boleh angka"
Exit sub
End sub
-----Original Message-----
From: the_x_mikey@
Date: Fri, 23 Nov 2012 03:18:47
To: <belajar-excel@
Reply-To: the_x_mikey@
Subject: Re: [belajar-excel] protect textbox hanya untuk angka
Kalau saya pakai
Private sub txtangkaonly.
If isnumeric(txtangkao
Txtangkaonly=
Exit sub
End sub
-----Original Message-----
From: jajang muhammad siddik <jajang_ms@yahoo.
Sender: belajar-excel@
Date: Fri, 23 Nov 2012 11:06:38
To: Belajar Excel<belajar-excel@
Reply-To: belajar-excel@
Subject: [belajar-excel] protect textbox hanya untuk angka
Dear para pendekar Excel..
Mohon bantuannya script untuk memprotect textbox yang ada pada sebuah userform agar hanya bisa di input dengan angka (0-9) dan ketika textbox tsb di ketik huruf, maka akan muncul peringatan.
salam,
�
Jajang Muhammad Siddik
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