Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Event.....Spell Check
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Event.....Spell Check
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Event.....Spell Check
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Event.....Spell Check
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Event.....Spell Check
Hi Doug............
I been working on the other computer all evening.......it's got problems.........and haven't had a chance to install your new code but from the looks of it, thats exactly what I was looking for........... Thanks again so very much............ 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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Event.....Spell Check
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 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Event.....Spell Check
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 |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do you change the font in the pop up spell check box? | Excel Discussion (Misc queries) | |||
Spell Check | New Users to Excel | |||
Spell Check | Excel Worksheet Functions | |||
Spell check | Excel Discussion (Misc queries) | |||
... Can I set Spell Check to automatically check my spelling ... | Setting up and Configuration of Excel |