Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение регистра текста (малый-большой) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение регистра текста (малый-большой) (Макросы/Sub)
Изменение регистра текста (малый-большой)
yl3d Дата: Воскресенье, 03.12.2017, 09:08 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, форумчане.
Подскажите что делать.

У меня имеется текст в ячейке D8.
Он сейчас написан малым регистром.

Как макросом, щелчком по кнопке изменить этот текст - на большой регистр ?
К сообщению приложен файл: 455450.xls(34.5 Kb)
 
Ответить
СообщениеЗдравствуйте, форумчане.
Подскажите что делать.

У меня имеется текст в ячейке D8.
Он сейчас написан малым регистром.

Как макросом, щелчком по кнопке изменить этот текст - на большой регистр ?

Автор - yl3d
Дата добавления - 03.12.2017 в 09:08
RAN Дата: Воскресенье, 03.12.2017, 09:39 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4883
Репутация: 974 ±
Замечаний: 0% ±

2010


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеhttp://www.excelworld.ru/search?....=7&y=10

Автор - RAN
Дата добавления - 03.12.2017 в 09:39
yl3d Дата: Понедельник, 04.12.2017, 00:36 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, посмотрел по ссылкам - нашел то, что нужно.
Спасибо за совет.
 
Ответить
СообщениеRAN, посмотрел по ссылкам - нашел то, что нужно.
Спасибо за совет.

Автор - yl3d
Дата добавления - 04.12.2017 в 00:36
Никанор Дата: Пятница, 19.10.2018, 15:59 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 365
Репутация: 2 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте уважаемые помощники!
Я небольшой специалист в создании готового Макроса.

Подскажите, пожалуйста, правильно ли я сделал Макрос в этой теме yl3d «Изменение регистра текста (малый-большой)».
Вот мой алгоритм – последовательность как я делал.
1. Скачал файл 455450.xls(34.5 Kb)
2. Нажал Alt+F11 (универсальный способ вызова редактора для любых версий) → Появился Редактор Microsoft Visual Basic.
3. Слева появился Projekt - VBA Projekt
4. Выделил «Эта книга».
5. Сделал двойной щелчок левой клавишей мыши → Справа открылось Диалоговое окно (General).
6. Зашёл на сайте «Мир эксель» в раздел Мир MS Excel » Вопросы и решения » Готовые решения » Регистр (Изменение регистра текста.)
вот ссылка:http://www.excelworld.ru/forum/3-2936-1#31918
7. Скопировал 2 (второй) Макрос вот это:
[vba]
Код
Sub ConvRegistr1()
Dim DataRng As Range, cell As Range, Tip As Byte
On Error Resume Next
Tip = InputBox("ВСЕ ПРОПИСНЫЕ = 1" & vbLf & "все строчные = 2" & vbLf & _
"Начинать С Прописных = 3" & vbLf & "Как в предложениях = 4" _
& vbLf & "иЗМЕНИТЬ рЕГИСТР = 5", "Выбор типа конвертации", 2)
Set DataRng = Intersect(Selection, ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible))
If MsgBox("Заменить формулы на значения?", _
vbYesNo + vbQuestion, "Выбор типа конвертации") = vbNo Then
Set DataRng = Intersect(DataRng, ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants))
End If
With Application
' На всякий случай, вдруг надо. =)
.EnableEvents = False: .ScreenUpdating = False
For Each cell In DataRng
cell.Value = ConvertRegistr(cell.Value, Tip)
Next cell
.EnableEvents = True: .ScreenUpdating = True
End With
End Sub
[/vba]
8. Вставил скопированное справа в окно (General).
9. Закрыл это окно справа вверху.
10. Закрыл 2-ой (второй) раз справа ещё выше вверху.
11. Выделил синий Скруглённый прямоугольник, который находится в диапазоне ячеек F3:G5.
12. Сделал двойной щелчок левой клавишей мыши → Выбрал пункт «Назначить макрос…»
13. Клацнул левой клавишей мыши → появилось диалоговое окно «Назначить макрос объекту → Там в окне «Имя макроса» выделено «Скругленныйпрямоугольник1_Щелчок».
14. Слева внизу левой клавишей мыши я нажал ОК.
15. Закрыл файл.
11. ′Появилось диалоговое окно: Сохранить изменения в файле «Макрос проба делать 455450.xls′? (Так я назвал скачанный файл).
12. Я нажал «Да»
13. Файл закрылся.
14. Открыл файл.
15. Слева вверху над «Имя ячейки» и «Строка формул» появилось: « Предупреждение системы безопасности Запуск макросов отключен. Параметры…»
16. Левой клавишей мыши я нажал «Параметры…» → Появилось Диалоговое окно «Параметры безопасности Microsoft Office».
17. И я ставлю точку на «Включить это содержимое».
18. Теперь надо выделить ячейку, в которой я собираюсь менять Регистр и должно появится диалоговое окно "Выбор типа конвертации" и в этом окне выбрать цифру которой соответствует условное обозначение:
'Tip = 1 - ВСЕ ПРОПИСНЫЕ
'Tip = 2 - все строчные
'Tip = 3 - Начинать С Прописных
'Tip = 4 - Как в предложениях
'Tip = 5 - иЗМЕНИТЬ рЕГИСТР


