Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Проверка размера первой буквы в предложение.
 
#1
07.05.2010 12:38:13
Добрый день!  
 Как сделать так что бы при переходе на другую ячейку, значение в ячейке, где только что ввели предложение, приводилось в один вид, т.е. начиналось с большой буквы - "Какой то департамент".  
А не "каКой то департВмент" или "какОЙ то департамент" или "какой то депАртАмент" и т.д. Но может быть и сразу правильно записан, тогда пропускать.
 
 
 
#2
07.05.2010 12:41:34
Формулой ПРОПНАЧ() можно, но это уже в другой ячейке будет...
 
 
 
#3
07.05.2010 13:56:20
Формулой я знаю как, нужно именно макросом, и без использования других ячеек.
 
 
 
#4
07.05.2010 14:07:50
Формула:  
=ЗАМЕНИТЬ(СТРОЧН(СЖПРОБЕЛЫ(A1));1;1;ПРОПИСН(ЛЕВСИМВ(СЖПРОБЕЛЫ(A1);1)))  
Мкросом на Worksheet_Change по столбцу А. Я не знаю как эту формулу перевести в VBA. А ведь как-то можно функции Excel писать в VBA.
 
 
 
#5
07.05.2010 14:34:38
Range("A1") = Left(UCase(Range("A1")), 1) & Right(LCase(Range("A1")), Len(Range("A1")) - 1)
Bite my shiny metal ass!      
 
 
 
#6
07.05.2010 14:35:34
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
Dim list As String  
Dim aCell As Range  
 
Set aCell = ActiveCell  
list = aCell.Value  
aCell.Value = UCase(Mid(list, 1, 1)) & LCase(Mid(list, 2))  
 
End Sub
 
 
 
#7
07.05.2010 14:43:35
Private Sub Worksheet_Change(ByVal Target As Range)  
Application.EnableEvents = False  
Target = Left(UCase(Target), 1) & Right(LCase(Target), Len(Target) - 1)  
Application.EnableEvents = True  
End Sub
Bite my shiny metal ass!      
 
 
 
#8
07.05.2010 16:13:13
Отлично работает. Спасибо "Лузер"! А можете подсказать как сделать что бы он про верял только определенный диапазон ячеек например А1:X20 ???
 
 
 
#9
07.05.2010 17:04:52
Private Sub Worksheet_Change(ByVal Target As Range)  
If Intersect(Target, Range("A1:X20")) Is Nothing Or Target.Count > 1 Or Len(Target) = 0 Then Exit Sub  
Application.EnableEvents = False  
Target = Left(UCase(Target), 1) & Right(LCase(Target), Len(Target) - 1)  
Application.EnableEvents = True  
End Sub
Bite my shiny metal ass!      
 
 
 
#10
07.05.2010 17:16:58
Спасибо большое, то что надо!
 
 
 
Страницы: 1
Читают тему
Наверх