Як застосувати перевірку правопису в текстовому полі?
Ми можемо легко застосувати функцію правопису для перевірки правопису текстового рядка з комірки, але ця функція не застосовується до текстового поля для перевірки правопису. У цій статті я розповім про те, як застосувати перевірку правопису в текстовому полі.
Застосуйте перевірку орфографії у текстовому полі з кодом VBA
Застосуйте перевірку орфографії у текстовому полі з кодом VBA
Щоб перевірити орфографію текстового рядка в текстовому полі, наведений нижче код VBA може зробити вам послугу:
1. Спочатку вставте текстове поле, клацнувши Розробник > Insert > Текстове поле (керування ActiveX)та перетягніть, щоб намалювати текстове поле, див. знімок екрана:
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 ключ для запуску цього коду, Орфографія діалогове вікно ввімкнено відразу, тоді ви можете використовувати Орфографія функція перевірки правопису тексту в текстове поле, як показано на наступному знімку екрана:
Статті по темі:
Як змінити колір текстового поля на основі значення в Excel?
Як вставити малюнок у текстове поле?
Як встановити значення за замовчуванням у текстовому полі?
Як дозволити вводити в текстове поле лише цифри?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!