Но когдая делаю щелчок левой клавишей мышки на синий Скруглённый прямоугольник у меня не появляется Диалоговое окно: «Microsoft office Excel Не удаётся выполнить макрос Макрос проба делать 455450.xls′ Скругленныйпрямоугольник1_Щелчок, Возможно этот макрос отсутствует в текущей книге либо все макросы отключены»

Вопрос: Что я сделал не так и почему у меня не работает макрос?

Файл ___455450.xls(42.5 Kb) прикладываю.
С уважением.
К сообщению приложен файл: ___455450.xls(42.5 Kb)


Сообщение отредактировал Никанор - Пятница, 19.10.2018, 16:12
 
Ответить
СообщениеЗдравствуйте уважаемые помощники!
Я небольшой специалист в создании готового Макроса.

Подскажите, пожалуйста, правильно ли я сделал Макрос в этой теме yl3d «Изменение регистра текста (малый-большой)».
Вот мой алгоритм – последовательность как я делал.
1. Скачал файл 455450.xls(34.5 Kb)
2. Нажал Alt+F11 (универсальный способ вызова редактора для любых версий) → Появился Редактор Microsoft Visual Basic.
3. Слева появился Projekt - VBA Projekt
4. Выделил «Эта книга».
5. Сделал двойной щелчок левой клавишей мыши → Справа открылось Диалоговое окно (General).
6. Зашёл на сайте «Мир эксель» в раздел Мир MS Excel » Вопросы и решения » Готовые решения » Регистр (Изменение регистра текста.)
вот ссылка:http://www.excelworld.ru/forum/3-2936-1#31918
7. Скопировал 2 (второй) Макрос вот это:
[vba]
Код
Sub ConvRegistr1()
Dim DataRng As Range, cell As Range, Tip As Byte
On Error Resume Next
Tip = InputBox("ВСЕ ПРОПИСНЫЕ = 1" & vbLf & "все строчные = 2" & vbLf & _
"Начинать С Прописных = 3" & vbLf & "Как в предложениях = 4" _
& vbLf & "иЗМЕНИТЬ рЕГИСТР = 5", "Выбор типа конвертации", 2)
Set DataRng = Intersect(Selection, ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible))
If MsgBox("Заменить формулы на значения?", _
vbYesNo + vbQuestion, "Выбор типа конвертации") = vbNo Then
Set DataRng = Intersect(DataRng, ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants))
End If
With Application
' На всякий случай, вдруг надо. =)
.EnableEvents = False: .ScreenUpdating = False
For Each cell In DataRng
cell.Value = ConvertRegistr(cell.Value, Tip)
Next cell
.EnableEvents = True: .ScreenUpdating = True
End With
End Sub
[/vba]
8. Вставил скопированное справа в окно (General).
9. Закрыл это окно справа вверху.
10. Закрыл 2-ой (второй) раз справа ещё выше вверху.
11. Выделил синий Скруглённый прямоугольник, который находится в диапазоне ячеек F3:G5.
12. Сделал двойной щелчок левой клавишей мыши → Выбрал пункт «Назначить макрос…»
13. Клацнул левой клавишей мыши → появилось диалоговое окно «Назначить макрос объекту → Там в окне «Имя макроса» выделено «Скругленныйпрямоугольник1_Щелчок».
14. Слева внизу левой клавишей мыши я нажал ОК.
15. Закрыл файл.
11. ′Появилось диалоговое окно: Сохранить изменения в файле «Макрос проба делать 455450.xls′? (Так я назвал скачанный файл).
12. Я нажал «Да»
13. Файл закрылся.
14. Открыл файл.
15. Слева вверху над «Имя ячейки» и «Строка формул» появилось: « Предупреждение системы безопасности Запуск макросов отключен. Параметры…»
16. Левой клавишей мыши я нажал «Параметры…» → Появилось Диалоговое окно «Параметры безопасности Microsoft Office».
17. И я ставлю точку на «Включить это содержимое».
18. Теперь надо выделить ячейку, в которой я собираюсь менять Регистр и должно появится диалоговое окно "Выбор типа конвертации" и в этом окне выбрать цифру которой соответствует условное обозначение:
'Tip = 1 - ВСЕ ПРОПИСНЫЕ
'Tip = 2 - все строчные
'Tip = 3 - Начинать С Прописных
'Tip = 4 - Как в предложениях
'Tip = 5 - иЗМЕНИТЬ рЕГИСТР


