Hi all,

How do I change the default on the cursor display in an active cell? I would
like to colour the cursor border of make it blink.......any ideas!

Sorry, you can't do blinking in Excel.

--
Andy Wiggins FCCA
www.BygSoftware.com
Excel, Access and VBA Consultancy
-

"C Ambrose" <C wrote in message
...
Hi all,

How do I change the default on the cursor display in an active cell? I
would
like to colour the cursor border of make it blink.......any ideas!

Hi,

I asked the same question some time ago and was pointed an Add-in

http://www.cpearson.com/excel/RowLiner.htm

Alternatively,

found this code from an old post by Earl Kiosterud - which seems to do what
you require
---------

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static Roww As Integer
Static NotFirstTime As Boolean
Application.EnableEvents = False
If NotFirstTime Then ' remove color fill from prior row
Range(Cells(Roww, 1), Cells(Roww, 10)).Interior.ColorIndex = xlNone
Else
NotFirstTime = True
End If
Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Select
Roww = Selection.Row ' save current row for uncoloring when row exited
Selection.Interior.ColorIndex = 4 ' color current row
Application.EnableEvents = True
End Sub

------------

to utilise the code, right mouse click on the sheet tab of the sheet you
want to use this in - choose view code - and copy & paste the code in there
use alt & f11 to switch back to the sheet and try it


Regards

HTH - Pank

"C Ambrose" wrote:

Hi all,

How do I change the default on the cursor display in an active cell? I would
like to colour the cursor border of make it blink.......any ideas!

Andy Wiggins wrote...
Sorry, you can't do blinking in Excel.
....

I hate categorically false answers. There's no built-in support, and
it's klunky, but it *IS* possible.


Sub blikningstupidity()
Dim s As Long, dt As Date, ac As Range, sb As Boolean
Dim sls As XlLineStyle, sw As XlBorderWeight, sci As XlColorIndex
Dim bls As Variant, bw As Variant, bci As Variant

bls = Array(xlContinuous, xlDash, xlDot, xlDouble)
bw = Array(xlThin, xlMedium, xlThick)
bci = Array(2, 3, 4, 5, 6, 7, 8)

Set ac = ActiveCell
If ac.Borders.LineStyle = xlNone Then
sb = False
Else
sb = True
With ac.Borders
sls = .LineStyle
sw = .Weight
sci = .ColorIndex
End With
End If

Do 'forever
If ac.Address(External:=1) = ActiveCell.Address(External:=1) Then
With ac.Borders
.LineStyle = bls(s Mod UBound(bls))
.Weight = bw(s Mod UBound(bw))
.ColorIndex = bci(s Mod UBound(bci))
End With

dt = Now + TimeSerial(0, 0, 1)
Do While Now < dt
DoEvents
Loop

s = s + 1
Else
If sb Then
With ac.Borders
.LineStyle = sls
.Weight = sw
.ColorIndex = sci
End With
Else
ac.Borders.LineStyle = xlNone
End If

Set ac = ActiveCell
If ac.Borders.LineStyle = xlNone Then
sb = False
Else
sb = True
With ac.Borders
sls = .LineStyle
sw = .Weight
sci = .ColorIndex
End With
End If
End If
Loop
End Sub

Blinking is not part of the Excel interface, which was the area I understood
the OP to be asking about.

I accept that your code produces the blinking effect, but at what expense?
It's based on a never-ending Do loop. This code goes into my museum of
time-wasters.

--
Andy Wiggins FCCA
www.BygSoftware.com
Excel, Access and VBA Consultancy
-

"Harlan Grove" wrote in message
ups.com...
Andy Wiggins wrote...
Sorry, you can't do blinking in Excel.
...

I hate categorically false answers. There's no built-in support, and
it's klunky, but it *IS* possible.


Sub blikningstupidity()
Dim s As Long, dt As Date, ac As Range, sb As Boolean
Dim sls As XlLineStyle, sw As XlBorderWeight, sci As XlColorIndex
Dim bls As Variant, bw As Variant, bci As Variant

bls = Array(xlContinuous, xlDash, xlDot, xlDouble)
bw = Array(xlThin, xlMedium, xlThick)
bci = Array(2, 3, 4, 5, 6, 7, 8)

Set ac = ActiveCell
If ac.Borders.LineStyle = xlNone Then
sb = False
Else
sb = True
With ac.Borders
sls = .LineStyle
sw = .Weight
sci = .ColorIndex
End With
End If

Do 'forever
If ac.Address(External:=1) = ActiveCell.Address(External:=1) Then
With ac.Borders
.LineStyle = bls(s Mod UBound(bls))
.Weight = bw(s Mod UBound(bw))
.ColorIndex = bci(s Mod UBound(bci))
End With

dt = Now + TimeSerial(0, 0, 1)
Do While Now < dt
DoEvents
Loop

s = s + 1
Else
If sb Then
With ac.Borders
.LineStyle = sls
.Weight = sw
.ColorIndex = sci
End With
Else
ac.Borders.LineStyle = xlNone
End If

Set ac = ActiveCell
If ac.Borders.LineStyle = xlNone Then
sb = False
Else
sb = True
With ac.Borders
sls = .LineStyle
sw = .Weight
sci = .ColorIndex
End With
End If
End If
Loop
End Sub

Andy Wiggins wrote...
Blinking is not part of the Excel interface, which was the area I
understood
the OP to be asking about.

I accept that your code produces the blinking effect, but at what
expense?
It's based on a never-ending Do loop. This code goes into my museum of
time-wasters.
....

Most of the udfs posted in the Excel newsgroups address formula
calculation functionality that isn't built in. Should we refrain from
providing such udfs and just tell the OPs it can't be done?

You screwed up and failed to state clearly that there was no built-in
functionality to do so. I agree that the VBA needed to accomplish it
isn't worth the performance drag (though I don't share your unthinking
bias against unending loops - whatcha think is the core of Windows's
System Idle Process?), but the plain fact is that what the OP asked
about *CAN* be done. Whether it's worth doing so is up to the OP, not
you or me.

Your reply also enters my museum :-)

--
Andy Wiggins FCCA
www.BygSoftware.com
Excel, Access and VBA Consultancy
-

"Harlan Grove" wrote in message
oups.com...
Andy Wiggins wrote...
Blinking is not part of the Excel interface, which was the area I
understood
the OP to be asking about.

I accept that your code produces the blinking effect, but at what
expense?
It's based on a never-ending Do loop. This code goes into my museum of
time-wasters.
...

Most of the udfs posted in the Excel newsgroups address formula
calculation functionality that isn't built in. Should we refrain from
providing such udfs and just tell the OPs it can't be done?

You screwed up and failed to state clearly that there was no built-in
functionality to do so. I agree that the VBA needed to accomplish it
isn't worth the performance drag (though I don't share your unthinking
bias against unending loops - whatcha think is the core of Windows's
System Idle Process?), but the plain fact is that what the OP asked
about *CAN* be done. Whether it's worth doing so is up to the OP, not
you or me.

Andy Wiggins wrote...
Your reply also enters my museum :-)
....

Enjoy yourself there.

I don't spend any time there. It's only for worthless junk.

--
Andy Wiggins FCCA
www.BygSoftware.com
Excel, Access and VBA Consultancy
-

"Harlan Grove" wrote in message
oups.com...
Andy Wiggins wrote...
Your reply also enters my museum :-)
...

Enjoy yourself there.

Andy Wiggins wrote...
I don't spend any time there. It's only for worthless junk.
....

Which would explain why you spend so much time stocking it and writing
about it?