Re: ]] XL-mania [[ Rubah warna text otomatis

untuk membandingkan data sebelum diedit dan data setelah diedit
(apakah sama); anda perlu data pembanding
dengan punya data pembanding kita dapat memberlakukan conditionalformatting


lihat contoh di workbook1

jika anda ogah membuat data pembanding-nya; masih ada cara lain
misal dengan pemrograman vba

Dim otx As String
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
otx = Target(1, 1).Value
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not otx = "" Then
If Not Target(1, 1).Text = otx Then
Target(1, 1).Font.ColorIndex = 3
End If
End If
End Sub

lihat contoh di workbook2

2010/7/15 trie <trie_wiyudha@yahoo.com>

Dear XL mania yang makin ciamik...
Mohon bantuannya, bagaimana caranya merubah warna text secara otomatis setelah di edit.
Contohnya:
Sebelum :  "XL Mania"
Setelah di edit : "XL Mania makin oke"

Tks ya.............