Но когдая делаю щелчок левой клавишей мышки на синий Скруглённый прямоугольник у меня не появляется Диалоговое окно: «Microsoft office Excel Не удаётся выполнить макрос Макрос проба делать 455450.xls′ Скругленныйпрямоугольник1_Щелчок, Возможно этот макрос отсутствует в текущей книге либо все макросы отключены»

Вопрос: Что я сделал не так и почему у меня не работает макрос?

Файл ___455450.xls(42.5 Kb) прикладываю.
С уважением.

Автор - Никанор
Дата добавления - 19.10.2018 в 15:59
Pelena Дата: Пятница, 19.10.2018, 16:33 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 13223
Репутация: 2909 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
В этом макросе используется пользовательская функция ConvertRegistr, которую тоже надо было взять по той же ссылке.
Лучше было бы создать стандартный модуль (Insert-- Module), а не размещать в Этой книге.
Ну и п.13 неправильный, разве этот макрос называется Скругленныйпрямоугольник1_Щелчок?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВ этом макросе используется пользовательская функция ConvertRegistr, которую тоже надо было взять по той же ссылке.
Лучше было бы создать стандартный модуль (Insert-- Module), а не размещать в Этой книге.
Ну и п.13 неправильный, разве этот макрос называется Скругленныйпрямоугольник1_Щелчок?

Автор - Pelena
Дата добавления - 19.10.2018 в 16:33
Никанор Дата: Пятница, 19.10.2018, 16:57 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 365
Репутация: 2 ±
Замечаний: 0% ±

Excel 2007
Pelena – Елена!
Большое спасибо за ответ.

1 вопрос: Я правильно понял: надо пункты 2 – 4 заменить на:
Пункт 2. Insert → Module и туда вставить скопированное?
2 вопрос: что именно надо скопировать первый и второй макрос?
3 вопрос: как называется этот макрос – где в макросе найти название?


Сообщение отредактировал Никанор - Пятница, 19.10.2018, 16:59
 
Ответить
СообщениеPelena – Елена!
Большое спасибо за ответ.

1 вопрос: Я правильно понял: надо пункты 2 – 4 заменить на:
Пункт 2. Insert → Module и туда вставить скопированное?
2 вопрос: что именно надо скопировать первый и второй макрос?
3 вопрос: как называется этот макрос – где в макросе найти название?

Автор - Никанор
Дата добавления - 19.10.2018 в 16:57
Никанор Дата: Пятница, 19.10.2018, 17:15 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 365
Репутация: 2 ±
Замечаний: 0% ±

Excel 2007
Pelena – Елена!
Я сделал следующее:
Первое: Пункты 2 – 4 заменил на: Пункт 2. Insert → Module.
Второе: Скопировал с ссылки первый макрос и вставил открытый лист (General) , сделал пробел через Enter и туда вставил скопированное с ссылки второй макрос.
Макрос называется: '455450.xls'!ConvRegistr1
И Макрос «заработал».

Я правильно сделал?

В ссылке откуда я копировал наверное правильно было бы первый и второй макрос объединить верно?
Название макроса '455450.xls'!ConvRegistr1 я написал интуитивно.
А как найти название в самом тексте Макроса?
Скажите пожалуйста это всегда надо вставлять Макрос через Insert → Module?


Сообщение отредактировал Никанор - Пятница, 19.10.2018, 17:17
 
Ответить
СообщениеPelena – Елена!
Я сделал следующее:
Первое: Пункты 2 – 4 заменил на: Пункт 2. Insert → Module.
Второе: Скопировал с ссылки первый макрос и вставил открытый лист (General) , сделал пробел через Enter и туда вставил скопированное с ссылки второй макрос.
Макрос называется: '455450.xls'!ConvRegistr1
И Макрос «заработал».

Я правильно сделал?

В ссылке откуда я копировал наверное правильно было бы первый и второй макрос объединить верно?
Название макроса '455450.xls'!ConvRegistr1 я написал интуитивно.
А как найти название в самом тексте Макроса?
Скажите пожалуйста это всегда надо вставлять Макрос через Insert → Module?

Автор - Никанор
Дата добавления - 19.10.2018 в 17:15
Pelena Дата: Пятница, 19.10.2018, 17:30 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 13223
Репутация: 2909 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Нет, неверно.
После Sub
Почитайте
http://www.excelworld.ru/dir/code/vba/excel_macro/9-1-0-12
https://www.planetaexcel.ru/techniques/3/59/

И да, если первый Ваш пост ещё можно было с натяжкой посчитать уточняющим вопросом к данной теме, то новые вопросы уже никак к ней не относятся


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНет, неверно.
После Sub
Почитайте
http://www.excelworld.ru/dir/code/vba/excel_macro/9-1-0-12
https://www.planetaexcel.ru/techniques/3/59/

