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
<mailto:reza.suy...@lge.com> [belajar-excel]
<belajar-excel@yahoogroups.com <mailto: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>
[mailto:belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com>]
*Sent:* Thursday, December 11, 2014 10:08 PM
*To:* belajar-excel@yahoogroups.com
<mailto: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
