Как да приложа проверка на правописа в текстовото поле?
Можем лесно да приложим функцията Spelling за проверка на правописа на текстовия низ от клетка, но тази функция не се прилага към текстовото поле за проверка на правописа. В тази статия ще говоря за това как да приложа проверката на правописа в текстово поле.
Прилагане на проверка на правописа в текстово поле с VBA код
Прилагане на проверка на правописа в текстово поле с VBA код
За да проверите правописа на текстовия низ в текстово поле, кодът на VBA по-долу може да ви направи услуга:
1. Първо, моля, вмъкнете текстово поле, като щракнете Софтуерен Инженер > Поставете > Текстово поле (ActiveX Control)и плъзнете, за да нарисувате текстово поле, вижте екранната снимка:
2. След това, моля, излезте от Режим на проектиране за да въведете текстовия низ в текстовото поле, както ви е необходимо, след като въведете текста, продължете да активирате Режим на проектиранеи щракнете с десния бутон върху текстовото поле, за да изберете Преглед на кода от контекстното меню вижте екранната снимка:
3. В отвореното Microsoft Visual Basic за приложения прозорец, моля, заменете оригиналния код със следния VBA код в модула.
VBA код: Приложете проверка на правописа в текстовото поле:
Sub SpellChkRvw_Click()
Dim xObject As Object
Dim xCell As Range
On Error Resume Next
Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
If ActiveSheet.OLEObjects.Count > 0 Then
For Each xObject In ActiveSheet.OLEObjects
xCell = xObject.Object.Text
xCell.CheckSpelling , , , 1033
xObject.Object.Text = xCell
Next
End If
End Sub
4. И след това натиснете F5 ключ за изпълнение на този код, the Правопис диалоговият прозорец е активиран веднага, тогава можете да използвате Правопис функция за проверка на правописа на текста в текстовото поле, както е показано на следната екранна снимка:
Още по темата:
Как да променя цвета на текстовото поле въз основа на стойност в Excel?
Как да вмъкна картина в текстово поле?
Как да задам стойност по подразбиране в текстово поле?
Как да разрешите въвеждането само на числа в текстовото поле?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
