Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Заглавные буквы в ячейках
 
#1
06.02.2013 11:28:21
Подскажите пожалуйста!Есть много ячеек и в них текст в каждой ячейке имеет вид-АБВГД,нужно чтобы был вида-Абвгд, либо-абвгд.Как это сделать?И как применить ко всем ячейкам одновременноВ ручную менять не реально,ячеек около 5000.Заранее благодарен!
Изменено: Алекс51 - 06.02.2013 12:21:35
 
 
 
#2
06.02.2013 11:34:34
=ПРОПНАЧ(A1)
 
 
 
#3
06.02.2013 11:40:00
Цитата
Алекс51 пишет:
чтобы текст во всех ячейках столбца был с заглавной буквы,а остальные буквы были прописными.
вообще-то "заглавные" и "прописные" - это одно и то же.   :oops: :D
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#4
06.02.2013 11:42:24
Не совсем понятен вопрос, но =ПРОПНАЧ(A1) не подойдет - каждое слово будет с прописной.
как-то так:
Код
?
1
=левсимв(a1;1)&строчн(пстр(a1;2;длстр(a1)))
Изменено: Михаил С. - 06.02.2013 11:45:42
 
 
 
#5
06.02.2013 11:52:29
Регистр
 
 
 
#6
06.02.2013 12:18:32
Спасибо за ответы!Изменяю формулировку.Сейчас текст в каждой ячейке имеет вид-АБВГД,нужно чтобы был вида-Абвгд, либо-абвгд.Как это сделать?И как применить ко всем ячейкам одновременно?
 
 
 
#7
06.02.2013 12:28:16
А чем вам не подошел вариант Михаил С.
 
 
 
#8
06.02.2013 14:38:27
Попробовал вариант Михаила С. всё получается,но с одной строкой.А как сделать все сразу?Прошу прощения,может конечно и туплю,просто первый раз с этим сталкнулся.
 
 
 
#9
06.02.2013 14:40:18
Вы формулу Михаила С протягиваете вниз? Или как?
 
 
 
#10
06.02.2013 15:04:14
Выделяю все ячейки,нажимаю на значок формулы и вставляю указанную формулу.Изменяется только одна ячейка.
 
 
 
#11
06.02.2013 15:10:04
Правый нижний угол желтой ячейки, левой кнопкой мыши и тянем вниз
 
 
 
#12
06.02.2013 15:33:44
Спасибо огромное,получилось.Но я так понимаю что старый текст не удалить,при его удаление в новых ячейках всё пропадает.
 
 
 
#13
06.02.2013 15:58:48
Скопируйте столбец с новыми значениями , используя Специальную вставку - только значения
 
 
 
#14
06.02.2013 17:06:06
Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
 
#15
06.02.2013 22:37:13
=ПРОПНАЧ(СТРОЧН(A1))
 
 
 
#16
26.02.2014 01:08:45
Цитата
Nic70y пишет:
=ПРОПНАЧ(A1)
Объясните, пожалуйста, как эту команду использовать? Куда её вписывать?
 
 
 
#17
26.02.2014 10:18:04
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Замена_регистра ()
  
Dim RgText As Range, oCell As Range
Dim Ans As String, strTest As String
Dim sCap As Integer, lCap As Integer, i As Integer
 
Again:
Ans = Application.InputBox("[с]трочные" & vbCr & _
                           "[П]РОПИСНЫЕ" & vbCr & _
                           "[К]ак в предложениях" & vbCr & _
                           "[Н]ачинать Каждое Слово С Заглавных", "Введите букву [ ]", Type:=2)
If Ans = "False" Then Exit Sub
   If InStr(1, "СПКНМ", UCase(Ans), vbTextCompare) = 0 Or Len(Ans) > 1 Then GoTo Again
      On Error GoTo NoText
         If Selection.Count = 1 Then
            Set RgText = Selection
            Else
            Set RgText = Selection.SpecialCells(xlCellTypeConstants, 2)
         End If
On Error GoTo 0
  For Each oCell In RgText
    Select Case UCase(Ans)
           Case "С": oCell = LCase(oCell.Text)
           Case "П": oCell = UCase(oCell.Text)
           Case "К": oCell = UCase(Left(oCell.Text, 1)) & LCase(Right(oCell.Text, Len(oCell.Text) - 1))
           Case "Н": oCell = Application.WorksheetFunction.Proper(oCell.Text)
    End Select
  Next
Exit Sub
 
NoText: MsgBox "Текст в диапазоне " & Selection.Address & " отсутствует"
  
End Sub
 
 
 
Страницы: 1
Читают тему
Loading...