Укоротить запись поиска позиции слов в ячейке.

[agregator]

Здравствуйте уважаемые программисты. Написал код, который меняет определённые слова (ТО-, гур, акб, кпп, рдв, гтр, рвд, гтк, мод, ртс, цом и т.д.) на заглавные (и первую букву в строке на заглавную).
Подскажите как можно укоротить запись поиска позиции этих слов.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim oCell As Range
For Each oCell In Target
On Error GoTo NoText
x = InStr(oCell, "то-")
If x = 0 Then x = InStr(oCell, "гур")
If x = 0 Then x = InStr(oCell, "двс")
If x = 0 Then x = InStr(oCell, "акб")
If x = 0 Then x = InStr(oCell, "кпп")
If x = 0 Then x = InStr(oCell, "рдв")
If x = 0 Then x = InStr(oCell, "гтр")
If x = 0 Then x = InStr(oCell, "рвд")
If x = 0 Then x = InStr(oCell, "гтк")
oCell = UCase(Left(oCell.Text, 1)) & Right(oCell.Text, Len(oCell.Text) - 1)
oCell = Mid(oCell, 1, x - 1) & UCase(Mid(oCell, x, 3)) & Right(oCell.Text, (Len(oCell.Text) - x - 2))
Next
Application.EnableEvents = True
Exit Sub
NoText:
Application.EnableEvents = True
Exit Sub
End Sub

[Hugo121]

Не нравится...
Слов типа АйГУР не будет заводится?
Может лучше Splitом бить и перебирать по списку соответствия?

[SAS888]

Можно так:

For Each x In Array("ТО-", "ГУР", "АКБ", "КПП", "РДВ", "ГТР", "РВД", "ГТК")
    Target.Replace x, x
Next

Но если, например, в ячейке будет написано "огурец", то получится "оГУРец". Это нормально?

[agregator]

Hugo121, АйГУР не бедет.

[agregator]

SAS888, пока проблем не было (записываю работы по ремонту автомобилей). А можно этого избежать ("оГУРец")?

[Hugo121]

Можно - с помощью SAS888:

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, xx, x

Application.EnableEvents = False
a = Split(Target)
For xx = 0 To UBound(a)
For Each x In Array("ТО-", "ГУР", "АКБ", "КПП", "РДВ", "ГТР", "РВД", "ГТК")
If a(xx) = x Then a(xx) = x
Next
Next
a(0) = Application.Proper(a(0))
Target = Join(a, " ")

Application.EnableEvents = True
End Sub

[SAS888]

Hugo121
1. Вы подразумеваете, что Target есть одна ячейка? Иначе, a = Split(Target) использовать не получится.
2. Вся прелесть предложенного мной кода именно в том, что не нужно перебирать все ячейки, входящие в диапазон Target.
3. Где гарантия, что, например, "ТО-" (как и другее фрагменты) отделено пробелами?

agregator

А можно этого избежать ("оГУРец")?

На этот вопрос ответ известен только Вам, т.к. данных, для предотвращения данной ситуации мало. Нужны доп. критерии оценки.

[agregator]

Hugo121, здорово. Я сам попробовал, но остановился, т.к. не знал как узнать сколько элементов в масиве (UBound). Может посоветуете какой нибудь справочник. Типа этого.

[Hugo121]

Да, точно, это упустил... Но это можно добавить в обработку, если нужно. Зато "оГУРецов и айГУРов" не будет.

[SAS888]

Зато "оГУРецов и айГУРов" не будет.

Да. Не будет. Но зато останутся "то-123" (вместо желаемого "ТО-123") и т.п.