excel checkspelling single cell

Question

Я немного борюсь с CheckSpelling в Excel. У меня есть объединенная ячейка, которую я хочу проверить, но только эта ячейка. Вот что я делаю.

ActiveSheet.Unprotect strSheetPassword 
Application.DisplayAlerts = False 
Set ma = Range("B21").MergeArea 
ma.MergeCells = False 
Union(Range("B1"), ma(1, 1)).CheckSpelling 
ma.MergeCells = True 
Application.DisplayAlerts = True 
ActiveSheet.Protect strSheetPassword 

Это проверка ячейки, которую я хочу, но она также проверяет остальную часть документа. При чтении других сообщений у меня создалось впечатление, что проверка одной ячейки заставляет CheckSpelling проверять весь документ. Вот почему я ввел Союз с диапазоном («B1») - B1 содержит текст заголовка, который не имеет орфографических ошибок и обычно заблокирован, поэтому пользователи не могут его изменить. Но он все еще проверяет остальную часть листа! Я пробовал довольно много вариаций, но он все еще проверяет остальную часть листа.

ЗАКЛЮЧЕНИЕ У меня создалось впечатление, что можно было вызвать форму CheckSpelling и проверить ее только на определенные ячейки. По-видимому, это не так. Вместо того, чтобы строить свою собственную форму, я должен уйти, проверяя весь лист каждый раз, хотя мне это действительно не нравится. Спасибо всем за отзывы!

Answer 1

Для одной объединенной ячейки:

Sub spell_me() 
    Dim b As Boolean 
    b = Application.CheckSpelling(Word:=ActiveCell.Text) 
    MsgBox b & vbCrLf & ActiveCell.Address & vbCrLf & ActiveCell.Text 
End Sub 

EDIT # 1:

Чтобы найти негодяя слово, вы могли бы Split() текст на отдельные слова и проверить каждое слово.

Answer 2

Если это достаточно, если неправильная часть подсвечивается вы можете использовать это:

Sub SpellCheck() 
Dim response As Boolean 
Dim words As Variant 
Dim wordCount As Long 
Dim startAt As Long 

words = Split(ActiveCell.Text, " ") 
'set all of the text to automatic color 
ActiveCell.Font.ColorIndex = xlAutomatic 
For wordCount = LBound(words) To UBound(words) 
response = Application.CheckSpelling(word:=words(wordCount)) 
If Not response Then 
    'find out where it is in the text and color the font red 
    startAt = InStr(ActiveCell.Text & " ", words(wordCount) & " ") 
    ActiveCell.Characters(Start:=startAt, Length:=Len(words(wordCount))).Font.Color = vbRed 
End If 
Next 
End Sub