Нормализовать строку при нажатии клавиши Enter в Excel

В следующей статье подробно рассказывается, как использовать функции для нормализации строк при нажатии клавиши Enter в Excel. Эта функция удалит пробелы в начале и конце строки, удалит два последовательных символа пробела между словами. Это очень удобно при вводе имени в поле, особенно если первая буква каждого слова должна быть заглавной.

Шаг 1. Откройте программу Microsoft Excel.

Шаг 2: Нажмите комбинацию клавиш Alt + F11 -> появится диалоговое окно Microsoft Visual Basic для приложения. Щелкните Вставить -> Модуль.

Изображение 1 строки нормализации при нажатии клавиши Enter в Excel

Шаг 3: Появится диалоговое окно, введите следующий код:

Изображение 2 строки нормализации при нажатии клавиши Enter в Excel

Функция Chuanhoachuoi (str As String) As String Dim sChoioi As String Dim mlen As Long Dim i As Long If Len (str) = 0 Then Exit Function str = Trim (str) mlen = Len (str) For i = 1 To mlen If Mid (str, i, 1) = «» And Mid (str, i + 1, 1) = «» Затем str = Replace (str, «», «») i = i — 1 End If Next For i = 1 To mlen If Mid (str, i, 1) = «» Тогда sChuoi = sChuoi & «» & UCase (Mid (str, i + 1, 1)) i = i + 1 Else If i = 1 Then sChuoi = UCase ( UCase (Mid (str, 1, 1)) Else sChuoi = sChuoi & LCase (Mid (str, i, 1)) End If End If Next Chuanhoachuoi = sChuoi End Function

Шаг 4: После импорта выберите Сохранить. Поскольку файл содержит функцию макроса, при сохранении в Excel сообщения для сохранения макроса вы выбираете Да. Затем нажмите «Сохранить», чтобы сохранить.

Изображение 3 строки нормализации при нажатии клавиши Enter в Excel

Шаг 5: Выберите лист с помощью функции нормализации. Дважды щелкните лист 1, как показано.

Изображение 4 строки нормализации при нажатии клавиши Enter в Excel

Шаг 6: Выберите событие изменения для этого листа. В разделе «Общие» выберите «Рабочая таблица», в разделе «Объявления» выберите «Изменить».

Изображение 5 строки нормализации при нажатии клавиши Enter в Excel

Шаг 7: Введите команду для события «Изменить».

Изображение 6 строки нормализации при нажатии клавиши Enter в Excel

Private Sub Worksheet_Change (ByVal Target As Range) Dim str1 As String If Not (Aplication.Intersect (Targer, Range («$ D: $ D»)) Is Nothing) Then str1 = Chuanhoachuoi (Target.Value) Target = str1 End If Конец подписки

Примечание: Обратите внимание на оператор Range («$ B: $ B»): столбец B использует функцию нормализации строки. Если вы хотите подать заявку с другим адресом, можете изменить его следующим образом:

— Применить из столбца B к столбцу C: диапазон («B: $ C»).

— Применить от ячеек F9 к F15 и от H7 к H19: Диапазон («F9: $ F15, $ H7: $ H19»).

— Применить 2 столбца, не следующих подряд: Диапазон («$ B: $ B; $ F: $ F»).

Шаг 8: Вернитесь к файлу Excel. Применяется к Sheet1 и столбцу B с использованием стандартизованной функции.

— В столбце B введите свое имя без заглавных букв и между двумя словами с большим количеством пробелов.

Изображение 7 строки нормализации при нажатии клавиши Enter в Excel

— При нажатии Enter автоматически заглавные буквы и лишние пробелы удаляются.

Изображение 8 строки нормализации при нажатии клавиши Enter в Excel

Удачи!

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован.