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

Вход

Регистрация

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

 

= Мир MS Excel/Все ячейки с большой буквы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Все ячейки с большой буквы (Макросы/Sub)
Все ячейки с большой буквы
Status-n1 Дата: Пятница, 03.10.2014, 20:29 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Как сделать во всех ячейках одновременно чтобы все они с большой буквы начинались?

Пример:

красная поляна

Красная поляна
 
Ответить
СообщениеКак сделать во всех ячейках одновременно чтобы все они с большой буквы начинались?

Пример:

красная поляна

Красная поляна
Автор - Status-n1
Дата добавления - 03.10.2014 в 20:29
Serge_007 Дата: Пятница, 03.10.2014, 20:55 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Макрос переводит все первые буквы значений ячеек в выделенном диапазоне в верхний регистр
[vba]
Код
Sub Status_n1()
Dim Upper As Range
Set Upper = Selection
     For Each Upper In Upper
         If Upper <> "" Then Upper = UCase(Left(Upper, 1)) + Right(Upper, Len(Upper) - 1)
     Next Upper
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеМакрос переводит все первые буквы значений ячеек в выделенном диапазоне в верхний регистр
[vba]
Код
Sub Status_n1()
Dim Upper As Range
Set Upper = Selection
     For Each Upper In Upper
         If Upper <> "" Then Upper = UCase(Left(Upper, 1)) + Right(Upper, Len(Upper) - 1)
     Next Upper
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 03.10.2014 в 20:55
alex77755 Дата: Пятница, 03.10.2014, 22:40 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Или так:
[vba]
Код
Sub Status_n1()
Dim Upper As Range
Set Upper = Selection
      For Each Upper In Upper
          Upper = StrConv(Upper, 3)
      Next Upper
End Sub
[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеИли так:
[vba]
Код
Sub Status_n1()
Dim Upper As Range
Set Upper = Selection
      For Each Upper In Upper
          Upper = StrConv(Upper, 3)
      Next Upper
End Sub
[/vba]
Автор - alex77755
Дата добавления - 03.10.2014 в 22:40
Serge_007 Дата: Пятница, 03.10.2014, 22:55 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
alex77755, так КАЖДОЕ слово в ячейках получит верхний регистр на первую букву, а надо только ПЕРВОЕ
Цитата Status-n1, 03.10.2014 в 20:29, в сообщении № 1
красная поляна

Красная поляна

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщениеalex77755, так КАЖДОЕ слово в ячейках получит верхний регистр на первую букву, а надо только ПЕРВОЕ
Цитата Status-n1, 03.10.2014 в 20:29, в сообщении № 1
красная поляна

Красная поляна
Автор - Serge_007
Дата добавления - 03.10.2014 в 22:55
SkyPro Дата: Пятница, 03.10.2014, 22:58 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Ну и я добавлю для потомков :)
[vba]
Код
Sub firstToUp()
Dim x, i&, c&
x = Selection.Value
If IsArray(x) Then
       For i = 1 To UBound(x, 1)
           For c = 1 To UBound(x, 2)
               x(i, c) = UCase(Left(Trim(x(i, c)), 1)) & Mid(Trim(x(i, c)), 2)
           Next
       Next
       Selection.Resize(UBound(x, 1), UBound(x, 2)) = x
Else
       Selection.Value = UCase(Left(Trim(x), 1)) & Mid(Trim(x), 2)
End If
End Sub
[/vba]

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Пятница, 03.10.2014, 23:00
 
Ответить
СообщениеНу и я добавлю для потомков :)
[vba]
Код
Sub firstToUp()
Dim x, i&, c&
x = Selection.Value
If IsArray(x) Then
       For i = 1 To UBound(x, 1)
           For c = 1 To UBound(x, 2)
               x(i, c) = UCase(Left(Trim(x(i, c)), 1)) & Mid(Trim(x(i, c)), 2)
           Next
       Next
       Selection.Resize(UBound(x, 1), UBound(x, 2)) = x
Else
       Selection.Value = UCase(Left(Trim(x), 1)) & Mid(Trim(x), 2)
End If
End Sub
[/vba]
Автор - SkyPro
Дата добавления - 03.10.2014 в 22:58
Status-n1 Дата: Пятница, 03.10.2014, 23:51 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Serge_007, alex77755, Serge_007, Ого! А что с тем что вы написали делать? Куда это вставлять чтобы Exel выполнил функцию? :'(
 
Ответить
СообщениеSerge_007, alex77755, Serge_007, Ого! А что с тем что вы написали делать? Куда это вставлять чтобы Exel выполнил функцию? :'(
Автор - Status-n1
Дата добавления - 03.10.2014 в 23:51
SkyPro Дата: Пятница, 03.10.2014, 23:57 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
В модуль добавляете макрос, выделяете диапазон и запускаете.
Как это сделать - обьяснять долго, так что лучше воспользуйтесь поиском (как добавить макрос в excel, как запустить макрос).

skypro1111@gmail.com
 
Ответить
СообщениеВ модуль добавляете макрос, выделяете диапазон и запускаете.
Как это сделать - обьяснять долго, так что лучше воспользуйтесь поиском (как добавить макрос в excel, как запустить макрос).
Автор - SkyPro
Дата добавления - 03.10.2014 в 23:57
alex77755 Дата: Суббота, 04.10.2014, 00:30 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Serge_007, Упс. Не внимательно читал

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеSerge_007, Упс. Не внимательно читал
Автор - alex77755
Дата добавления - 04.10.2014 в 00:30
Status-n1 Дата: Суббота, 04.10.2014, 00:54 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
alex77755, SkyPro, Serge_007, Спасибо вам большое за помощь!
 
Ответить
Сообщениеalex77755, SkyPro, Serge_007, Спасибо вам большое за помощь!
Автор - Status-n1
Дата добавления - 04.10.2014 в 00:54
aequit Дата: Понедельник, 02.03.2015, 13:46 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 2 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Подскажите пожалуйста, как сделать дни недели на русском языке с большой буквы, если формат ячеек ДДДД ?
Пробовал применять макросы, приведенные выше, меняется слово "пятница" на "05.01.1900". При этом удаляются формулы из ячейки. Или как тогда скопировать только значение в виде текста "пятница" в соседнюю ячейку, чтобы дальше можно было с этим значением работать (вставить куда нужно в виде текста).
[moder]Создайте новую тему. Эта тема закрыта[/moder]


Сообщение отредактировал aequit - Понедельник, 02.03.2015, 14:18
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста, как сделать дни недели на русском языке с большой буквы, если формат ячеек ДДДД ?
Пробовал применять макросы, приведенные выше, меняется слово "пятница" на "05.01.1900". При этом удаляются формулы из ячейки. Или как тогда скопировать только значение в виде текста "пятница" в соседнюю ячейку, чтобы дальше можно было с этим значением работать (вставить куда нужно в виде текста).
[moder]Создайте новую тему. Эта тема закрыта[/moder]
Автор - aequit
Дата добавления - 02.03.2015 в 13:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Все ячейки с большой буквы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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