Re: [belajar-excel] Mewarnai data yang tidak sama antara kolom A dan kolom B

[De Premor d...@premor.net [belajar-excel]]

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 
<mailto: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