ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть большие, а нужны маленькие..
16 сообщений из 16, страница 1 из 1
Есть большие, а нужны маленькие..
    #34040547
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Добрый день.
Есть в EXEL97 столбец из 25000 строк. В каждой строчке все слова, напечатанны БОЛЬШИМИ буквами, например:

ВСЕ ПИШЕМ С БОЛЬШОЙ БУКВЫ

Вопрос: Как быстро сделать следующее...

Все пишем с большой буквы

Спасибо:-).
...
Рейтинг: 0 / 0
09.10.2006, 07:06:24
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34040552
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Function ChangeStringCase(strString$) As String
    ChangeStringCase = UCase(Left(strString,  1 )) & LCase(Right(strString, Len(strString) -  1 ))
End Function

Sub Temp
    MsgBox ChangeStringCase("ВСЕ ПИШЕМ С БОЛЬШОЙ БУКВЫ")
End Sub
Такое?
...
Рейтинг: 0 / 0
09.10.2006, 07:16:21
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34040705
dinogen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dinogen
Гость
Функция ПРОПИСН
Делает все буквы в тексте прописными.

Пример использования:
=ПРОПИСН(A2) - Верхний регистр строки в ячейке A2
...
Рейтинг: 0 / 0
09.10.2006, 09:41:41
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34041131
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Function ChangeStringCase(strString$) As String
    ChangeStringCase = UCase(Left(strString,  1 )) & LCase(Right(strString, Len(strString) -  1 ))
End Function

Sub Temp
    MsgBox ChangeStringCase("ВСЕ ПИШЕМ С БОЛЬШОЙ БУКВЫ")
End Sub

Спасибо! Так быстро и легко, что зависть (белая) берет:-).
Сделал в Аксе97, работает.

А вот мой вариант, нет...

Public Function MyFunct1()
MyFunct1 = UCase(Left(strString, 1)) & LCase(Right(strString, Len(strString) - 1))
End Function

Может кто нибудь подскажет, почему?
...
Рейтинг: 0 / 0
09.10.2006, 11:56:29
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34041161
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
вашу функцию тоже проверил, работает
...
Рейтинг: 0 / 0
09.10.2006, 12:04:45
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34041216
dinogen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dinogen
Гость
Не допонял сначала, нужно же строчные! :)

Функция СТРОЧН
Делает все буквы в тексте строчными.

Пример использования:
=СТРОЧН(A2) - Нижний регистр строки в ячейке A2
...
Рейтинг: 0 / 0
09.10.2006, 12:17:10
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34041360
dinogen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dinogen
Гость
Если в A1:
ВСЕ ПИШЕМ С БОЛЬШОЙ БУКВЫ
Нужно в A1:
Все пишем с большой буквы

то можно так

=ЛЕВСИМВ(A1)&(ПСТР(СТРОЧН(A1);2;ДЛСТР(A1)))
...
Рейтинг: 0 / 0
09.10.2006, 12:54:35
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34041405
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
да, так тоже можно. про встроенные функции забыл
при возникновении проблемы в Excel, первое что мне приходит на ум - это программный метод, функциями особо не дружу ;-)
...
Рейтинг: 0 / 0
09.10.2006, 13:05:24
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34041638
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
dinogenЕсли в A1:

=ЛЕВСИМВ(A1)&(ПСТР(СТРОЧН(A1);2;ДЛСТР(A1)))


Спасибо:-)..а то я в Exel понятия не имею, где можно прописать свою функцию, что б ее потом использовать.))
...
Рейтинг: 0 / 0
09.10.2006, 14:03:03
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34041646
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
orunbek
Участник
просто объявляете функцию Public и всё
...
Рейтинг: 0 / 0
09.10.2006, 14:05:04
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34042020
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Если нужно " ВСЕ ПИШЕМ С БОЛЬШОЙ БУКВЫ", то есть функция PROPER (ПРОПНАЧ), например:

