Eu preciso mudar a cor do cursor
Você pode usar o código ("Realçando a célula ativa") abaixo.
No entanto, há um lado negativo:
There is one massive drawback, and that is that this technique will use something called "Event Procedures", which means that the macro will fire every time you move the cursor - and every time a macro fires it will clear your undo stack. So, yes, it is do-able, but you'll lose your undo facility.
Fonte A cor do 'cursor' ou 'contorno da célula' do Excel pode ser alterada?
O RowLiner add-in (pelo mesmo autor do código abaixo) também parece interessante. Este suplemento tem o mesmo problema com undo:
RowLiner will disable the Undo feature. This is a limitation imposed by the basic design of Excel and cannot be changed.
Destacando a célula ativa
If you want to make the active cell appear in a special color, use the following code in the Workbook_
SheetSelectionChange
event of the workbook.Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Static OldRange As Range On Error Resume Next Target.Interior.ColorIndex = 6 ' yellow - change as needed OldRange.Interior.ColorIndex = xlColorIndexNone Set OldRange = Target End Sub
This will change the background color of the ActiveCell to yellow anytime you select a new cell, either with the mouse or with the arrow keys.
NOTE: This technique has been greatly enhanced in my RowLiner add-in. I strongly suggest you use RowLiner instead.