И да, если первый Ваш пост ещё можно было с натяжкой посчитать уточняющим вопросом к данной теме, то новые вопросы уже никак к ней не относятся

Автор - Pelena
Дата добавления - 19.10.2018 в 17:30
Никанор Дата: Понедельник, 22.10.2018, 13:47 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 365
Репутация: 2 ±
Замечаний: 0% ±

Excel 2007
Pelena – Елена Здравствуйте!
Большое спасибо за ответы на мои вопросы, объяснения, указание моих ошибок и ссылки где почитать информацию «Что такое макросы VBA в Excel?» и
«Создание макросов и пользовательских функций на VBA».
С уважением.


Сообщение отредактировал Никанор - Понедельник, 22.10.2018, 15:25
 
Ответить
СообщениеPelena – Елена Здравствуйте!
Большое спасибо за ответы на мои вопросы, объяснения, указание моих ошибок и ссылки где почитать информацию «Что такое макросы VBA в Excel?» и
«Создание макросов и пользовательских функций на VBA».
С уважением.

Автор - Никанор
Дата добавления - 22.10.2018 в 13:47
Alex_ST Дата: Понедельник, 22.10.2018, 15:43 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3061
Репутация: 568 ±
Замечаний: 0% ±

2003
Давненько я не заглядывал на форум...
Сейчас стало считаться нормальным использование разноцветного текста в постах, особенно КРАСНОГО , кем-либо кроме админов и модераторов?



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеДавненько я не заглядывал на форум...
Сейчас стало считаться нормальным использование разноцветного текста в постах, особенно КРАСНОГО , кем-либо кроме админов и модераторов?

Автор - Alex_ST
Дата добавления - 22.10.2018 в 15:43
bmv98rus Дата: Понедельник, 22.10.2018, 16:10 | Сообщение № 11
Группа: Проверенные
Ранг: Старожил
Сообщений: 1396
Репутация: 235 ±
Замечаний: 0% ±

Excel 2013/2016
[offtop]
Давненько я не заглядывал на форум...


Не то слово, ни тут не там, а ведь там :-)
 
Ответить
Сообщение[offtop]
Давненько я не заглядывал на форум...


Не то слово, ни тут не там, а ведь там :-)

Автор - bmv98rus
Дата добавления - 22.10.2018 в 16:10
Alex_ST Дата: Понедельник, 22.10.2018, 16:25 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3061
Репутация: 568 ±
Замечаний: 0% ±

2003
[offtop]
Не то слово, ни тут не там

Ну, вообще-то здесь меня только Лена поздравила и почему-то в личке...
-----------------
А на форумах по Excel и VBA я давно не появлялся, т.к. в последние 3 года по работе начал заниматься проектированием, контролем строительства и эксплуатацией Центров Обработки Данных.
Очень много рутинной работы и, к сожалению, очень мало связанной с любимым "ребусом" - Excel.
Да и на работе сисадмины совсем озверели - всё позапрещали и лишили прав администратора. Поэтому не могу ни появившиеся после одного из обновлений форточек "кракозябры" побороть, ни работу с ActiveХ починить, ни даже CCleaner'ом комп почистить :'(
Так что писать что-нибудь не только некогда, но и мучительно :)
Только иногда заглядываю немного почитать, т.к. в течение рабочего дня нет непрерывных периодов безделья на час-два, необходимых для проработки серьёзного совета или подробного ответа (а кое-как я делать не люблю, сами видите по моим старым постам и макросам). [/offtop]



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
Сообщение[offtop]
Не то слово, ни тут не там

Ну, вообще-то здесь меня только Лена поздравила и почему-то в личке...
-----------------
А на форумах по Excel и VBA я давно не появлялся, т.к. в последние 3 года по работе начал заниматься проектированием, контролем строительства и эксплуатацией Центров Обработки Данных.
Очень много рутинной работы и, к сожалению, очень мало связанной с любимым "ребусом" - Excel.
Да и на работе сисадмины совсем озверели - всё позапрещали и лишили прав администратора. Поэтому не могу ни появившиеся после одного из обновлений форточек "кракозябры" побороть, ни работу с ActiveХ починить, ни даже CCleaner'ом комп почистить :'(
Так что писать что-нибудь не только некогда, но и мучительно :)
Только иногда заглядываю немного почитать, т.к. в течение рабочего дня нет непрерывных периодов безделья на час-два, необходимых для проработки серьёзного совета или подробного ответа (а кое-как я делать не люблю, сами видите по моим старым постам и макросам). [/offtop]

Автор - Alex_ST
Дата добавления - 22.10.2018 в 16:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение регистра текста (малый-большой) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!