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

Вход

Регистрация

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

 

= Мир MS Excel/Как правельно в модуль добавить макрос? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как правельно в модуль добавить макрос? (Макросы/Sub)
Как правельно в модуль добавить макрос?
Status-n1 Дата: Воскресенье, 05.10.2014, 23:45 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Мне необходимо вот этот код:
[vba]
Код
Dim Upper As Range
Set Upper = Selection
For Each Upper In Upper
If Upper <> "" Then Upper = UCase(Left(Upper, 1)) + Right(Upper, Len(Upper) - 1)
Next Upper
End Sub
[/vba]
который я разместил в модуль всей книги добавить в макрос так чтобы при запуске макроса все ячейки становились с заглавных.

В прикрепленном файле скрин экрана. я все разместил но у меня ничего не работает. Подскажите на каком этапе я допустил ошибку?
Заранее благодарю.
К сообщению приложен файл: 6286889.jpg (31.0 Kb)


Сообщение отредактировал Serge_007 - Понедельник, 06.10.2014, 07:58
 
Ответить
СообщениеМне необходимо вот этот код:
[vba]
Код
Dim Upper As Range
Set Upper = Selection
For Each Upper In Upper
If Upper <> "" Then Upper = UCase(Left(Upper, 1)) + Right(Upper, Len(Upper) - 1)
Next Upper
End Sub
[/vba]
который я разместил в модуль всей книги добавить в макрос так чтобы при запуске макроса все ячейки становились с заглавных.

В прикрепленном файле скрин экрана. я все разместил но у меня ничего не работает. Подскажите на каком этапе я допустил ошибку?
Заранее благодарю.
Автор - Status-n1
Дата добавления - 05.10.2014 в 23:45
ShAM Дата: Понедельник, 06.10.2014, 00:02 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Ну, допишите 1-й строкой хотябы: Sub a()
 
Ответить
СообщениеНу, допишите 1-й строкой хотябы: Sub a()
Автор - ShAM
Дата добавления - 06.10.2014 в 00:02
alex77755 Дата: Понедельник, 06.10.2014, 03:06 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Ну хоть бы что почитал ради приличия...

Могу помочь в VB6, VBA
Alex77755@mail.ru
 
Ответить
СообщениеНу хоть бы что почитал ради приличия...
Автор - alex77755
Дата добавления - 06.10.2014 в 03:06
nilem Дата: Понедельник, 06.10.2014, 08:04 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
а если так
[vba]
Код
Sub FirstUper()
Dim r As Range
For Each r In Selection
     r = StrConv(r.Value, vbProperCase)
Next r
End Sub
[/vba]
скопируйте в стандартный модуль (в редакторе VBE меню Insert - Module)

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеа если так
[vba]
Код
Sub FirstUper()
Dim r As Range
For Each r In Selection
     r = StrConv(r.Value, vbProperCase)
Next r
End Sub
[/vba]
скопируйте в стандартный модуль (в редакторе VBE меню Insert - Module)
Автор - nilem
Дата добавления - 06.10.2014 в 08:04
Status-n1 Дата: Понедельник, 06.10.2014, 10:55 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
alex77755,
Спасибо за то что дали более развернутый ответ.

Я в общем принцип понял.
Я сделал следующее:
Создал произвольный макрос с названием: ВсесБольшой, на горячии клавиши Ctrl+м. Зашел в данный макрос нажал "Изменить"
и заменил внутренний код на ваш, но по всей видимости опять допустил где-то ошибку так как у меня верхняя строка выделилась желты при попытке запустить макрос с помощю горячих клавиш. Можете посмотреть где ошибка?
Вот что вышло:
[vba]
Код

Sub ВсесБольшой()
'
' ВсесБольшой Макрос
'
' Сочетание клавиш: Ctrl+м
Sub FirstUper()
Dim r As Range
For Each r In Selection
r = StrConv(r.Value, vbProperCase)
Next r
End Sub
[/vba]

Заранее благодарю!
Скрин во вложении.
К сообщению приложен файл: 5565869.jpg (21.9 Kb)


Сообщение отредактировал Serge_007 - Понедельник, 06.10.2014, 20:26
 
Ответить
Сообщениеalex77755,
Спасибо за то что дали более развернутый ответ.

Я в общем принцип понял.
Я сделал следующее:
Создал произвольный макрос с названием: ВсесБольшой, на горячии клавиши Ctrl+м. Зашел в данный макрос нажал "Изменить"
и заменил внутренний код на ваш, но по всей видимости опять допустил где-то ошибку так как у меня верхняя строка выделилась желты при попытке запустить макрос с помощю горячих клавиш. Можете посмотреть где ошибка?
Вот что вышло:
[vba]
Код

Sub ВсесБольшой()
'
' ВсесБольшой Макрос
'
' Сочетание клавиш: Ctrl+м
Sub FirstUper()
Dim r As Range
For Each r In Selection
r = StrConv(r.Value, vbProperCase)
Next r
End Sub
[/vba]

Заранее благодарю!
Скрин во вложении.
Автор - Status-n1
Дата добавления - 06.10.2014 в 10:55
nilem Дата: Понедельник, 06.10.2014, 11:07 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
у вас процедура имеет два начала (Sub ВсесБольшой() и Sub FirstUper() ) и одно окончание(End Sub )
Удалите строку Sub ВсесБольшой()
PS попытайтесь использовать теги для своих кодов на форуме (кнопка решетка #)

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеу вас процедура имеет два начала (Sub ВсесБольшой() и Sub FirstUper() ) и одно окончание(End Sub )
Удалите строку Sub ВсесБольшой()
PS попытайтесь использовать теги для своих кодов на форуме (кнопка решетка #)
Автор - nilem
Дата добавления - 06.10.2014 в 11:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как правельно в модуль добавить макрос? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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