Change Event.....Spell Check
Tom,
You're right, it doesn't work with 97. It does in 2k. How would you do it?
Thanks,
Doug
"Tom Ogilvy" wrote in message
...
Just a question. When I tried this fix approach in xl97, the spell
checker
did check the restricted range, but after finishing that, asked it I
wanted
to check the remainder of the document. Does that not happen in your case
and what version of excel.
Thanks,
Tom Ogilvy
CLR wrote in message
...
I just got a chance to check out your latest code this morning Doug, and
it
does work EXACTLY like I wanted it to..............many MANY
Thank-you's...........
Vaya con Dios,
Chuck, CABGx3
"Doug Glancy" wrote in message
...
Chuck,
This seems to work, although, note that if it's a string with no
spaces
it
only works if it's under 255 characters. But if there are spaces in
the
textbox contents, then it does what you asked for:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A63:G69")) Is Nothing And
Len(Range("A63"))
<= 256 Then
Range("A63:G69").CheckSpelling CustomDictionary:="CUSTOM.DIC",
IgnoreUppercase:=False, _
AlwaysSuggest:=True, SpellLang:=1033
ActiveWindow.ScrollColumn = 1
End If
End Sub
Doug
"CLR" wrote in message
...
OUTSTANDING Doug...........thanks muchly.
It's beautiful............exactly what I wanted.
Oh yeah, is there any way to qualify it so it will only run if the
character
count in the cell/range is less than 257?
Vaya con Dios,
Chuck, CABGx3
"Doug Glancy" wrote in message
...
In your code the word Cells in "Cells.CheckSpelling" tells it to
check
the
whole sheet, regardless of your previous selection. Try this:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A63:G69")) Is Nothing Then
Range("A63:G69").CheckSpelling CustomDictionary:="CUSTOM.DIC",
IgnoreUppercase:=False, _
AlwaysSuggest:=True, SpellLang:=1033
ActiveWindow.ScrollColumn = 1
End If
End Sub
hth,
Doug
"CLR" wrote in message
...
Hi All..............
I am trying to create/record a macro that will automatically
start
the
Spell
Checker on a cell as soon as data is entered into it.
I have a large cell created by merging many cells (A63:g69) to
form
a
NOTES:
box at the bottom on one of my sheets. Many of my users can't
spell,
and
I
would like the SpellChecker to pop up as soon as they hit Enter
after
typing
in that cell, but would like to restrict it to only checking
THAT
one
cell-range,.............right now it wants to check the whole
sheet,
even
the cells in hidden columns..........
Here's what I've got so far...........
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$63" Then
Range("A63:G69").Select
Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC",
IgnoreUppercase:=False _
, AlwaysSuggest:=True, SpellLang:=1033
ActiveWindow.ScrollColumn = 1
Application.EnableEvents = True
End If
End Sub
Any help would be appreciated..........
Vaya con Dios,
Chuck, CABGx3
|