0 / 0 / 0
Регистрация: 11.11.2016
Сообщений: 12
1

Создание макроса

12.10.2017, 20:51. Показов 2333. Ответов 10
Метки нет (Все метки)

Добрый вечер! Такое задание.

Создать макрос, изменяющий шрифт выделенного текста на Arial 16, курсив, цвет - зеленый, назначьте для вызова макроса кнопку, установив её на панели инструментов.

я в этом полный ноль. Но вот немножко что-то нарисовалось, такой ли там код?

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Макрос1()
'
' Макрос1 Макрос
'
'
    Selection.Font.Color = 5296274
    Selection.Font.Name = "Arial"
    Selection.Font.Size = 16
    Selection.Font.Italic = wdToggle
End Sub
Добавлено через 2 часа 1 минуту
после отмены макроса печатает так, как в самом макросе, курсивом, цветом и шрифтом. как изменить?

Добавлено через 11 секунд
после отмены макроса печатает так, как в самом макросе, курсивом, цветом и шрифтом. как изменить?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.10.2017, 20:51
Ответы с готовыми решениями:

Создание макроса
Здравствуйте! Помогите пожалуйста. Создаю макрос , а при выполнении макроса выдает: запрашиваемый...

Создание макроса new!
Нужно с помощью макроса отсортировать данные так, чтобы ФИО не повторялось, а код (столбец:код)...

Создание макроса
Доброго времени суток! Помогите автоматизировать процесс! Есть две книги : книга1.xlsx и...

Создание макроса
Доброго времени суток господа. Помогите решить проблему. Есть информация в текстовом виде такого...

10
es geht mir gut
11492 / 4724 / 1181
Регистрация: 27.07.2011
Сообщений: 11,433
12.10.2017, 22:20 2
Цитата Сообщение от TriXel_01 Посмотреть сообщение
после отмены макроса
Что такое "отмена макроса" ?
0
0 / 0 / 0
Регистрация: 11.11.2016
Сообщений: 12
12.10.2017, 22:46  [ТС] 3
Когда я снова нажимаю на кнопку макроса. Вместо того, чтобы выделенное место изменило вид на обычный шрифт без курсива и чёрный, оно дальше печатает зелёным курсивом со шрифтом ариал.

Добавлено через 55 секунд
Либо это так и должно быть после макроса?
0
Заблокирован
12.10.2017, 22:50 4
TriXel_01, покажите код, который бы заставил
выделенное место изменило вид на обычный шрифт без курсива и чёрный
0
0 / 0 / 0
Регистрация: 11.11.2016
Сообщений: 12
12.10.2017, 23:21  [ТС] 5
Ох, знаете, если бы я знал, ответил бы. Но я только познаю все о макросах. Второй день постигаю. Я у вас и спрашиваю, верно ли все у меня. Может нужно что-то менять.
0
Заблокирован
12.10.2017, 23:30 6
Саша Смирнов будет под утро, Viter Alex в канаде - ждите...
0
0 / 0 / 0
Регистрация: 11.11.2016
Сообщений: 12
13.10.2017, 06:12  [ТС] 7
Господи, кто это вообще?!
0
1465 / 1011 / 321
Регистрация: 11.07.2014
Сообщений: 3,598
13.10.2017, 06:46 8
TriXel_01, надо так

Visual Basic
1
Selection.Font.ColorIndex = 10
0
es geht mir gut
11492 / 4724 / 1181
Регистрация: 27.07.2011
Сообщений: 11,433
13.10.2017, 06:52 9
Лучший ответ Сообщение было отмечено TriXel_01 как решение

Решение

Цитата Сообщение от TriXel_01 Посмотреть сообщение
кто это вообще?!
Это уважаемые люди. В наших узких кругах.


Просто так "отменить" макрос не получится. Нужно написать макрос, который вернёт всё "взад"

Вот Вам макрос. Первый раз выполняется - шрифт зелёный, "Arial", 16, курсив. Второй раз - шрифт чёрный, "Calibri", 11, не курсив. И так циклически.
Visual Basic
1
2
3
4
5
6
7
8
9
Sub Макрос1()
    Static f As Boolean: f = Not f
    With Selection.Font
       .Color = IIf(f, vbGreen, 0)
       .Name = IIf(f, "Arial", "Calibri")
       .Size = IIf(f, 16, 11)
       .Italic = f
    End With
End Sub
1
0 / 0 / 0
Регистрация: 11.11.2016
Сообщений: 12
14.10.2017, 00:15  [ТС] 10
Можете команды описать, что означают?
0
es geht mir gut
11492 / 4724 / 1181
Регистрация: 27.07.2011
Сообщений: 11,433
14.10.2017, 05:51 11
Лучший ответ Сообщение было отмечено TriXel_01 как решение

Решение

Цитата Сообщение от TriXel_01 Посмотреть сообщение
Можете команды описать, что означают?
Да легко!
Visual Basic
1
2
3
4
5
6
7
8
9
Sub Макрос1()                              ' процедура Макрос1
    Static f As Boolean: f = Not f       ' статическая булёва переменная f : значение циклически меняется True-False
    With Selection.Font                    ' работаем со шрифтом выделенного диапазона
       .Color = IIf(f, vbGreen, 0)         ' цвет шрифта или зеленый или чёрный, в зависимости от значения переменной f
       .Name = IIf(f, "Arial", "Calibri")   ' имя шрифта, в зависимости от значения переменной f
       .Size = IIf(f, 16, 11)                ' размер шрифта, в зависимости от значения переменной f
       .Italic = f                              ' курсив-не курсив, в зависимости от значения переменной f
    End With                                  ' конец работы со шрифтом выделенного диапазона
End Sub                                       ' конец процедуры
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2017, 05:51

Создание макроса
Помогите. Нужно чтобы при нажатии кнопки "Узнать результат" он переходил на страницу с результатами...

Создание макроса
Нужен макрос, который будет из определенной папки переименовывать файл excel удалением сначала 16...

Программное создание макроса
Доброго времени суток, форумчане! Прошу помощи с кодом! Есть форма, в которой содержаться...

Создание макроса автозаполнения
Всем привет! Подскажите, пожалуйста, как сделать проще, если данная задача не решаема. Я совсем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.