Re: ]] XL-mania [[ Row aktif berwarna

 

Silakan dicoba :
    Dim cf As FormatCondition
    On Error Resume Next
    If Target.Rows.Count = 1 Then
        Cells.FormatConditions.Delete
        With Target.EntireRow.FormatConditions.Add(xlExpression, Formula1:="=row()=row()")
            .Interior.ColorIndex = 6
        End With
    End If

Jika dengan Excel 2007, tidak perlu buang yang lama kemudian cipta yang baru, tetapi cukup gunakan metode ModifyAppliesToRange dengan input parameter adalah range yang akan dikenai conditional formatting

Kid.

2010/6/23 Roji Bahaudin <dagmedt@gmail.com>

 

Dear Pakar2 Excel
Saya lagi punya masalah, beberapa kali ngutek-utek macro belum berhasil.
Saya pingin ketika klik sebuah kolom, maka row-nya menjadi warna kuning, saat pindah kolom maka row yg tidak aktif warnanya kembali normal. Akan tetapi tidak mempengaruhi warna kolom jika sudah ada warnanya.
pada file lampiran, row bisa berwarna kuning, tetapi saat pindah kolom warna row yang tidak aktif tetap kuning, kira2 giman ya scriptnya...
Mohon bantuannya

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 123

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momod akan terdampar seminggu lagi, moderasi akan lemodmod...     |
| hidup tanpa google dan fesbuk dan yahuuuu... ampun dehhh...       |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___