Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
макрос для изменения строчных букв на заглавные
 
#1
20.03.2012 15:06:11
Добрый день. Есть диапазон A1:A10 с текстом, написанным строчными буквами. Нужно написать макрос, который преобразует эти прописные буквы в заглавные.
 
 
 
#2
20.03.2012 15:09:14
Буквы все или только первые в словах? Если возможны предложения - первые в предложениях?  
Только макрос или допускаются формулы?
 
 
 
#3
20.03.2012 15:16:35
Без цикла не получилось...  
 
Sub tt()  
Dim cc As Range  
For Each cc In [a1:a10]
cc.Value = UCase(cc.Value)  
Next  
End Sub
 
 
 
#4
20.03.2012 15:22:03
спс, работает.
 
 
 
#5
20.03.2012 15:25:53
но только не в автоматическом режиме, каждый раз надо включать, чтобы буквы стали заглавные. Можно его как-нибуть автоматизировать?
 
 
 
#6
20.03.2012 15:34:53
Как бы Вам хотелось? :)
 
 
 
#7
20.03.2012 15:36:31
{quote}{login=vikttur}{date=20.03.2012 03:09}{thema=}{post}Буквы все или только первые в словах? Если возможны предложения - первые в предложениях?  
Только макрос или допускаются формулы?{/post}{/quote}  
 
Все буквы, желательно макрос, но чтобы он работал в автоматическом режиме.
 
 
 
#8
20.03.2012 15:42:17
{quote}{login=Hugo}{date=20.03.2012 03:34}{thema=}{post}Как бы Вам хотелось? :){/post}{/quote}  
 
мне хотелось бы, чтобы я писал в ячейках A1:A10 строчными буквами, а они автоматически преобразовались в заглавные.
 
 
 
#9
20.03.2012 15:49:11
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Range("A1:A10")) Is Nothing Then  
       Target.Value = UCase(Target.Value)  
   End If  
End Sub  
 
Код в модуль соответствующего листа.
 
 
 
Страницы: 1
Читают тему
Наверх