и опять строки.....

[brans]

помогите пожалуйста, не могу довести до ума программу:
В ячеёке написанно: самойленко Елена сергеевна, нужно написать модуль на vba, такой, чтобы фамилия и отчество делались прописными буквами.....

вот мои наработки....


Private Sub cem()
Dim x
x = Split(Cells(43, 1))
p = Mid(x(0), 1, 1)
Z = Mid(x(2), 1, 1)
x = StrConv(p, vbUpperCase)
y = StrConv(Z, vbUpperCase)


End Sub


как теперь дальше не подскажете?

[nilem]

Один из вариантов:

Sub cem()
Dim x, i As Byte
x = Split(Cells(43, 1))
For i = 0 To UBound(x)
    x(i) = Replace(x(i), Left(x(i), 1), UCase(Left(x(i), 1)))
Next i
Cells(43, 2) = Join(x, " ")
End Sub

[Aent]

Ужасы нашего городка ...
Ну неужели тяжело зайти в HELP по StrConv и увидеть вариант

Cells(43, 1) = StrConv(Cells(43, 1),vbProperCase)

?...

[nilem]

Сообщение от Aent

Ну неужели тяжело зайти в HELP по StrConv и увидеть вариант...

Зашел, увидел. Ну кто ж знал-то? Спасибо.

[brans]

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

[nilem]

С помощью Split получаем из строки 1-мерный массив из элементов-слов (пробел - это разделитель по умолчанию). Циклом проходим по всем элементам массива и заменяем (Replace) в каждом элементе x(i) 1-й левый символ Left(x(i), 1) на такой же символ, но в верхнем регисте UCase(Left(x(i), 1)).
А потом объединяем измененные элементы массива х в одну строку через пробел Join(x, " ").

Но конечно же лучше взять стандартную функцию StrConv. 1-й аргумент этой ф-ции - строка, которую собираемся преобразовывать (строка у нас находится в Cells(43, 1)). Через запятую - 2-й аргумент, который определяет тип преобразования (у нас это vbProperCase - переводит первую букву каждого слова в строке в верхний регистр). Вместо константы vbProperCase можно записать ее значение: 3.
Вот и получается Cells(43, 1) = StrConv(Cells(43, 1), 3)
Действительно, все в справке написано.

Но мой вариант интереснее, правда?

[Aent]

Обращаю внимание заинтересованной публики, что в паспортах сейчас встречаются и записи вида:
Иванов Иван Иван оглы или Петрова Ольга Махмуд кызы
Так вот, по правилам, оглы и кызы в конце ФИО пишутся со строчной буквы.

[brans]

Сообщение от nilem

Но мой вариант интереснее, правда?

Благодарю за столь неординарный подход к моему вопросу, я и вправду вижу Ваш вариант кода интересней. Спасибо большое за столь полное изъяснение хoда Ваших мыслей!!!!!

[Hugo121]

И в общем для "оглы" и "кызы" как раз интересный вариант и подходит - надо только добавить проверку содержимого элементов массива.