VBA'шный аналог "пропнач"

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

VBA'шный аналог "пропнач" (Макросы/Sub)

AVI

Дата: Среда, 19.09.2018, 12:56 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Добрый день!
Чет я в тупике
В формулах:

Код

ПРОПНАЧ(иванов а.м.)=Иванов А.М.

В VBA
[vba]

Код

StrConv("иванов а.м.", 3) =Иванов А.м.

[/vba]

Как заставить VBA делать ~~мне хорошо~~ инициалы с большой буквы?

К сообщению приложен файл: 9858769.xlsm (13.7 Kb)

Ответить

_Boroda_

Дата: Среда, 19.09.2018, 13:25 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16910

Репутация: 6615 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Например так
[vba]

Код

[d3] = WorksheetFunction.Proper([c3])

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

китин

Дата: Среда, 19.09.2018, 13:31 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7035

Репутация: 1079 ±

Замечаний: 0% ±

Excel 2007;2010;2016

[vba]

Код

Sub rrr()
Range("D3").Value = WorksheetFunction.Proper(Range("C3"))
End Sub

[/vba]
[vba]

Код

StrConv("иванов а.м.", 3)

[/vba] преобразует в прописные буквы первую букву каждого СЛОВА.

Цитата

Ниже перечислены допустимые символы, служащие разделителями слов: Null (Chr$(0)), горизонтальная табуляция (Chr$(9)), перевод строки (Chr$(10)), вертикальная табуляция (Chr$(11)), конец страницы (Chr$(12)), возврат каретки (Chr$(13)), пробел (однобайтовая система) (Chr$(32)). Код пробела в двухбайтовых системах (DBCS) зависит от текущей страны

читаем

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

AVI

Дата: Среда, 19.09.2018, 17:13 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, китин, Работает спасибо!

Сообщение отредактировал AVI - Среда, 19.09.2018, 17:15

Ответить

VBA'шный аналог "пропнач" (Макросы/Sub)

Страница 1 из 1
1