Убрать заглавные буквы ячейке Excel

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать заглавные буквы ячейке Excel (Макросы/Sub)

lopuxi

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

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

Ранг: Форумчанин

Сообщений: 142

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

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

Excel 2007, 2013

доброго всем дня.
У меня вопрос, есть ли такая функция в VBA которая может убирает капслук. К примеру из названия "МОСКВА", делает "Москва".

В excel есть формула ПРОПНАЧ(). Эта функция превращает в заглавную первую букву каждого слова.

Спасибо! )

О_о ...и так можно было?

Ответить

_Boroda_

Дата: Среда, 12.08.2015, 17:16 | Сообщение № 2

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

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Так подойдет?
[vba]

Код

dd = WorksheetFunction.Proper([A1])

[/vba]

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

Ответить

lopuxi

Дата: Среда, 12.08.2015, 17:51 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 142

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

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

Excel 2007, 2013

Цитата _Boroda_, 12.08.2015 в 17:16, в сообщении № 2

Так подойдет?
dd = WorksheetFunction.Proper([A1])

Как раз таким способом я сейчас и сделал. У меня столбик, где написано МОСКВА 20 раз. Далее другой город.
Сейчас у меня довольно сложная процедура, я создаю рядом колонку, запускаю цикл, который проставляет формулу "=PROPER(RC[-1])" и далее я всю колонку с правильными названиями, вставляю ее как значение и удаляю, первую колонку со старыми названиями, не правильно написанными названиями.

Процедура как видно большая. Но работает. Я вот думал может ее можно как то упросить.

О_о ...и так можно было?

Ответить

_Boroda_

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

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

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата lopuxi, 12.08.2015 в 17:51, в сообщении № 3

WorksheetFunction.Proper([A1])

Вовсе не одно и то же с

Цитата lopuxi, 12.08.2015 в 17:51, в сообщении № 3

создаю рядом колонку, запускаю цикл, который проставляет формулу "=PROPER(RC[-1])"

Ответить

Udik

Дата: Среда, 12.08.2015, 18:55 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

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

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

Excel 2016 х 64

Наверное подойдёт 3 номер

Цитата

StrConv(строка, метод, [LCID]) – данная функция vba является универсальной, так как позволяет преобразовать заданную строку в различные вариации (верхний и нижний регистр, кодировка, перевод байт).

Строка – собственно, строковое значение, над которым нужно провести преобразование.
Метод – задает метод преобразования, данный параметр может принимать следующие значения:

vbUpperCase – перевод в верхний регистр, значение 1
vbLowerCase – перевод в нижний регистр, значение 2
vbPropperCase – перевод первых символов всех слов в верхний регистр, а остальные символы – в нижний, значение 3.

там еще всякие константы