Модераторы: mihanik

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Изменение регистра в Excel, Как в Word 
V
    Опции темы
RockClimber
Дата 20.6.2008, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 1
Всего: 15
В ворде есть функция в меню "Формат" -> "Регистр". Там можно много чего сделать с регистром - инвертировать, перевести все в верхний, нижний регистр, сделать первые буквы в словах большими... А в Excel это можно использовать?


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
FINANSIST
Дата 23.6.2008, 08:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23
1) Реализация через функции
Пример:
=строчн(QWERTY ) ; // =  "qwerty"
=прописн(qwerty) ; // =  "QWERTY "
2)Реализация програмно
Пример:
Код

dim str,regist as string
str = "QWERTY"
regist = LCase(str)
msgbox regist
regist = UCase(regist)
msgbox regist




--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
RockClimber
Дата 23.6.2008, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 1
Всего: 15
Программно и через функции я и сам умею... Но ведь лень! smile  Надо добавить еще столбец, вписать функцию, заменить ее на значение потом, удалить исходный столбец... А в ворде выделил диапазон, 3 раза кликнул мышкой - и готово...


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
ТоляМБА
Дата 23.6.2008, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Котэ
***


Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 5
Всего: 252
Цитата(RockClimber @  23.6.2008,  13:44 Найти цитируемый пост)
Надо добавить еще столбец, вписать функцию, заменить ее на значение потом, удалить исходный столбец...
А если один раз написать на VBA и повесить код на кнопку меню? Столбцы вообще лишние не понадобятся.
Цитата(RockClimber @  23.6.2008,  13:44 Найти цитируемый пост)
 А в ворде выделил диапазон
Excel перестал работать с выделенными диапазонами?  smile 
PM   Вверх
RockClimber
Дата 23.6.2008, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 1
Всего: 15
Цитата(ТоляМБА @  23.6.2008,  11:12 Найти цитируемый пост)
Excel перестал работать с выделенными диапазонами?

Эксель даже не начинал работать с регистрами, как ворд, я имел ввиду smile 


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
ТоляМБА
Дата 24.6.2008, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Котэ
***


Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 5
Всего: 252
Код

Option Explicit

Private Sub LowerBtn_Click()
Dim L As Long
Dim I As Long
L = Selection.Count
For I = 1 To L
    Selection.Item(I) = LCase(Selection.Item(I))
Next I
End Sub

Private Sub UpperBtn_Click()
Dim L As Long
Dim I As Long
L = Selection.Count
For I = 1 To L
    Selection.Item(I) = UCase(Selection.Item(I))
Next I
End Sub


Вместо кнопок вешай на панель инструментов.
PM   Вверх
RockClimber
Дата 24.6.2008, 08:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 1
Всего: 15
Не, я сделаю формочку как в ворде, с выбором, в какой регистр переводить выделенные ячейки, и с таким же функционалом.   Потом выложу. Когда будет не лень... smile


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
FINANSIST
Дата 24.6.2008, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23
Если уж совсем лень, то есть такая все известная программа Punto Switcer, где можно автоматически менять не только раскладки но и регистры независио от категории активного приложения smile 


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
Staruha
Дата 25.6.2008, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 6
Всего: 27
Вот еще тут посмотри
http://forum.vingrad.ru/forum/topic-26276.html


--------------------
Возмездие настигнет
PM MAIL   Вверх
RockClimber
Дата 26.6.2008, 09:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 1
Всего: 15
Цитата(FINANSIST @  24.6.2008,  12:35 Найти цитируемый пост)
Если уж совсем лень, то есть такая все известная программа Punto Switcer, где можно автоматически менять не только раскладки но и регистры независио от категории активного приложения

Punto Switcher'ом пользуюсь третий год, но про эту функцию не знал  smile 
Посмотрел сейчас справку - не совсем то, что надо. Мне надо производить преобразование "Иванов Иван Иванович" <-> "ИВАНОВ ИВАН ИВАНОВИЧ". Вот Ворд такие вещи делает очень хорошо...


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
FINANSIST
Дата 27.6.2008, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23
Цитата(RockClimber @  26.6.2008,  09:42 Найти цитируемый пост)
Посмотрел сейчас справку - не совсем то, что надо. Мне надо производить преобразование "Иванов Иван Иванович" <-> "ИВАНОВ ИВАН ИВАНОВИЧ". Вот Ворд такие вещи делает очень хорошо... 

Всё там работает как надо (Напомню тема про регистры Эксель):
Шаг1. 
Набиваем в ячейке " иванов иван иванович"
Шаг2.
Выходим из ячейки нажимая не просто Enter иначе сместимся на ячейку ниже, а Ctrl+Enter , что бы остаться именно в этой ячейке
Шаг3. Alt+Break
Punto Switcher все слово преобразует в "ИВАНОВ ИВАН ИВАНОВИЧ" 
По моему нормально smile 


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
RockClimber
Дата 27.6.2008, 08:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 1
Всего: 15
Цитата(FINANSIST @  27.6.2008,  08:19 Найти цитируемый пост)
Шаг1. Набиваем в ячейке " иванов иван иванович"

Вот если бы все такие предусмотрительные были... А у меня есть файл, в котором уже набрано "Иванов Иван Иванович". И таких там несколько сотен... smile 


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
FINANSIST
Дата 27.6.2008, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23
Ну тогда:
Цитата(ТоляМБА @  24.6.2008,  08:07 Найти цитируемый пост)
Option Explicit

Private Sub LowerBtn_Click()
Dim L As Long
Dim I As Long
L = Selection.Count
For I = 1 To L
    Selection.Item(I) = LCase(Selection.Item(I))
Next I
End Sub

Private Sub UpperBtn_Click()
Dim L As Long
Dim I As Long
L = Selection.Count
For I = 1 To L
    Selection.Item(I) = UCase(Selection.Item(I))
Next I
End Sub

Даже не знаю, в чём проблема по теме данного топика



--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
RockClimber
Дата 27.6.2008, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 1
Всего: 15
Цитата(FINANSIST @  27.6.2008,  11:08 Найти цитируемый пост)
Даже не знаю, в чём проблема по теме данного топика

Сто раз объяснял - тупо хочу такую формочку
user posted image
Если такой нет - сделаю сам. Потом. "А что? Язык я знаю!" (с)


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
FINANSIST
Дата 27.6.2008, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Статус: Жив
**


Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 5
Всего: 23

Цитата

Вот если бы все такие предусмотрительные были... А у меня есть файл, в котором уже набрано "Иванов Иван Иванович". И таких там несколько сотен... 


А что мешает выделить диапозон ячеек со всеми "ивановами иванами ивановичами" и нажать тот же Alt+Break?
Punto Switcher так же прекрасно работает с регистрами по уже введённой ранее информации  (я то думал, что тебе для только что введённых данных преобразование надо)


Это сообщение отредактировал(а) FINANSIST - 30.6.2008, 08:24


--------------------
“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Работа с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Работа с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0539 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.