kalau mau aman maka deklarasikan sbg string. ' semua kode ini berada pada level
workbook' caranya : ' 1. pada saat berada di sheet, tekan [ALT] , jangan
dilepas , lalu tekan [F11] . maka anda berada di VBA Editor' 2. saat berada
di VBA editor , tekan [Ctrl] , jangan dilepas, lalu tekan [R] , maka anda
berada di VBA-Project' 3. disana ada kumpulan sheet dan juga mungkin
kumpulan workbook ( kalau buka lebih dari 1 file excel )' 4. pilih workbook
( di vbaproject berlabel 'this workbook' ) dimana fungsi ganti warna diinginkan
' 5. lalu double-klik ( 2 kali klik kiri secara berurutan dan cepat )'
6. anda kini berada vba-editor level workbook' 7. lalu ketik koding dibawah
ini' 8. untuk kembali ke sheet : pilih menu [File] ,lalu pilih [Close and
Return to Microsoft Excel]' 9. jika anda window / tampilan untuk simpan ,
maka simpan saja.' 10. untuk menguji silakan pindah ke sheet lain lalu
pindahkan kursor ke beberapa sel. ' 11. Kini anda aman untuk menyimpan file
excel anda ( bila ingin lebih aman simpan dgn nama lain ).' ----------- '
koding yang perlu ditulis di VBA EditorPublic alamatsebelumnya As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)' kursor pada saat sheet
aktif
alamatsebelumnya = ActiveCell.Address
With Range(alamatsebelumnya).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
End SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If alamatsebelumnya <> "" Then
With Range(alamatsebelumnya).Interior
.Color = 10
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4' atau .color = .........
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
alamatsebelumnya = Target.AddressEnd Sub
To: belajar-excel@yahoogroups.com
From: hapsari.stlizb...@gmail.com
Date: Thu, 24 Nov 2011 18:44:14 +0700
Subject: Re: [belajar-excel] Mewarnai kursor
kenapa ya..?mungkin makronya belum di enabled-kan
coba workbook lampiran ini...
di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.
2011/11/24 <hartini...@yahoo.co.id>
Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak
berfungsi, kursor ndak berwarna apapun, piye kie mba...?
Salam
Tiny
From: Haps <hapsari.stlizb...@gmail.com>
Date: Thu, 24 Nov 2011 18:23:56 +0700maaf ikutan sedikit...untuk memberlakukan
di semua sheets dlm 1 workbooksepertinya tidak perlu prosedurnya dicopy ke
semua sheet
tetapi cukup dipindah ke level workbook (module ThisWorkbook)
dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
Static OldTarget As Range If Not OldTarget Is Nothing Then
OldTarget.Interior.ColorIndex = xlNone
With Target.Interior .ColorIndex = 38
.Pattern = xlSolid End With
Set OldTarget = TargetEnd Sub
