Terima kasih pak De atas pencerahannya.
Sebelumnya saya cuma kira2..setelah dpt penjelasan semakin yakin.
Salam,
HK
Sent from Samsung Mobile
<div>-------- Original message --------</div><div>From: "De Premor
d...@premor.net [belajar-excel]" <belajar-excel@yahoogroups.com>
</div><div>Date:13/12/2014 07:32 (GMT+07:00) </div><div>To:
belajar-excel@yahoogroups.com </div><div>Subject: Re: [belajar-excel] Mewarnai
data yang tidak sama antara kolom A dan kolom B </div><div>
</div>Hadeh, saya nubie om :D
yang kontif-kontif itu maksudnya cuman mau mbuat kombinasi kontif biasa saja
kok om
Fungsi Address dimakro kan hasilnya selalu range Absolut, Ex: $C$4 atau
$C$4:$C$5000, jadi saya gunakan fungsi replace untuk membuang dollar sign nya
di bagian belakang agar bisa diapply ke seluruh baris dimasing-masing kolom
IF(COUNTIF(" & RngB.Address & ";" & Replace(RngA.Cells(1, 1).Address, "$",
"") & ")=0;1;0)
hasile kalau jadi rumus eksel:
=IF(COUNTIF($E$2:$E$500000;D2)=0;1;0)
Jadi dicari dulu di kolom E2 sampe E500000 kalau tidak ada, akan ditandai
dengan nilai 1 (BENAR = DIWARNA MERAH), kalau ada akan ditandai 0 (SALAH)
Kira-kira begitu penjelasannya yang sekelumit ini semoga dapat diterima (soale
gak pandai menjelaskan :D)
BR,
[dp]
On 13/12/2014 0:03, hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]
wrote:
Kalau sesepuh sudah turun tangan, saya malah balik mohon petunjuk bagaimana
memahami kombinasi function
IF(COUNTIF(" & RngB.Address & ";" & Replace(RngA.Cells(1, 1).Address, "$", "")
& ")=0;1;0)
Kalau yang ini
Warna Sheet2.Range("D2:D500000"), Sheet2.Range("E2:E750000")
barangkali bisa diganti dengan
Warna Sheet1.Range("A1", Sheet1.Range("A1").End(xlDown)), Sheet1.Range("B1",
Sheet1.Range("B1").End(xlDown))
Supaya merahnya jatuh pada data yang terisi saja (kolom A dan B Sheet1).
Salam,
HK
From: "De Premor d...@premor.net [belajar-excel]"
<belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 12 December 2014, 12:51
Subject: Re: [belajar-excel] Mewarnai data yang tidak sama antara kolom A dan
kolom B
Pakai Conditional Formating :D
Sub Warna(RngA As Range, RngB As Range)
RngA.FormatConditions.Delete
RngA.FormatConditions.Add xlExpression, , "=IF(COUNTIF(" &
RngB.Address & ";" & Replace(RngA.Cells(1, 1).Address, "$",
"") & ")=0;1;0)"
RngA.FormatConditions(1).Interior.Color = 255
RngB.FormatConditions.Delete
RngB.FormatConditions.Add xlExpression, , "=IF(COUNTIF(" &
RngA.Address & ";" & Replace(RngB.Cells(1, 1).Address, "$",
"") & ")=0;1;0)"
RngB.FormatConditions(1).Interior.Color = 255
End Sub
Sub tes()
Warna Sheet2.Range("D2:D500000"), Sheet2.Range("E2:E750000")
End Sub
Rgds,
[dp]
On 12/12/2014 11:46, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:
Ada yang punya ide lain ?
Sapa tahu ada yang punya ide untuk menghindari loop ke banyak
cells karena data pertama berisi 500ribu baris dan data
kedua berisi 750ribu baris. Capek nunggunya gak kalo pakai loop ?
2014-12-12 13:49 GMT+11:00 SUYONO reza.suy...@lge.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
Pagi Hendrik,
Ikutan kuis, disini datanya saya asumsikan data tempatkan di
Range("B3:B9")dan Range("C3:C9").
Semoga jawabanya bener…hehe.. hadiahnya apa pa…?
di module
Public Sub Warna(Rng1 As Range, Rng2 As Range)
Dim JmlDt As Integer
Dim cell As Range
For Each cell In Rng1
JmlDt = Application.WorksheetFunction.CountIf(Rng2, cell)
If JmlDt = 0 Then
cell.Interior.Color = 255
End If
Next
For Each cell In Rng2
JmlDt = Application.WorksheetFunction.CountIf(Rng1, cell)
If JmlDt = 0 Then
cell.Interior.Color = 255
End If
Next
End Sub
Skrip di tombol
Private Sub CommandButton1_Click()
Call Warna(Range("B3:B9"), Range("C3:C9"))
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, December 11,
2014 10:08 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mewarnai data yang tidak sama antara kolom A dan kolom
B
Yang ini quiz iseng sebelum tidur.....tapi jangan sampe ketiduran
AA
AA
AC
AB
AB
AD
AD
AE
AB
AA
AD
AG
AF
AB
Bagaimana macronya agar:
- data yang ada di kolom A tetapi tidak ada di kolom B
atau
- data yang ada di kolom B tetapi tidak ada di kolom A
diberi tanda dengan warna merah.
Jika datanya diubah diharapkan kita tidak perlu menghapus warna merah
sebelumnya.
Selamat mencoba.
Salam,
HK
