Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заглавная буква(всегда) - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Заглавная буква(всегда)
mrsatir Дата: Пятница, 27.03.2015, 11:24 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем добрый день, подскажите пожалуйста как сделать в экселе:
Задача 1. Чтобы в столбце фамилия была всегда с заглавной буквы. (пример на Лист1)

Заранее благодарю за любую помощь!
[moder]Один вопрос - одна тема. См. Правила форума.

К сообщению приложен файл: 8789619.xlsx (10.0 Kb)


Сообщение отредактировал mrsatir - Пятница, 27.03.2015, 11:29
 
Ответить
СообщениеВсем добрый день, подскажите пожалуйста как сделать в экселе:
Задача 1. Чтобы в столбце фамилия была всегда с заглавной буквы. (пример на Лист1)

Заранее благодарю за любую помощь!
[moder]Один вопрос - одна тема. См. Правила форума.


Автор - mrsatir
Дата добавления - 27.03.2015 в 11:24
krosav4ig Дата: Пятница, 27.03.2015, 11:41 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=ПРОПНАЧ(A5)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Код
=ПРОПНАЧ(A5)

Автор - krosav4ig
Дата добавления - 27.03.2015 в 11:41
МВТ Дата: Пятница, 27.03.2015, 20:48 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
это если надо сделать заглавными первые буквы во всех словах, а если только в первом, то
Код
=ПРОПИСН(ЛЕВСИМВ(A11;1))&ПРАВСИМВ(A11;ДЛСТР(A11)-1)

upd
Можно макросом, чтобы меняло прямо в колонке, где введено. Клик правой кнопки мыши на ярлычке нужного листа, выбираете "Исходный текст" и вставляете там вот такой код:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Then ' здесь номер нужной вам колонки
With Target
     If .Value = "" Then Exit Sub
     .Value = UCase(Left(.Value, 1)) & Right(.Value, Len(.Value) - 1)
End With
End If
End Sub
[/vba]
Еще раз обращаю внимание, вместо цифры 3 вставляете номер нужного вам столбца


Сообщение отредактировал МВТ - Пятница, 27.03.2015, 21:06
 
Ответить
Сообщениеэто если надо сделать заглавными первые буквы во всех словах, а если только в первом, то
Код
=ПРОПИСН(ЛЕВСИМВ(A11;1))&ПРАВСИМВ(A11;ДЛСТР(A11)-1)

upd
Можно макросом, чтобы меняло прямо в колонке, где введено. Клик правой кнопки мыши на ярлычке нужного листа, выбираете "Исходный текст" и вставляете там вот такой код:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Then ' здесь номер нужной вам колонки
With Target
     If .Value = "" Then Exit Sub
     .Value = UCase(Left(.Value, 1)) & Right(.Value, Len(.Value) - 1)
End With
End If
End Sub
[/vba]
Еще раз обращаю внимание, вместо цифры 3 вставляете номер нужного вам столбца

Автор - МВТ
Дата добавления - 27.03.2015 в 20:48
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!