с листа
=ПРОПНАЧ(А1)

из VBA
ChangeStringCase = Application.Proper(strString)

Если нужно " ПЕРВОЕ СЛОВО ПИШЕМ С БОЛЬШОЙ БУКВЫ", то:

с листа
=ПРОПИСН(ЛЕВСИМВ(A1))&ПСТР(СТРОЧН(A1);2;256)

В любом случае, если преобразуемый текст на листе и вернется на лист, то писать функцию в VBA бессмысленно - она будет в разы медленнее формулы на листе, и при 25000 строках может практически парализовать Excel в случае полного пересчета формул. Если очень охота через VBA, то лучше так:

допустим преобразуемый текст находится в столбце А активного листа и начинается со строки 2:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub test()
    Dim rng As Range, col As Long
    col =  1 
    With ActiveSheet
        On Error GoTo ErrHand
        Set rng = .Range(.Cells( 2 , col), .Cells(.Rows.Count, col).End(xlUp))
        Application.ScreenUpdating = False
        .Columns(col +  1 ).Insert
        With rng
            .Offset(,  1 ) = "=PROPER(RC[-1])"
            .Value = .Offset(,  1 ).Value
        End With
        .Columns(col +  1 ).Delete
    End With
ErrHand:
    Application.ScreenUpdating = True
End Sub
или
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub test()
    Dim rng As Range, col As Long
    col =  1 
    With ActiveSheet
        On Error GoTo ErrHand
        Set rng = .Range(.Cells( 2 , col), .Cells(.Rows.Count, col).End(xlUp))
        Application.ScreenUpdating = False
        .Columns(col +  1 ).Insert
        With rng
            .Offset(,  1 ) = "=UPPER(LEFT(RC[-1]))&MID(LOWER(RC[-1]),2,256)"
            .Value = .Offset(,  1 ).Value
        End With
        .Columns(col +  1 ).Delete
    End With
ErrHand:
    Application.ScreenUpdating = True
End Sub


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
09.10.2006, 15:43:50
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34042927
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
"...Если очень охота через VBA..."


Ух ты..спасибо за консультацию KL :-)..но я думаю это уже избыточно..тем более даже при формулах на листе и включенном фильтре, EXEL дико тормозит..строк в действительности не 25000, а 50000...специально посчитал))). Спасибо всем:-)
...
Рейтинг: 0 / 0
09.10.2006, 21:36:41
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34042942
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
vad-anatolijдаже при формулах на листе и включенном фильтре, EXEL дико тормозит..строк в действительности не 25000, а 50000...специально посчитал))).

Не уверен, что понял что точно имеется ввиду:

на P4 2.8 Ghz, 1.00Gb RAM
1) в 65536 ячейках мой код занимает 70 сек
2) полный пересчет формулы в 65536 ячейках занимает 235,97 миллисек (а она не летучая и значит реально столько не займет)

Так что торможение идет от каких-то других формул.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
09.10.2006, 22:00:51
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34043214
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
KL (XL)
на P4 2.8 Ghz, 1.00Gb RAM...



Эх...а на Cel 1100, RAM 128 Мб пробовали?;-)
...
Рейтинг: 0 / 0
10.10.2006, 08:58:17
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34043441
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
vad-anatolijЭх...а на Cel 1100, RAM 128 Мб пробовали?;-)

Так это же практически калькулятор :-)
...
Рейтинг: 0 / 0
10.10.2006, 10:29:34
| Ответить | Цитировать | Написать  
Есть большие, а нужны маленькие..
    #34043531
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Мое начальство очень удивилось когда узнало,что в ячейках EXEL можно ставить какие то формулы:-)...
...
Рейтинг: 0 / 0
10.10.2006, 10:51:05
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть большие, а нужны маленькие..
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=312&tid=2184159]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 209ms
total:  329ms
созд. / загр.: 329ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]