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

Вход

Регистрация

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

 

= Мир MS Excel/Как создать текстовый макрос в microsoft visual basic - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как создать текстовый макрос в microsoft visual basic (Формулы/Formulas)
Как создать текстовый макрос в microsoft visual basic
temnoo Дата: Четверг, 05.02.2015, 15:13 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 57
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Нужно сделать макрос, что бы при некой комбинации кнопок клавиатуры (например: Ctrl+И+Ч) в выбранной ячейке появлялся текст:

Имя (черный текст)
Фамилия (Красный текст)

И все это в определенной заливке.

Спасибо.
[moder]Что за название темы? Замечание Вам. Исправляйте.[/moder]
[moder]Сейчас еще одно замечание получите. Прочитайте Правила форума и еще раз поправьте название темы[/moder]


Сообщение отредактировал temnoo - Четверг, 05.02.2015, 15:26
 
Ответить
СообщениеНужно сделать макрос, что бы при некой комбинации кнопок клавиатуры (например: Ctrl+И+Ч) в выбранной ячейке появлялся текст:

Имя (черный текст)
Фамилия (Красный текст)

И все это в определенной заливке.

Спасибо.
[moder]Что за название темы? Замечание Вам. Исправляйте.[/moder]
[moder]Сейчас еще одно замечание получите. Прочитайте Правила форума и еще раз поправьте название темы[/moder]

Автор - temnoo
Дата добавления - 05.02.2015 в 15:13
Hugo Дата: Четверг, 05.02.2015, 15:31 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3254
Репутация: 707 ±
Замечаний: 0% ±

2019
Для этого есть рекордер, и затем по Alt+F8 можете задать свои горячие клавиши (правда кажется только Ctrl + одну)


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеДля этого есть рекордер, и затем по Alt+F8 можете задать свои горячие клавиши (правда кажется только Ctrl + одну)

Автор - Hugo
Дата добавления - 05.02.2015 в 15:31
Manyasha Дата: Четверг, 05.02.2015, 15:35 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Вставить в модуль:
[vba]
Код
Sub fio()
With ActiveCell
     .Value = "Имя фамилия"
     .Characters(Start:=1, Length:=3).Font.Color = vbBlack
     .Characters(Start:=5, Length:=7).Font.Color = vbRed
     .Interior.Color = vbYellow
End With
End Sub
[/vba]

Потом назначить сочетание клавиш.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеВставить в модуль:
[vba]
Код
Sub fio()
With ActiveCell
     .Value = "Имя фамилия"
     .Characters(Start:=1, Length:=3).Font.Color = vbBlack
     .Characters(Start:=5, Length:=7).Font.Color = vbRed
     .Interior.Color = vbYellow
End With
End Sub
[/vba]

Потом назначить сочетание клавиш.

Автор - Manyasha
Дата добавления - 05.02.2015 в 15:35
temnoo Дата: Четверг, 05.02.2015, 15:40 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 57
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
А какая команда переносит "фамилия" на след строчку ?


Сообщение отредактировал Serge_007 - Четверг, 05.02.2015, 23:55
 
Ответить
СообщениеА какая команда переносит "фамилия" на след строчку ?

Автор - temnoo
Дата добавления - 05.02.2015 в 15:40
Rustem Дата: Четверг, 05.02.2015, 16:15 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 281
Репутация: 48 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
.Value = "Имя " & Chr(10) & "Фамилия"
[/vba]


WMR: R183220163895
 
Ответить
Сообщение[vba]
Код
.Value = "Имя " & Chr(10) & "Фамилия"
[/vba]

Автор - Rustem
Дата добавления - 05.02.2015 в 16:15
temnoo Дата: Четверг, 05.02.2015, 16:38 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 57
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
.Value = "Имя " & Chr(10) & "Фамилия"

Извиняюсь за глупые вопросы, как мне тогда связать что бы текст был разным цветом ?
[moder]Последнее китайское предупреждение! Сейчас еще одно замечание получите. Прочитайте Правила форума и еще раз поправьте название темы[/moder]
 
Ответить
Сообщение
.Value = "Имя " & Chr(10) & "Фамилия"

Извиняюсь за глупые вопросы, как мне тогда связать что бы текст был разным цветом ?
[moder]Последнее китайское предупреждение! Сейчас еще одно замечание получите. Прочитайте Правила форума и еще раз поправьте название темы[/moder]

Автор - temnoo
Дата добавления - 05.02.2015 в 16:38
Rustem Дата: Четверг, 05.02.2015, 16:46 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 281
Репутация: 48 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
.Characters(Start:=1, Length:=3).Font.Color = vbBlack
.Characters(Start:=5, Length:=8).Font.Color = vbRed
[/vba]


WMR: R183220163895
 
Ответить
Сообщение[vba]
Код
.Characters(Start:=1, Length:=3).Font.Color = vbBlack
.Characters(Start:=5, Length:=8).Font.Color = vbRed
[/vba]

Автор - Rustem
Дата добавления - 05.02.2015 в 16:46
RAN Дата: Четверг, 05.02.2015, 17:46 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
И Страшиле пистон вставить.
Вдругорядь будет обращать внимание на модераторов.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеИ Страшиле пистон вставить.
Вдругорядь будет обращать внимание на модераторов.

Автор - RAN
Дата добавления - 05.02.2015 в 17:46
DJ_Marker_MC Дата: Четверг, 05.02.2015, 18:03 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Согласно РАЗЪЯСНЕНИЙ Сергея, тему перенес в раздел VBA поскольку ТС просит решение макросом, а соответственно ЗНАЕТ среду решения и за несоблюдение п.п5r получает замечание!
 
Ответить
СообщениеСогласно РАЗЪЯСНЕНИЙ Сергея, тему перенес в раздел VBA поскольку ТС просит решение макросом, а соответственно ЗНАЕТ среду решения и за несоблюдение п.п5r получает замечание!

Автор - DJ_Marker_MC
Дата добавления - 05.02.2015 в 18:03
Rustem Дата: Четверг, 05.02.2015, 18:45 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 281
Репутация: 48 ±
Замечаний: 0% ±

Excel 2013
Ran, себе вставь >(


WMR: R183220163895
 
Ответить
СообщениеRan, себе вставь >(

Автор - Rustem
Дата добавления - 05.02.2015 в 18:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как создать текстовый макрос в microsoft visual basic (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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