Как скопировать кнопку в excel

Как скопировать кнопку счетчик вместе с макросом

toto80 Дата: Понедельник, 09.11.2015, 18:04 | Сообщение № 1 Группа: Пользователи Ранг: Прохожий Сообщений: 8 Репутация: 0 ± Замечаний: 0% ± Excel 2003 день добрый, прошу помощи у гуру! есть таблица учета: столбец А сколько ушло столбец B сколько есть на складе столбец С кнопка счетчик для каждой строки (+1 к столбцу А и -1 к столбцу B соответственно) строк- позиций много и в каждой строке кнопка счетчик на свою строку вопрос такой: для первой строки я в конструкторе вставил кнопку и написал макрос (первый раз в жизни) вот как бы теперь ее(кнопку счетчик) размножить на остальные строки чтобы макрос автоматически менял значения строк и еще, не маловажно, как можно написать макрос так, чтобы, допустим, я хочу вставить столбец между столбцами А и Б — функциональность таблицы не пострадала вариант когда прописываешь в нужных строках единички а потом жмешь на большую кнопку и происходит общий пересчет не пройдет…. может кто знает как сделать так чтобы можно было скопировать кнопку счетчик всем заранее спасибо [moder]Оформите код! И пример приложите[/moder] Сообщение отредактировал toto80 — Понедельник, 09.11.2015, 18:28   Ответить

_Boroda_ Дата: Понедельник, 09.11.2015, 20:12 | Сообщение № 2 Группа: Модераторы Ранг: Местный житель Сообщений: 16618 Репутация: 6465 ± Замечаний: 0% ± 2003; 2007; 2010; 2013 RUS Я бы не стал делать такую тучу кнопок. Достаточно одной, которая отрабатывает те ячейки, в строке которых находится курсор. Вынести ее в строку 1 и закрепить области (вкладка Вид) по строке 2 Примерно вот так: [vba] Код Private Sub CommandButton1_Click()     ad_ = Selection.Address     c1_ = WorksheetFunction.Match(«Купили», Range(«2:2»), 0)     c2_ = WorksheetFunction.Match(«В наличии», Range(«2:2»), 0)     r_ = Selection(1).Row     If Cells(r_, c2_) = 0 Then         MsgBox «В наличии 0»         Exit Sub     End If     Cells(r_, c1_) = Cells(r_, c1_) + 1     Cells(r_, c2_) = Cells(r_, c2_) — 1     Range(ad_).Select End Sub [/vba] Ткнитесь в любую ячейку (не обязательно в столбцах А или В) и нажмите кнопку. Еще вариант — можно сделать по даблклику или правому клику на ячейке. В файле _2 сделал по даблклику на любую ячейку в нужной строке Скажи мне, кудесник, любимец ба’гов… Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995   Ответить

toto80 Дата: Вторник, 10.11.2015, 12:14 | Сообщение № 3 Группа: Пользователи Ранг: Прохожий Сообщений: 8 Репутация: 0 ± Замечаний: 0% ± Excel 2003 спасибо за быстрый ответ вы писали Достаточно одной, которая отрабатывает те ячейки, в строке которых находится курсор. Вынести ее в строку 1 и закрепить области (вкладка Вид) по строке 2 как я уже писал «вариант когда прописываешь в нужных строках единички а потом жмешь на большую кнопку и происходит общий пересчет не пройдет….» и ваш пример №1 ( 2227482.xls) не рабочий он должен стирать то что добавил, это мелочи — все рано вариант не интересен, просто не подойдет исходя из других внутренних соображений Еще вариант — можно сделать по даблклику или правому клику на ячейке. В файле _2 сделал по даблклику на любую ячейку в нужной строке так можно же случайно не туда кликнуть и будет полная каша))) еще раз спасибо за ответ   Ответить

Wasilich Дата: Вторник, 10.11.2015, 14:15 | Сообщение № 4 Группа: Друзья Ранг: Старожил Сообщений: 1232 Репутация: 326 ± Замечаний: 0% ± 2003 toto80, опытнейший экселист предложил вам 2 простейших решения задачи, только потому, что нет такой возможности копировать кнопку вместе с макросом да еще и с изменяющимися критериями в нем при смене строк, а потом еще и вставке столбцов. ваш пример №1 ( 2227482.xls) не рабочий он должен стирать то что добавил, У меня очень даже рабочий. Для того что бы он стал рабочим и у вас, надо поставить курсор на нужную вам строку потом нажать кнопку и посмотреть результат в этой же строке. А вот вы, даже не удосужились в этом разобраться. так можно же случайно не туда кликнуть и будет полная каша Так значит, двойной клик может быть случайным, а случайность клика по кнопке исключена? Успехов.   Ответить

toto80 Дата: Вторник, 10.11.2015, 15:10 | Сообщение № 5 Группа: Пользователи Ранг: Прохожий Сообщений: 8 Репутация: 0 ± Замечаний: 0% ± Excel 2003 У меня очень даже рабочий. Для того что бы он стал рабочим и у вас, надо поставить курсор на нужную вам строку читайте мою фразу до конца…. а звучит она так «ваш пример №1 ( 2227482.xls) не рабочий он должен стирать то что добавил» Так значит, двойной клик может быть случайным, а случайность клика по кнопке исключена? вероятность случайного клика в определенной ячейке или на кнопке на порядок, а то и на несколько, меньше чем вероятность двойного клика в любом месте в строке…. Сообщение отредактировал toto80 — Вторник, 10.11.2015, 15:12   Ответить

МВТ Дата: Вторник, 10.11.2015, 15:37 | Сообщение № 6 Группа: Проверенные Ранг: Обитатель Сообщений: 476 Репутация: 137 ± Замечаний: 0% ± Excel 2007 Я бы вообще не стал так усложнять. Вставляете этот код в модуль листа и кнопки не нужны. Можно изменять количество не на 1 + проверяет, чтобы вводимое количество не превышало то, что в наличии[vba] Код Private Sub Worksheet_Change(ByVal Target As Range) Dim Min If Target.Count > 1 Then Exit Sub If Intersect(Target, Range(«C2:C» & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then Exit Sub Application.EnableEvents = False With Target     Min = Application.WorksheetFunction.Min(.Value, .Offset(0, -1))     .Offset(0, -2) = .Offset(0, -2) + Min     .Offset(0, -1) = .Offset(0, -1) — Min     .Value = Empty End With Application.EnableEvents = True End Sub [/vba]   Ответить

Manyasha Дата: Вторник, 10.11.2015, 15:46 | Сообщение № 7 Группа: Модераторы Ранг: Старожил Сообщений: 2198 Репутация: 898 ± Замечаний: 0% ± Excel 2010, 2016 должен стирать то что добавил у меня работает, так же, как и Ваша кнопка. Единственное различие, проверка поля «в наличии» на неотрицательные значения (что вполне логично). вероятность двойного клика в любом месте в строке…. так сделайте, чтобы вызывалось не в любом, а только в нужном столбце ЯД: 410013299366744 WM: R193491431804   Ответить

RAN Дата: Вторник, 10.11.2015, 16:43 | Сообщение № 8 Группа: Друзья Ранг: Экселист Сообщений: 5645 Юрий М на Планете выкладывал решение с плавающими кнопками. (+ и -). Было с год? назад. Но искать даже и пытаться не буду. Быть или не быть, вот в чем загвоздка!   Ответить

toto80 Дата: Вторник, 10.11.2015, 18:13 | Сообщение № 9 Группа: Пользователи Ранг: Прохожий Сообщений: 8 Репутация: 0 ± Замечаний: 0% ± Excel 2003 огромное спасибо всем а особенно _Boroda_, итак, прошу не кидать тапками, так как программирую (вернее пытаюсь) на VBA всего 3 часа и вот что получилось задача: сделать чтобы при любом перемещении столбцов и строк соответствующие кнопки(ячейки) добавляли(удаляли) значения в соответствующих ячейках вот что получилось активные ячейки в столбцах сделка и отмена [vba] Код Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim DELTA     Cancel = True     w1_ = WorksheetFunction.Match(«Купили», Range(«2:2»), 0)     w2_ = WorksheetFunction.Match(«В наличии», Range(«2:2»), 0)     w3_ = WorksheetFunction.Match(«Дельта», Range(«2:2»), 0)     w4_ = WorksheetFunction.Match(«СДЕЛКА», Range(«2:2»), 0)     w5_ = WorksheetFunction.Match(«ОТМЕНА», Range(«2:2»), 0)     If Target.Column < w4_ Then Exit Sub     If Target.Column > w5_ Then Exit Sub     r_ = Target(1).Row     DELTA = Cells(r_, w3_)     If Cells(r_, w3_) = 0 Then           DELTA = 1           End If     If Target.Column = w4_ Then     Cells(r_, w1_) = Cells(r_, w1_) + DELTA     Cells(r_, w2_) = Cells(r_, w2_) — DELTA           End If     If Target.Column = w5_ Then     Cells(r_, w1_) = Cells(r_, w1_) — DELTA     Cells(r_, w2_) = Cells(r_, w2_) + DELTA           End If End Sub [/vba] осталось еще несколько вопросов 1. что значит Range(«2:2») в WorksheetFunction.Match 2. как можно сделать так чтобы после двойного клика на активную ячейку она, помимо арифметических функций, меняла цвет на определенное время — типа команда выполнена 3. добавил строку перед шапкой(купили, в наличии, сделка…) то есть строка купили, в наличии, сделка… стала третьей строкой — не работает…. и еще раз прошу не кидаться тапками) К сообщению приложен файл: KNOPKI_1.xls (61.5 Kb)   Ответить

_Boroda_ Дата: Вторник, 10.11.2015, 21:00 | Сообщение № 10 Группа: Модераторы Ранг: Местный житель Сообщений: 16618 Репутация: 6465 ± Замечаний: 0% ± 2003; 2007; 2010; 2013 RUS 1. Это строка 2 3. Тогда нужно поменять 2:2 на 3:3 2. Последней строкой напишите[vba] Код Target.Interior.Color=8420607 [/vba] Удалять закраску вот так [vba] Код Range(«A1:A3»).Interior.Pattern = xlNone [/vba] Эту строку (с своими диапазонами, рассчитанными как у Вас в коде w1, w2, …) повесьте в модуль книги (а не листа, как предыдущий код) на сохранение (Workbook_BeforeSave), или открытие (Workbook_Open), или закрытие (Workbook_BeforeClose), или еще какую подходящую операцию. Вы, я вижу, любите самостоятельно разбираться, поэтому почитайте про события листа и события книги — эти темы обычно хорошо описаны. Скажи мне, кудесник, любимец ба’гов… Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995   Ответить

toto80 Дата: Среда, 11.11.2015, 17:50 | Сообщение № 11 Группа: Пользователи Ранг: Прохожий Сообщений: 8 Репутация: 0 ± Замечаний: 0% ± Excel 2003 _Boroda_, удалить сообщение не могу, заработало, см след сообщение) чуть чуть не то надо, я хочу чтобы ячейка при двойном клике на нее мигнула (цет поменяла на время) — по типу комада выполнена вставляю такой код по моим скудным познаниям — запоминаем цвет, меняем его, пауза, возврат цвета на место [vba] Код     COLOR_CH = Cells(r_, w4_).Interior.ColorIndex     Cells(r_, w4_).Interior.ColorIndex = 6 Sleep (500)     Cells(r_, w4_).Interior.ColorIndex = COLOR_CH [/vba] ругается на Sleep у меня ексель 2003( Сообщение отредактировал toto80 — Среда, 11.11.2015, 17:58   Ответить

toto80 Дата: Среда, 11.11.2015, 17:56 | Сообщение № 12 Группа: Пользователи Ранг: Прохожий Сообщений: 8 Репутация: 0 ± Замечаний: 0% ± Excel 2003 заработало)))) sleep поставил в модуль хе хе может кто нибудь проверит простенький код на глобальные косяки? мне вот это пока еще не понятно зачем нужно и можно ли избавиться [vba][/vba] К сообщению приложен файл: 4821608.xls (67.5 Kb) Сообщение отредактировал toto80 — Среда, 11.11.2015, 17:58   Ответить

Manyasha Дата: Четверг, 12.11.2015, 10:58 | Сообщение № 13 Группа: Модераторы Ранг: Старожил Сообщений: 2198 Репутация: 898 ± Замечаний: 0% ± Excel 2010, 2016 toto80, непонятно, что такое Dim или за что отвечаю эти переменные? Dim — это объявление переменных. Ваш код будет работать и без этих 2-х строчек (почитайте что-нибудь про явное и неявное объявление переменных). DELTA — значение, которое прибавляется к «Купили» и вычитается из «В наличии». COLOR_CH — возвращает исходный цвет ячейки. Если у Вас все ячейки в поле Сделка и Отмена бесцветные, то можно убрать эту переменную: [vba] Код     If Target.Column = w4_ Then         Cells(r_, w1_) = Cells(r_, w1_) + DELTA         Cells(r_, w2_) = Cells(r_, w2_) — DELTA         Cells(r_, w4_).Interior.ColorIndex = 6         Sleep (500)         Cells(r_, w4_).Interior.ColorIndex = xlNo     End If [/vba] Я бы убрала Cancel = True из начала макроса и поставила сюда: [vba] Код     If Target.Column < w4_ Then Exit Sub     If Target.Column > w5_ Then Exit Sub     Cancel = True [/vba] Тогда можно будет редактировать остальные ячейки 2-м кликом (которые НЕ в столбцах Сделка, Отмена) ЯД: 410013299366744 WM: R193491431804   Ответить

toto80 Дата: Четверг, 12.11.2015, 11:42 | Сообщение № 14 Группа: Пользователи Ранг: Прохожий Сообщений: 8 Репутация: 0 ± Замечаний: 0% ± Excel 2003 Manyasha, большое спасибо за объяснения….я брал за исходный код тот что с сообщении №2 и подумав полтора дня, ни имеея ни малейшего опыта, сделал код который в файле сообщения №12 отсюда и получились вопросы с DIM понятно, но пусть остается… DELTA COLOR_CH эти переменные я сам вводил, исходя из того что ячейки Сделка и Отмена могут быть цветными, бесцветный это тоже цвет) переменная дельта — это модуль счета, иногда приходится по 10 или 5 прибавлять(вычитать) — количество в коробке изделий Cancel = True из начала макроса……. идею понял, но мне лучше зафиксировать конкретные столбцы…. еще раз, спасибо большой Сообщение отредактировал toto80 — Четверг, 12.11.2015, 11:43   Ответить

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012

Доброй ночи, уважаемые форумчане.Подскажите, пожалуйста:   Как перенести кнопку «Пошук»  с листа «РИД» на лист «база» ?   Кнопку «Пошук» скопировал с листа «РИД» на лист «база» и назначил ей тот же макрос   Форма вызывается, но не работает поиск. Пришлось убрать кнопку.   Прошу, пожалуйста, объяснить мне, если это не трудно,как данные с листа «РЛ» попадают в комбобоксы?   Код и его смысл. Я, вообще-то, по другому знаю:     Private Sub UserForm_Initialize()   Dim sh As Worksheet       Me.Combobox1.RowSource = («РЛ!A2:A7»)       Me.Combobox2.RowSource = («РЛ!A10:A12»)       Me.Combobox3.RowSource = («РЛ!A15:A17»)   End Sub          А здесь для меня – тупик. Скорее всего, это я – Тупик.     С уважением, Сергей

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Поиск ищет, но не находит: активен другой лист, на котором нет данных. Нужно в коде формы прописать, на каком листе искать.       Свойство RowSource задает диапазон.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Тезка, вообще-то очень красиво с Вашей стороны было вылохить книгу с защищенным листом. Гадайте, что там и как.   >>как данные с листа «РЛ» попадают в комбобоксы   См. скрин. На первый вопрос ответил Виктор. Я сам — дурнее всякого примера! …

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012

Ребята, спасибо большое! Со вторым вопросом уже разобрался. Интересная штука. А я не знал этого. Вам хорошо, у вас головы свежие, молодые, а мне, в мои 61, уже сложнее, но очень квлёкся VBA. Завидую вам (белой завистью конечно!). Мне уже в этом отношении потяжелее, но, всё равно, постараюсь осилить. Наш форум – прекрасное и нужное людям изобретение! Сейчас буду разбираться с первым вопросом. С уважением, Сергей.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	{quote}{login=SERZH}{date=29.09.2011 11:50}{thema=Перенос кнопки на другой лист}{post} а мне, в мои 61…{/post}{/quote}   Куда мне, одногодку сопливому

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Вить, не расстраивайся, я судя по аватару еще не родился:-) Я сам — дурнее всякого примера! …

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012	Мужики! Давайте-ка, разберёмся! По-моему, я что-то не то ляпнул, да?! Витя,так ты, оказывается, мой одногодок?! Серёж, а тебе сколько, если не секрет?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	На 10 лет тебя младше. Я сам — дурнее всякого примера! …

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Витя имел ввиду возраст младенца на аватаре:-) Я сам — дурнее всякого примера! …

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012	Вот, видишь! У тебя голова светлее моей. Эх!!! Где мои 50??? (Я уже не говорю про 18)

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012	{quote}{login=AKSENOV048}{date=29.09.2011 01:35}{thema=}{post}SERZH, подошел вариант?{/post}{/quote}   Уважаемый AKSENOV048! Извини, пожалуйста, за задержку (я ведь на работе).     Кнопка работает только с данными на том листе (т.е. «база»). Но на листе «база» не должно быть никаких данных. Все данные – на другом листе, т.е. на листе «РИД»   С уважением, Сергей.

правильно понял?: на листе база выбираем ПОШУК, в форме должны появляться данные с листа РИД, выбираем появляется следующая форма.     вроде так сделал только не получается у меня придумать, как сделать вызов следующий формы без перехода на лист РИД.   поиск работает, но вот здесь загвоздка: Cells(ListBox1.Value, stolbV).Select   думал что можно Sheets(2).Cells(ListBox1.Value, stolbV).Select — но не тут то было. и with sheets(2) тоже не получается.     может еще кто поможет.

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012	Спасибо большое, дорогой AKSENOV048, за помощь. Всё работает отлично!. А с «РИДом» попробуем разобраться. С уважением, Сергей.

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012	Ну ты, AKSENOV048, Молодец!!! Добил, всё-таки!!! Спасибо тебе огромнейшее. Кстати, как тебя зовут? С уважением, Сергей

	)озарение пришло ночью!оказалось все просто.     рад был помочь.   С уважением, Саша)

	{quote}{login=AKSENOV048}{date=30.09.2011 11:42}{thema=}{post})озарение пришло ночью!оказалось все просто.     рад был помочь.   С уважением, Саша){/post}{/quote}     Очень рад знакомству. С уважением, Сергей.

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012	{quote}{login=AKSENOV048}{date=30.09.2011 02:26}{thema=}{post}Взаимно!){/post}{/quote}   Саша, доброй ночи. Отзовись, пожалуйста. Сергей

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012

{quote}{login=SERZH}{date=05.10.2011 01:14}{thema=Re: }{post}{quote}{login=AKSENOV048}{date=30.09.2011 02:26}{thema=}{post}Взаимно!){/post}{/quote}   Саша, доброй ночи. Отзовись, пожалуйста. Сергей{/post}{/quote}   Посмотри, пожалуйста форму. Всё отлично, но сегодня я усёк, что когда поиск вызівает вторую форму Form_Change.Она работает отлично, но когда её ротаскиваешь по экрану, то она много рисует сама себя

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012

{quote}{login=SERZH}{date=05.10.2011 01:26}{thema=Re: Re: }{post}{quote}{login=SERZH}{date=05.10.2011 01:14}{thema=Re: }{post}{quote}{login=AKSENOV048}{date=30.09.2011 02:26}{thema=}{post}Взаимно!){/post}{/quote}   Саша, доброй ночи. Отзовись, пожалуйста. Сергей{/post}{/quote}   Посмотри, пожалуйста форму. Всё отлично, но сегодня я усёк, что когда поиск вызівает вторую форму Form_Change.Она работает отлично, но когда её ротаскиваешь по экрану, то она много рисует сама себя{/post}{/quote}     Саша,AKSENOV048, добрый вечер.Что-то я тебя уже несколько дней не слышу и не вижу.

	Здравствуйте Сергей! извините, последнее время интернет очень сильно «тупит», поэтому редко получалось заходить.   Даже не знаю что Вам сказать по поводу формы, у себя только что пробовал запускал… вроде нормально все.   а что значит «много рисует сама себя»? может видеокарта глючит? или это только с данной формой?   можете скриншот приложить?

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012

Добрый день, уважаемые форумчане! Есть вопрос по файлу:   Файл хороший. Всё рабртает прекрасно! Один маленький нюанс:   Есть две юзерформы:  Form  и   Form_Change. Так вот, когда на экране дисплея появляется Form_Change (тоже прекрасно работает, всё хорошо!). А потом я заметил интересную штуку: Если  Form_Change зацепить мышкой и перемещать её по экрану (вверх, вниз, вправо, влево и т.д. в любом направлении) то Form_Change оставляет за собой неисчезающий след-хвост, т.е рисует сама себя. С Form  этого не происходит. С видеокартой всё нормально. Тем более, что этот файл я пробовал и дома и на трёх компьютерах на работе. Одно и то же.   Мужики, посоветуйте пожалуйста, как убрать этот нюанс. С уважением, Сергей

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	У меня такого нет. Сколько не тягай. Вот я переместил форму в угол см. скрин. Я сам — дурнее всякого примера! …

srodichev Пользователь Сообщений: 191 Регистрация: 22.12.2012

{quote}{login=KukLP}{date=08.10.2011 12:54}{thema=}{post}У меня такого нет. Сколько не тягай. Вот я переместил форму в угол см. скрин.{/post}{/quote}   Сделал по-другому: убрал Поисковик, а для Form_Change отдельно слелал вызов, добавил скроллбар и убрал один КомандБуттон с Form_Change. Эта форма, вообще, нужна не для работы, а для просмотра-поиска нужной информации. Без Поисковика Form_Change рисовать перестала. Ребята, проверьте, пожалуйста, коды. Ничего не намудрил?

	офф:опять провайдер на пол дня интернет отключил(     Сергей, да вроде нормально все!     код удалить можно с листа Рид. а вообще оставьте все как есть))

Guest Гость	#29 08.10.2011 19:59:30 {quote}{login=AKSENOV048}{date=08.10.2011 07:44}{thema=}{post}офф:опять провайдер на пол дня интернет отключил(     Сергей, да вроде нормально все!     код удалить можно с листа Рид. а вообще оставьте все как есть)){/post}{/quote}     Понял, Саша, всё нормально. Удачного воскресенья! С уважением, Сергей

Как сделать кнопку в Excel? Войдите в раздел «Разработчик», откройте меню «Вставить», выберите изображение и назначьте макрос, гиперссылку, переход на другой лист или иную функцию. Ниже подробно рассмотрим все способы создания клавиш в Эксель, а также приведем функции, которые им можно присвоить.

Как создать кнопку: базовые варианты

Перед тем как сделать кнопку в Эксель, убедитесь в наличии режима разработчика. Если такой вкладки нет, сделайте следующие шаги:

1. Жмите по ленте правой клавишей мышки (ПКМ).
2. В появившемся меню кликните на пункт «Настройка ленты …».
3. В окне «Настроить ленту» поставьте флажок возле «Разработчик».
4. Кликните «ОК».

После того, как сделана подготовительная работа, можно вставить кнопку в Excel. Для этого можно использовать один из рассмотренных ниже способов.

Через ActiveX

Основной способ, как создать кнопку в Excel — сделать это через ActiveX. Следуйте такому алгоритму:

1. Войдите в раздел «Разработчик».
2. Жмите на кнопку «Вставить».
3. В появившемся меню выберите интересующий элемент ActiveX.
4. Нарисуйте его нужного размера.

Через элемент управления

Второй вариант — создание кнопки в Excel через элемент управления. Алгоритм действий такой:

1. Перейдите в «Разработчик».
2. Откройте панель «Вставить».
3.  Выберите интересующий рисунок в разделе «Элемент управления формы».
4. Нарисуйте нужный элемент.
5. Назначьте макрос или другую функцию.

Через раздел фигур

Следующий способ, как добавить кнопку в Excel на лист — сделать это с помощью раздела «Фигуры». Алгоритм действий такой:

1. Перейдите в раздел «Вставка».
2. Войдите в меню «Иллюстрации», где выберите оптимальную фигуру.
3. Нарисуйте изображение необходимой формы и размера.
4. Кликните ПКМ по готовой фигуре и измените оформление.

В качестве рисунка

Вставка кнопки Excel доступна также в виде рисунка. Для достижения результата пройдите такие шаги:

1. Перейдите во вкладку «Вставка».
2. Кликните в категорию «Иллюстрации».
3. Выберите «Рисунок».
4. Определитесь с типом клавиши, который предлагается программой.

Какие кнопки можно создать

В Excel возможно добавление кнопки двух видов:

1. Command Button — срабатывает путем нажатия, запускает определенное действие (указывается индивидуально). Является наиболее востребованным вариантом и может играть роль ссылки на страницу, таблицу, ячейку и т. д.
2. Toggle Button — играет роль переключателя / выключателя. Может нести определенные сведения и скрывать в себе два параметра — Faste и True. Это соответствует двум состояниям — нажато и отжато.

Также перед тем как поставить кнопку в Эксель, нужно определиться с ее назначением. От этого напрямую зависят дальнейшие шаги. Рассмотрим разные варианты.

Макрос

Часто бывают ситуации, когда необходимо создать кнопку макроса в Excel, чтобы она выполняла определенные задачи. В обычном режиме для запуска нужно каждый раз переходить в раздел разработчика, что требует потери времени. Проще создать рабочую клавишу и нажимать ее по мере неободимости.

Если вы решили сделать клавишу с помощью ActiveX, алгоритм будет таким:

• Войдите в «Режим конструктора».

• Кликните дважды по ней.
• В режиме Visual Basic между двумя строками впишите команду, необходимую для вызова макроса., к примеру, Call Макрос1.

• Установите назначение для остальных графических объектов, если они есть.

Зная, как назначить кнопку в Excel, вы легко справитесь с задачей. Но можно сделать еще проще — жмите на рисунок ПКМ и в списке внизу перейдите в раздел «Назначить макрос». Здесь уже задайте интересующую команду.

Переход на другой лист / ячейку / документ

При желании можно сделать кнопку в Excel, которая будет отправлять к другому документу, ячейке или листу. Для этого сделайте следующее:

• Подготовьте клавишу по схеме, которая рассмотрена выше.
• Выделите ее.
• На вкладке «Вставка» отыщите «Гиперссылка».

• Выберите подходящий вариант. Это может быть файл, веб-страница, e-mail, новый документ или другое место.
• Укажите путь.

Рассмотренный метод не требует указания макросов и предоставляет расширенные возможности. При желании можно также использовать и макросы.

Существует и другой способ, как сделать кнопку в Excel для перехода к определенному листу. Алгоритм такой:

1. Создайте рисунок по рассмотренной выше схеме.
2. В окне «Назначить макрос» введите имя макроса, а после жмите на клавишу входа в диалоговое окно Microsoft Visual Basic.
3. Вставьте код для перехода к другому листу — ThisWorkbook.Sheets(«Sheet1»).Activate. Здесь вместо Sheet1 укажите путь к листу с учетом запроса.
4. Сохраните код и закройте окно.

Сортировка таблиц

При желании можно сделать клавишу для сортировки таблиц Excel. Алгоритм действий такой:

• Создайте текстовую таблицу.
• Вместо заголовков добавьте автофигуры, которые в дальнейшем будут играть роль клавиш-ссылок на столбцах таблицы.

• Войдите в Visual Basic режим, где в папке Modules вставьте модуль Module1.
• Кликните ПКМ по папке и жмите на Insert Module.
• Сделайте двойной клик по Module1 и введите код.
• Назначьте каждой фигуре индивидуальный макрос.

После выполнения этих шагов достаточно нажать по заголовку, чтобы таблица сортировала данные в отношении определенного столбца.

По рассмотренным выше принципам несложно разобраться, как в Экселе сделать кнопки выбора и решения других задач. В комментариях расскажите, какой из приведенных методов вам подошел, и как проще всего самому сделать клавишу в программе.

Отличного Вам дня!

Создание кнопки в Microsoft Excel

​Смотрите также​ выставляется ссылка​Формы​Управление всеми доступными макросами​ она не просто​и​ VBA и файлы​ одни и те​ следующий код:​ с набором элементов​Закрываем редактор, и запускаем​ этой же книге​Теперь после нажатия на​ в документе.​Автор: Максим Тютюшев​ окна. Теперь вкладка​

​ котором желаем расположить​Excel является комплексным табличным​

Процедура создания

​Karataev​через меню​ производится в окне,​ возрвращает Вас в​End Sub​ справки не переводятся​ же действия и​Sub Макрос 1()​ для вставки. Выбираем​ макрос, как и​ (файле), но при​ кнопку будет выполняться​После выбора нажмите кнопку​Табличный процессор Excel вмещает​

Способ 1: автофигура

​ разработчика будет активирована​ объект. Переходим во​ процессором, перед которым​: так можно добавить​

1. ​Вид — Панели инструментов​​ которое можно открыть​​ предыдущее состояние, но​​- тело макроса,​​ компанией Microsoft на​ операции в Excel.​Range(«M6»).Select​​ первый элемент ActiveX​​ в прошлый раз.​ желании можно установить​ тот макрос, который​ «ОК».​ в себя огромное​ в вашей версии​ вкладку​ пользователи ставят самые​ на ленту кнопку​

   

2. ​ — Формы (View​ с помощью кнопки​ и стирает последнюю​ т.е. команды, которые​ русский язык, поэтому​ Любая офисная работа​End Sub​ – «кнопку» (в​ Как видим, вследствие​

   

3. ​ хранение в новой​ вы указали. Теперь​На этом создание кнопки​ количество опций и​ Excel.​«Вставка»​ разнообразные задачи. Одной​ для макроса средствами​ — Toolbars -​Макросы (Macros)​ записанную команду на​​ будут выполняться при​​ с английскими командами​

   

4. ​ предполагает некую «рутинную​Точно так же можно​ виде серого кирпичика).​​ введенных нами изменений​​ книге, или в​ вы знаете все​ первым способом закончено.​ функций, не исключая​​После этого перемещаемся во​​и кликаем по​

​ из таких задач​ самой программы excel​ Forms)​на вкладке​ VBA.​

​ запуске макроса. В​​ в меню и​ составляющую» — одни​

Способ 2: стороннее изображение

​ назначить макрос диаграмме,​ Теперь рисуем курсором​ была добавлена ещё​

1. ​ отдельной книге макросов.​ три способа, как​ Теперь после нажатия​ даже возможность создания​
2. ​ вкладку​ значку​ является создание кнопки​Файл —> Параметры—>Настройка​​В Excel 2007 и​​Разработчик (Developer)​Чтобы включить запись необходимо:​​ данном случае макрос​​ окнах придется смириться:​ и те же​ объектам WordArt, SmartAtr.​​ кнопку необходимого размера.​​ одна ячейка с​

   

3. ​ Мы оставим значение​ сделать кнопку в​ по ней вы​ кнопки. На первый​«Разработчик»​«Рисунок»​ на листе, нажатие​ ленты —>Выбрать команды​ новее — откройте​​или — в​​в Excel 2003 и​

   

4. ​ выделяет ячейку заливает​Макросы (т.е. наборы команд​ еженедельные отчеты, одни​Для показательного примера создайте​Кнопка – элемент управления​ данными. Она также​ по умолчанию.​ Excel.​ будете переходить на​

   

5. ​ взгляд абсолютно ненужный​. Щелкаем по кнопке​, который расположен на​ на которую запускало​ —>Макросы—> выберите макрос—>справа​ выпадающий список​ старых версиях Excel​ старше — выбрать​ выделенных диапазон (Selection)​ на языке VBA)​ и те же​ тестовую таблицу как​​ формы. Снова переходим​​ была включена в​

   

6. ​В самом нижнем поле​Вот мы и рассмотрели​ другой лист в​ элемент некоторым пользователям​«Вставить»​ ленте в блоке​ бы определенный процесс.​ выберите или создайте​Вставить (Insert)​ — через меню​ в меню​​ желтым цветом (код​​ хранятся в программных​

​ действия по обработке​ на рисунке:​ на вкладку «Разработчик».​

​ расчет общей суммы.​​ настройки макросов можно​ три способа, как​

Способ 3: элемент ActiveX

​ документе. Если же​ может быть просто​, расположенной на ленте​ инструментов​ Данная проблема вполне​ вкладку и группу,в​на вкладке​

1. ​Сервис — Макрос -​Сервис — Макрос -​ = 6) и​ модулях. В любой​ поступивших данных, заполнение​Вместо заголовков колонки таблицы​ Открываем меню инструмента​В случае, если макрос​ оставить любое подходящее​ в Excel сделать​ вы столкнулись с​ необходим. В этой​​ в блоке инструментов​​«Иллюстрации»​ решаема с помощью​​ которую нужно вставить​​Разработчик (Developer)​

   

2. ​ Макросы​ Начать запись​​ затем проходит в​​ книге Excel мы​ однообразных таблиц или​ добавим автофигуры, которые​​ «Вставить». Теперь выбираем​​ слишком большой, его​ по контексту описание​ активные кнопки. Как​​ какими-либо трудностями или​​ статье будет рассказано,​«Элементы управления»​.​ инструментария Эксель. Давайте​ кнопку,—>Добавить>>​

   

3. ​ ​(Tools — Macro -​​(Tools — Macro -​​ цикле по всем​​ можем создать любое​​ бланков и т.д.​ будут служить кнопками​​ элемент «кнопка» из​​ выполнение может занять​​ данного макроса. Но,​​ можно заметить, каждый​ же этот метод​ как сделать кнопку​

   

4. ​. В группе​Открывается окно выбора изображения.​ разберемся, какими способами​Vostok​Выберите объект​ Macros)​ Record New Macro)​ ячейкам, заменяя формулы​ количество программных модулей​

   

5. ​ Использование макросов и​ для сортировки по​ первой группы (такой​

   

6. ​ значительное время. Но,​ это делать не​ из них в​ просто вам не​ в Excel и​«Элементы ActiveX»​ Переходим с помощью​ можно создать подобный​: Идёшь по этому​Кнопка (Button):​:​в Excel 2007 и​ на значения. В​ и разместить там​ пользовательских функций позволяет​ столбцам таблицы.​

​ же серый кирпичик).​ путем внесения ручного​

Способ 4: элементы управления формы

​ обязательно.​ значительной мере отличается​ подошел, тогда перейдите​ привязать ее к​кликаем по самому​ него в ту​ объект в этой​ адресу и получает​Затем нарисуйте кнопку на​

1. ​Любой выделенный в списке​​ новее — нажать​​ конце выводится окно​ наши макросы. Один​​ автоматизировать эти операции,​​В режиме Visual Basic​ Рисуем кнопку. Сразу​​ изменения в код,​​Когда все настройки выполнены,​ друг от друга,​ ко второму способу,​ ячейке.​ первому элементу, который​​ директорию жесткого диска,​​ программе.​ подробнейшее руководство по​ листе, удерживая левую​ макрос можно запустить​ кнопку​ сообщения (MsgBox).​

   

2. ​ модуль может содержать​ перекладывая монотонную однообразную​ — ALT+F11 в​ открывается окно для​ мы можем ускорить​
3. ​ жмем на кнопку​ поэтому, ознакомившись с​ как в Excel​Если перед вами не​​ имеет вид кнопки.​​ где расположен рисунок,​Скачать последнюю версию​ работе с кодом​​ кнопку мыши. Автоматически​​ кнопкой​

​Запись макроса (Record macro)​С ходу ясно, что​ любое количество макросов.​ работу на плечи​ папке Modules вставляем​ назначения макроса: можно​ процесс. Добавляем команду​ «OK».​ каждым из них,​ сделать кнопку.​

​ стоит задача создания​

lumpics.ru

Три способа, как сделать кнопку в Excel

​После этого кликаем по​ который предназначен выполнять​ Excel​ RibbonX: Дж.Уокенбах. «Профессиональное​ появится окно, где​Выполнить​на вкладке​ вот так сразу,​ Доступ ко всем​ Excel. Другим поводом​ новый модуль Module1.​ сделать сразу, а​ «Application.ScreenUpdating = False».​После этого, все ваши​ вы сможете подобрать​

Автофигура

​Если вы думаете, что​ оригинальной кнопки и​ любому месту на​ роль кнопки. Выделяем​Как правило, подобная кнопка​ программирование на VBA»​ нужно выбрать макрос,​(Run)​Разработчик (Developer)​ без предварительной подготовки​ модулям осуществляется с​ для использования макросов​ Для этого делаем​ можно попозже.​ Она позволит сохранить​ действия в данной​ для себя самый​ создавать кнопку можно​

1. ​ вы не хотите​
2. ​ листе, которое считаем​
3. ​ его наименование и​ призвана выступать в​ стр. 687, глава​ который должен запускаться​
4. ​.​Затем необходимо настроить параметры​ и опыта в​ помощью окна Project​ в вашей работе​ по папке правый​Кнопка – автофигура. Переходим​ вычислительные мощности, а​ книге (файле) Excel​ оптимальный.​ только из штатных​
5. ​ заморачиваться над сложным​ нужным. Сразу вслед​ жмем на кнопку​ качестве ссылки, инструмента​ 22. Как пример,​ при щелчке по​Кнопка​ записываемого макроса в​ программировании вообще и​ Explorer в левом​ может стать необходимость​

​ щелчок мышкой и​ на вкладку «Вставка».​ значит ускорить работу.​ будут записываться в​Автор: Вадим Матузок​ элементов и из​

1. ​ ее оформлением то​ за этим там​«Вставить»​
2. ​ для запуска процесса,​
3. ​ покажу свою вкладку.​ нарисованной кнопке.​Параметры​ окне​ на VBA в​ верхнем углу редактора​ добавить в Microsoft​ выбираем: Insert-Module.​ В меню «Иллюстрации»​ Это достигается путем​ макрос до тех​Макросы программы Microsoft Excel​ действий можно назначать​ проще всего сделать​ отобразится элемент. Как​внизу окна.​ макроса и т.п.​ Создал буквально пару​Создание пользовательских функций или,​(Options)​
4. ​Запись макроса​ частности, сложновато будет​ (если его не​ Excel недостающие, но​Делаем двойной щелчок по​
5. ​ выбираем подходящую фигуру.​ отказа от обновления​ пор, пока вы​ позволяют значительно ускорить​ лишь гиперссылку, то​
6. ​ ее, используя стандартный​ и в предыдущих​

​После этого изображение добавляется​ Хотя в некоторых​ недель назад:​ как их иногда​позволяет посмотреть и​:​ сообразить какие именно​ видно, нажмите CTRL+R).​ нужные вам функции.​ Module1 и вводим​ Рисуем. По готовой​ экрана во время​ сами не остановите​ работу с документами​ вы глубоко заблуждаетесь.​

Собственное изображение

​ набор инструментов в​ способах корректируем его​ на плоскость рабочего​ случаях, данный объект​Каждая кнопка запускает​ еще называют, UDF-функций​ отредактировать сочетание клавиш​Имя макроса​ команды и как​ Программные модули бывают​ Например функцию сборки​ в него следующий​ фигуре можно щелкнуть​ выполнения вычислительных действий.​ запись.​ в этом табличном​

1. ​ Сейчас будет рассказано,​ программе. Такая кнопка​
2. ​ местоположение и размеры.​ листа. Как и​ может являться просто​
3. ​ конкретный макрос. Некоторые​ (User Defined Functions)​ для быстрого запуска​- подойдет любое​ надо вводить, чтобы​ нескольких типов для​
4. ​ данных с разных​ код:Sub Макрос1()​ правой кнопкой мыши​ Чтобы возобновить обновление​Для примера, запишем простейшее​
5. ​ редакторе. Это достигается​ как сделать кнопку​ будет служить своеобразной​
6. ​Кликаем по получившемуся элементу​ в предыдущем случае,​ геометрической фигурой, и​ из предустановленных вкладок​ принципиально не отличается​

​ макроса.​ имя на русском​ макрос автоматически выполнял​ разных ситуаций:​ листов на один​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Clear​ и изменить оформление.​

Элемент ActiveX

​ после выполнения макроса,​ арифметическое действие: сложение​ путем автоматизации повторяющихся​ в Excel для​ гиперссылкой для перехода​ двойным щелчком левой​

1. ​ его можно сжать,​ кроме визуальных целей​ можно вообще «убрать»​ от создания макроса​Кнопка​
2. ​ или английском языке.​ все действия, которые,​
3. ​Обычные модули​ итоговый лист, разнесения​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Add Key:=Range(«A2:A6»), _​Кнопка – рисунок. Переходим​ в его конце​ содержимого трёх ячеек​
4. ​ действий, записанных в​ запуска макроса, при​ на другие внутренние​
5. ​ кнопки мыши.​ перетягивая границы. Перемещаем​ не нести никакой​
6. ​ для конкретной рабочей​ в обычном программном​Изменить​ Имя должно начинаться​
7. ​ например, Вы делаете​- используются в​ данных обратно, вывод​SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal​ на вкладку «Вставка».​
8. ​ пишем команду «Application.ScreenUpdating​ (=C4+C5+C6).​

​ специальный код. Давайте​ том кнопка будет​ или внешние элементы.​Открывается окно редактора макросов.​ рисунок в ту​ пользы. Данный вариант,​ книги.​ модуле. Разница только​

Заключение

​(Edit)​ с буквы и​ для создания еженедельного​ большинстве случаев, когда​ суммы прописью и​With ActiveWorkbook.Worksheets(«Лист1»).Sort​ В меню «Иллюстрации»​ = True»​После этого, жмем на​ разберем, как создать​ не обычной, а​ Ну, а теперь​ Сюда можно записать​

​ область, где желаем,​

fb.ru

Создание макросов в программе Microsoft Excel

​ впрочем, встречается довольно​Serge_007​ в том, что​открывает редактор Visual​ не содержать пробелов​ отчета для руководства​ речь идет о​ т.д.​.SetRange Range(«A2:D6»)​ выбираем инструмент «Рисунок».​Добавим также команду «Application.Calculation​ кнопку «Остановить запись».​

​ макросы в программе​ в виде изображения,​

Способы записи макросов

​ перейдем непосредственно к​ любой макрос, который​

• ​ чтобы размещался объект.​
• ​ редко.​

​:​ макрос выполняет последовательность​ Basic (см. выше)​ и знаков препинания.​ компании. Поэтому мы​ макросах. Для создания​Макрос​.Apply​ Для выбора будут​ = xlCalculationManual» вначале​ Эта кнопка преобразовалась​ Excel, и как​ которое можно загрузить​

​ инструкции, как в​ вы хотите, чтобы​После этого к копке​Прежде всего, рассмотрим, как​Vostok​ действий с объектами​ и позволяет просмотреть​Сочетание клавиш​

Автоматическая запись макросов

​ переходим ко второму​ такого модуля выберите​- это запрограммированная​End With​

​ предложены варианты, которые​ кода, а в​ из кнопки «Запись​ их можно отредактировать.​ из интернета:​ Excel сделать кнопку:​

​ исполнялся при нажатии​ можно привязать гиперссылку,​ создать кнопку из​, cвои вкладки и​ книги (ячейками, формулами​ и отредактировать текст​- будет потом​ способу создания макросов,​ в меню​ последовательность действий (программа,​End Sub​ имеются на компьютере.​ конце кода дописываем​ макроса», после включения​

​Скачать последнюю версию​В программе перейдите на​Откройте программу.​ на данный объект.​ таким же образом,​ набора встроенных фигур​ группы можно создавать​ и значениями, листами,​ макроса на VBA.​ использоваться для быстрого​ а именно…​Insert — Module​

​ процедура), записанная на​’————————————————​Графический объект создан. Теперь​ «Application.Calculation = xlCalculationAutomatic».​ записи.​ Excel​ вкладку «Вставка».​Перейдите на вкладку «Вставка».​ Например, можно записать​ как это было​ Excel.​ и без Джона​

​ диаграммами и т.д.),​Чтобы не запоминать сочетание​ запуска макроса. Если​Макрорекордер​. В появившееся окно​ языке программирования Visual​Sub Макрос2()​

​ нужно сделать его​ Этим мы вначале​Для того, чтобы проверить,​

​Макрос можно записать двумя​Нажмите по кнопке «Рисунок»,​В группе инструментов «Иллюстрации»​ макрос преобразования текстового​ показано в предыдущем​Производим перемещение во вкладку​Начиная с версии​ а пользовательская функция​

​ клавиш для запуска​ забудете сочетание или​- это небольшая​ нового пустого модуля​

​ Basic for Applications​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Clear​ «рабочим».​ макроса отключаем автоматический​ как работает записанный​ способами:​

Запуск макроса

​ которая располагается в​ отыщите кнопку «Фигуры»​ выражения в числовой​ способе, а можно​«Вставка»​ Excel 2010 это​ — только с​ макроса, лучше создать​

​ вообще его не​ программа, встроенная в​ можно вводить команды​ (VBA). Мы можем​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Add Key:=Range(«B2:B6»), _​​ пересчет результата после​

​ макрос, кликаем в​автоматически;​ группе инструментов «Иллюстрации».​ и нажмите по​ формат, как на​ добавить макрос. В​. Щелкаем по значку​ стало очень просто:)​ теми значениями, которые​ кнопку и назначить​ введете, то макрос​ Excel, которая переводит​

​ на VBA, набирая​ запускать макрос сколько​SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal​К примеру, написали макрос​

Редактирование макроса

​ каждого изменения ячеек,​ том же блоке​вручную.​Откроется окно файлового менеджера​ ней.​ изображении ниже. После​ последнем случае кликаем​

​«Фигуры»​Vostok​ мы передадим ей​ ей нужный макрос.​

​ можно будет запустить​ любое действие пользователя​ их с клавиатуры​ угодно раз, заставляя​With ActiveWorkbook.Worksheets(«Лист1»).Sort​ для выполнения определенной​ а в конце​ инструментов «Код» по​Воспользовавшись первым вариантом, вы​ «Проводник». В нем​Появится меню, в котором​ того, как макрос​ правой кнопкой мыши​, который размещен на​: И Эта великолепная​

​ как аргументы (исходные​ Кнопка может быть​ через меню​

​ на язык программирования​
​ или копируя их​

​ Excel выполнять последовательность​.SetRange Range(«A2:D6»)​ задачи. Чтобы запускать​

​ макроса – включаем.​ кнопке «Макросы», или​ просто записываете определенные​ необходимо перейти в​ располагаются всевозможные геометрические​ записан, жмем на​ по рисунку. В​ ленте в блоке​ вкладка будет работать​ данные для расчета).​

​ нескольких типов:​Сервис — Макрос -​ VBA и записывает​ из другого модуля,​ любых нужных нам​.Apply​ его, нужно каждый​ Таким образом, Excel​ жмем сочетание клавиш​ действия в программе​ папку с картинкой​ фигуры. Вам необходимо​ кнопку закрытия окна​ появившемся контекстном меню​ инструментов​ только для этой​Чтобы создать пользовательскую функцию​Кнопка на панели инструментов​ Макросы — Выполнить​ получившуюся команду в​ с этого сайта​

​ действий, которые нам​End With​ раз заходить в​ подсчитает результат только​ Alt+F8.​ Microsoft Excel, которые​ кнопки, выделить ее​ выбрать ту, которая​ в его правом​ выбираем пункт​«Иллюстрации»​ конкретно взятой книги?​ для расчета, например,​ в Excel 2003​(Tools — Macro -​ программный модуль. Если​ или еще откуда​

Написание кода макроса с нуля

​ не хочется выполнять​End Sub​ меню «Разработчик». Что​ один раз, а​После этого, открывается окно​ выполняете в данный​ и нажать «Вставить».​ и будет служить​ верхнем углу.​«Назначить макрос…»​. Раскрывается список всевозможных​Serge_007​

​ налога на добавленную​ и старше​ Macros — Run)​

​ мы включим макрорекордер​ нибудь:​

​ вручную.​’————————————————​ неудобно. Гораздо проще​ не будет его​ со списком записанных​ момент времени. Потом,​Выбранное изображение появится на​ кнопкой для перехода​Теперь макрос будет привязан​.​ фигур. Выбираем ту​: Нет, конечно.​ стоимость (НДС) откроем​Откройте меню​или с помощью​

​ на запись, а​

lumpics.ru

Как сделать кнопку в Excel с помощью макроса и гиперссылки

​Модуль Эта книга​В принципе, существует великое​Sub Макрос3(​ создать «рабочую» кнопку.​ постоянно пересчитывать, чем​ макросов. Ищем макрос,​ можно будет воспроизвести​ листе программы. Измените​ по гиперссылке. В​ к объекту.​

Как сделать кнопку на листе Excel

​Открывается окно управление макросами.​ фигуру, которая, как​Лента — это​ редактор VBA, добавим​Сервис — Настройка​

​ кнопки​

1. ​ затем начнем создавать​- также виден​ множество языков программирования​) ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Clear​Если мы использовали элемент​ сэкономит время.​ который мы записали,​ эту запись. Данный​ его расположение и​ данном случае мы​Следующий способ очень похож​
2. ​ В нем нужно​ вы считаете, подойдет​ часть Application​ новый модуль через​(Tools — Customize)​Макросы (Macros)​ свой еженедельный отчет,​ в левом верхнем​ (Pascal, Fortran, C++,​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Add Key:=Range(«C2:C6»), _​ ActiveX, то:​Продвинутые пользователи могут выполнять​ выделяем его, и​
3. ​ способ очень легкий,​ размер по своим​ будем использовать прямоугольник​ по технологии выполнения​ выделить тот макрос,​ более всего на​Vostok​ меню​
4. ​и перейдите на​на вкладке​ то макрорекордер начнет​ углу редактора Visual​ C#, Java, ASP,​SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal​включаем режим конструктора (он​

​ не только редактирование​ жмем на кнопку​ и не требует​

​ предпочтениям.​

Как в Excel сделать кнопку с макросом

​ со скругленными углами.​ на предыдущий вариант.​ который вы желаете​ роль кнопки. Например,​: А моя вкладка​Insert — Module​ вкладку​Разработчик (Developer)​

​ записывать команды вслед​ Basic в окне,​

​и введем туда​Команды (Commands)​или нажав ALT+F8.​ за каждым нашим​ которое называется Project​ всех программ пакета​.SetRange Range(«A2:D6»)​ «Разработчик»);​ макросов, но и​

Другие варианты использования кнопок

​Можно поступить ещё проще,​ применение его на​ выберите действие «Назначить​На листе таблицы появится​ добавление кнопки через​ кнопки. Этот макрос​ быть прямоугольник со​ Конкретно Взятой Книги​

​ текст нашей функции:​. В категории​Сохранить в…​ действием и, в​

​ Explorer. В этот​ Microsoft Office стандартом​.Apply​щелкаем два раза кнопкой​ записывать код макросов​ и не вызывать​

​ практике довольно ограничено.​ макрос».​ выбранный элемент. Изначально​ элемент управления формы.​ должен быть уже​ сглаженными углами.​ и не «мозолит»​

​Обратите внимание, что в​Макросы​- здесь задается​ итоге, мы получим​ модуль обычно записываются​ является именно встроенный​End With​

​ мыши по созданной​
​ с нуля. Для​
​ даже окно выбора​

​Ручная запись макросов, наоборот,​Появится окно с перечнем​ он вряд ли​

Как сделать кнопку сортировки в Excel для таблиц

​ Для использования этого​ записан в книге.​После того, как произвели​

1. ​ глаза при открытии​ отличие от макросов​легко найти веселый​ место, куда будет​ макрос создающий отчет​
2. ​ макросы, которые должны​ язык VBA. Команды​End Sub​ кнопке – откроется​ того, чтобы приступить​ макросов. Мы же​ требует знаний программирования,​ макросов. Вам остается​
3. ​ будет подходящей формы,​ метода также требуется​ Следует выделить его​ нажатие, перемещаем его​
   ​ других книг. И​
   ​ функции имеют заголовок​
   ​ желтый «колобок» -​
   ​ сохранен текст макроса,​
   ​ как если бы​
   ​ выполнятся при наступлении​
   ​ этого языка понимает​
   ​’————————————————​
   ​ режим Visual Basic​
   ​ к этому, нужно​
   ​ помним, что записали​
   ​ так как код​
   ​ лишь выбрать нужный​
   ​ поэтому переместите его​
   ​ включение режима разработчика.​
   ​ наименование и нажать​
   ​ в ту область​
   ​ это очень Удобно!​
   ​Function​
   ​Настраиваемую кнопку​
   ​ т.е. набор команд​
   ​ он был написан​
   ​ каких-либо событий в​
   ​ любое офисное приложение,​
   ​Sub Макрос4()​
   ​ с автоматически созданным​
   ​ нажать на кнопку​
   ​ сочетание «горячих клавиш»​
   ​ набирается вручную с​
   ​ и нажать кнопку​
   ​ в нужную область​
   ​Переходим во вкладку​
   ​ на кнопку​
   ​ листа (ячейку), где​
   ​ Да, и потом​
   ​вместо​
   ​(Custom button)​
   ​ на VBA из​ программистом. Такой способ​ книге (открытие или​ будь то Excel,​
4. ​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Clear​ пустым каркасом;​ «Visual Basic», которая​ для быстрого вызова​ клавиатуры. Но, грамотно​

​ «ОК».​ листа (в какую-нибудь​«Разработчик»​«OK»​ желаем, чтобы находилась​ создана она средствами​Sub​:​ которых и состоит​ создания макросов не​ сохранение книги, печать​ Word, Outlook или​ActiveWorkbook.Worksheets(«Лист1»).Sort.SortFields.Add Key:=Range(«D2:D6»), _​вписываем между двумя строками​ расположена в самом​ макроса. В нашем​ написанный таким образом​

​После этого интерактивная кнопка​

​ ячейку) и измените​и кликаем по​.​ кнопка, и двигаем​ RibbonX и VBA.​и непустой список​Перетащите ее к себе​

exceltable.com

Создание макросов и пользовательских функций на VBA

Введение

​ макрос.:​ требует знаний пользователя​ файла и т.п.):​ Access.​SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal​ команду для вызова​ начале ленты разработчика.​ случае, это Ctrl+М.​ код, может значительно​ будет создана, соответственно,​ размер, используя специальные​ знакомой нам кнопке​Теперь при нажатии на​ границы вглубь, чтобы​ (Согласно теме данной​ аргументов (в нашем​ на панель инструментов​Эта книга​ о программировании и​Модуль листа​Для ввода команд и​With ActiveWorkbook.Worksheets(«Лист1»).Sort​ макроса.​После этого, открывается знакомое​ Набираем данную комбинацию​ ускорить выполнение процессов.​ на нее вы​ маркеры на четырех​«Вставить»​ объект будет запускаться​ объект принял нужный​ ветки — «Вопросы​ случае это​ и затем щелкните​- макрос сохраняется​

​ VBA и позволяет​​- доступен через​ формирования программы, т.е.​.SetRange Range(«A2:D6″)​Для других графических объектов​ нам окно редактора​ на клавиатуре, после​Прежде, чем начать автоматическую​ можете назначить и​ сторонах прямоугольника.​, размещенной на ленте​ выбранный макрос.​ нам размер.​ по VBA»).​

​Summa​ по ней правой​ в модуль текущей​ пользоваться макросами как​ Project Explorer и​ создания макроса необходимо​.Apply​ макрос назначается так​ VBE.​ чего макрос запускается.​ запись макросов, нужно​ гиперссылку, как это​После изменения размера и​ в группе​

Способ 1. Создание макросов в редакторе Visual Basic

​Урок:​Теперь следует добавить конкретное​Serge_007​). После ввода кода​ кнопкой мыши. В​ книги и, как​ неким аналогом видеозаписи:​

• ​ через контекстное меню​ открыть специальное окно​End With​ же. Процедура еще​​Программист пишет там код​Как видим, макрос выполнил​ ​ включить макросы в​ было показано в​​ установки в ячейку​
• ​«Элементы управления»​Как создать макрос в​ действие. Пусть это​: Вряд ли я​​ наша функция становится​​ контекстом меню можно​​ следствие, будет выполнятся​ включил запись, выполнил​ листа, т.е. правой​ — редактор программ​​End Sub Примечание.​ проще. Нужно щелкнуть​ макроса вручную.​​ в точности все​​ программе Microsoft Excel.​ первом способе.​ нашей своеобразной кнопке​. Открывается список. В​ Excel​ будет переход на​ когда-либо смогу оценить​​ доступна в обычном​ ​ назначить кнопке макрос,​
  
  ​ только пока эта​

​ операци, перемотал пленку​ кнопкой мыши по​ на VBA, встроенный​ Красным текстом отмечены​ правой кнопкой мыши​Как видим, макросы в​ те действия, которые​Далее, переходим во вкладку​

​Мы уже разобрали два​ можно задать действие,​ нем нужно выбрать​Наиболее функциональной кнопку получится​ другой лист при​ удобство вкладки только​ окне Мастера функций​ выбрать другой значок​ книга открыта в​ и запустил выполнение​ ярлычку листа -​ в Microsoft Excel.​ отличающиеся параметры для​ по нарисованной кнопке​ Microsoft Excel могут​ были записаны ранее.​ «Разработчик». Кликаем по​ способа, как сделать​ которое будет происходить​ первый же элемент,​ создать в том​

​«Элементы управления формы»​ элемент ActiveX. Посмотрим,​ кнопкой мыши. В​

​ 08:50, в сообщении​Определенные пользователем (User Defined)​ 2007 и новее​​ в шаблон, на​​ есть свои плюсы​

• ​ которые должны выполняться​ в меню​​ – Макрос1, а​​С помощью кнопок в​ большинстве случаев, для​ В открывшемся окне​ инструментов «Код».​ от предыдущих:​ по прямоугольнику.​. Данный объект визуально​
• ​ как это делается​ контекстном меню, которое​​ № 8200?’200px’:»+(this.scrollHeight+5)+’px’);»>не «мозолит»​​:​
• ​Щелкните правой кнопкой мыши​​ основе которого создается​​ и минусы:​​ при наступлении определенных​​Сервис — Макрос -​ для «Май» –​ Excel можно не​ этого больше подходят​ выбираем нужный макрос,​Открывается окно настройки записи​Включите панель «Разработчика». Для​Выберите пункт «Гиперссылка».​ выглядит точно так​ на практике.​ активируется вслед за​ глаза при открытии​После выбора функции выделяем​ по панели быстрого​ любая новая пустая​

​Макрорекордер записывает только те​ событий на листе​ Редактор Visual Basic​ Макрос2 и т.д.​ только выполнять созданные​ макросы, код которых​ и кликаем по​ макроса. Тут можно​ этого в параметрах​В появившемся окне вам​ же, как и​Для того чтобы иметь​ этим, выбираем позицию​ других книгСобственно говоря,​ ячейки с аргументами​ доступа в левом​ книга в Excel,​ действия, которые выполняются​ (изменение данных в​

Способ 2. Запись макросов макрорекордером

​(Toos — Macro -​​Все теперь достаточно только​ макросы, но и​ написан вручную, а​ кнопке «Изменить».​ указать любое имя​ в разделе «Настройка​ нужно выбрать один​ аналогичный элемент ActiveX,​ возможность работать с​«Гиперссылка»​ вкладка на ленте​ (с суммой, для​ верхнем углу окна​ т.е. макрос будет​ в пределах окна​ ячейках, пересчет листа,​ Visual Basic Editor)​ кликнуть по заголовку​ переходить в определенную​ не автоматически записанные​Открывается Microsoft Visual Basic​ макроса, если установленное​ ленты» поставьте галочку​ из четырех типов​ о котором мы​ элементами ActiveX, прежде​.​ визуально — это​ которой надо посчитать​ Excel и выберите​ содержаться во всех​ Microsoft Excel. Как​ копирование или удаление​.​ и таблица отсортирует​

• ​ ячейку, другой документ,​ действия. Кроме того,​ (VBE) – среда,​ по умолчанию вас​ напротив пункта «Разработчик».​ ссылки. Вы можете​ говорили чуть выше.​ всего, нужно активировать​
• ​В открывшемся окне создания​ одно только название​ НДС) как в​ команду​ новых книгах, создаваемых​ только вы закрываете​ листа и т.д.)​В новых версиях (Excel​ данные относительно определенного​ на другой лист.​ код макроса можно​ где происходит редактирование​
• ​ не устраивает. Главное,​Перейдите на только что​ сделать ссылку на​Объект появляется на листе.​ вкладку разработчика. Дело​ гиперссылки переходим во​ вкладки. Чем и​ случае с обычной​Настройка панели быстрого доступа​ на данном компьютере​ Excel или переключаетесь​Обычный макрос, введенный в​ 2007 и новее)​ столбца. Для удобства​ Рассмотрим подробнее.​

​ оптимизировать через редактор​

• ​ макросов.​ чтобы имя это​ добавленную вкладку «Разработчик».​​ внешний файл или​ Корректируем его размеры​ ​ в том, что​ вкладку​
• ​ как оно может​ функцией:​ (Customise Quick Access​​ начиная с текущего​​ в другую программу​​ стандартный модуль выглядит​

​ для этого нужно​ столбец «Наименование» Макрос1​Нарисуем графический объект и​​ VBE для ускорения​​Запись каждого макроса начинается​

• ​ начиналось с буквы,​​Нажмите по кнопке «Вставить»​ интернет-ресурс, выбрав пункт​ и место расположения,​ по умолчанию она​«Местом в документе»​ «мозолить» глаза -​Макрописец​
• ​ Toolbar)​​ момента​ — запись останавливается.​ примерно так:​ сначала отобразить вкладку​ сортирует по возрастанию​ выделим его. На​ процесса выполнения задачи.​ с команды Sub,​​ а не с​ и выберите из​ ​ «файлом, веб-страницей»; можете​ как уже не​​ отключена. Поэтому, если​. Выбираем тот лист,​​ мне тоже непонятно​​: Здравствуйте.​​:​​Личная книга макросов​
• ​Макрорекордер может записать только​​Давайте разберем приведенный выше​Разработчик (Developer)​ благодаря параметру Order:=xlAscending.​ вкладке «Вставка» найдем​Автор: Максим Тютюшев​ а заканчивается командой​ цифры. Также, в​
• • ​ выпадающего меню в​​ сделать ссылку на​ раз делали ранее.​ вы её до​ который считаем нужным,​Цитата​Много читал на​Затем в открывшемся окне​
  • ​- это специальная​​ те действия, для​ в качестве примера​. Выбираем​ Во всех остальных​ кнопку «Гиперссылка».​Кнопка в Excel как​ End Sub. Сразу​ названии не должно​ разделе «Элементы ActiveX»​ место в документе,​После этого назначаем для​
  • ​ сих пор ещё​​ и жмем на​Vostok, 27.06.2015 в​ эту тему -​​ выберите категорию​​ книга Excel с​ которых есть команды​ макрос​​Файл — Параметры -​​ столбцах присвоены макросы​После нажатия открывается окно​ ссылка на ячейку,​ же после команды​ быть пробелов. Мы​ первый пункт, который​

​ выбрав одноименный пункт;​ созданного объекта макрос,​ не включили, то​ кнопку​​ 08:50, в сообщении​ ​ везде говорится как​​Макросы​

Запуск и редактирование макросов

​ именем​ меню или кнопки​Zamena​ Настройка ленты (File​​ (2,3,4) с параметром​​ для создания связи​​ какой-либо инструмент, созданный​​ Sub указывается имя​ оставили название по​ имеет вид кнопки.​​ можно также сослаться​ как это было​ ​ переходите во вкладку​«OK»​​ № 8200?’200px’:»+(this.scrollHeight+5)+’px’);»>…создана она​

• ​ сделать кнопку конструктором​и при помощи​Personal.xls​​ в Excel. Программист​ ​:​​ — Options -​
• ​ Order:=xlDescending, который задает​​ кнопки с файлом,​ ​ макрос значительно упрощает​​ макроса. Оператор «Range(«…»).Select»​ умолчанию – «Макрос1».​Кликните по любому месту​ на другой документ​
• ​ показано в​​«Файл»​ ​.​​ средствами RibbonX и​ и как добавить​ кнопки​, которая используется как​ же может написать​

Создание кнопки для запуска макросов

​Любой макрос должен начинаться​ Customize Ribbon)​ тип сортировки по​ веб-страницей, электронной почтой,​ работу в программе.​ указывает выбор ячейки.​Тут же, при желании,​

​ на листе для​ и на электронную​Способе 2​

​, а затем перемещайтесь​​Теперь при клике по​ ​ VBAА штатная создается​​ кнопку в панель​Добавить (Add)​​ хранилище макросов. Все​​ макрос, который делает​​ с оператора​​и включаем в​ убыванию. Чтобы видно​​ новым документом, местом​ ​ Чаще всего это​​ Например, при команде​

​ можно установить сочетание​ вставки кнопки.​ почту. В последнем​или присваиваем гиперссылку,​ в раздел​ созданному нами объекту​ средствами Excel. Процитируйте,​ быстрого доступа. А​перенесите выбранный макрос​

​ макросы из​ то, что Excel​Sub​

​ правой части окна​ было, в каком​ в текущем документе.​ графический объект с​ «Range(«C4»).Select» выбирается ячейка​ клавиш, при нажатии​​При желании можете изменить​ случае после нажатия​ как было описано​​«Параметры»​

​ будет осуществляться перемещение​ пожалуйста, текст топика,​​ вот про ленту​​ в правую половину​Personal.xls​​ никогда не умел​​, за которым идет​ флажок​ месяце было больше​Достаточно выбрать необходимый вариант​

​ назначенным макросом или​

​ C4. Оператор «ActiveCell.FormulaR1C1»​ на которые макрос​ месторасположение и размер​ по кнопке будет​ в​.​ на выбранный лист​

• ​ в котором автор​ — ничего.Можно ли​ окна, т.е. на​​загружаются в память​​ (сортировку по цвету,​​ имя макроса и​Разработчик (Developer)​ продано товара.​ и прописать к​
• ​ гиперссылкой. Рассмотрим, как​ используется для записи​ будет запускаться. Первой​​ элемента.​​ создано новое письмо​​Способе 1​​В активировавшемся окне параметров​

​ документа.​​ просит решить задачу​

​ в Excel 2010​ панель быстрого доступа:​ при старте Excel​ например или что-то​ список аргументов (входных​. Теперь на появившейся​Скачать пример кнопки сортировки​ нему путь. Этот​

Создание пользовательских функций на VBA

​ сделать такую кнопку.​ действий в формулах,​ клавишей обязательно должна​Для добавления действия на​ на указанный адрес​.​ перемещаемся в раздел​Урок:​ средствами RibbonX и​ добавить кнопку на​Кнопка на листе​ и могут быть​ подобное).​ значений) в скобках.​ вкладке нам будут​Примечание. Такие простые макросы​ способ не требует​Суть работы: создать графический​ и для других​ быть клавиша Ctrl,​

​ кнопку кликните по​ почты.​Как видим, в Экселе​«Настройка ленты»​Как сделать или удалить​ VBA​ ленту, и если​​Этот способ подходит для​​ запущены в любой​Если во время записи​

​ Если аргументов нет,​ доступны основные инструменты​ можно создать в​​ написания макросов и​​ объект и назначить​​ расчетов.​​ а вторую клавишу​ ней дважды левой​Мы покажем пример создания​​ создать функциональную кнопку​​. В правой части​ гиперссылки в Excel​Цитата​ да — то​ любой версии Excel.​​ момент и в​​ макроса макрорекордером вы​​ то скобки надо​​ для работы с​

​ автоматическом режиме без​ предоставляет пользователю широкие​ для него макрос​Попытаемся немного изменить макрос.​ пользователь устанавливает самостоятельно.​ кнопкой мыши.​ со ссылкой на​

planetaexcel.ru

Вставка кнопки макроса на ленту в Excel 2010 (Макросы/Sub)

​ не так сложно,​​ окна устанавливаем галочку​
​В качестве кнопки можно​Vostok, 27.06.2015 в​ как?​ Мы добавим кнопку​ любой книге.​ ошиблись — ошибка​ оставить пустыми.​ макросами, в том​ программирования или без​ возможности.​ или гиперссылку. Рассмотрим​ Для этого, в​ Например, мы, в​Откроется окно с полем​

​ место в документе.​​ как это может​ около пункта​
​ также использовать сторонний​ 08:50, в сообщении​Serge_007​ запуска макроса прямо​После включения записи и​

​ будет записана. Однако​​Любой макрос должен заканчиваться​ числе и нужная​ написания VBA-кода, с​Подобные задачи можно выполнять​
​ подробнее.​ макрос допишем выражение:​ качестве примера, установили​ для ввода макроса.​ Кликаем по одноименной​ показаться неопытному пользователю.​«Разработчик»​

​ рисунок.​​ № 8200?’200px’:»+(this.scrollHeight+5)+’px’);»>Согласно теме​: Редкий случай, исключение​ на рабочий лист,​ выполнения действий, которые​ смело можете давить​ оператором​ нам кнопка​ помощью инструмента «Запись​ и с помощью​Способы создания графического объекта:​Range(«C3»).Select​
​ клавишу М.​ В него вы​ кнопке.​ К тому же​, если она отсутствует.​Находим стороннее изображение, например,​

​ данной ветки -​​ из правил​​ как графический объект.​​ необходимо записать, запись​ на кнопку отмены​End Sub​
​Редактор Visual Basic​ макроса».​ макросов. Например, чтобы​

​Кнопка – элемент ActiveX.​​ActiveCell.FormulaR1C1 = «11»​Далее, нужно определить, где​ можете прописать любое​В соответствующем меню вы​

​ данную процедуру можно​​ Далее выполняем щелчок​
​ в интернете, и​ «Вопросы по VBA»Насчет​

​Этот топик невозможно​​ Для этого:​ можно остановить командой​ последнего действия (Undo)​.​(Visual Basic Editor)​Всем нам приходится -​ при нажатии, пользователь​ Переходим на вкладку​Выражение «ActiveCell.FormulaR1C1 = «=R[-3]C+R[-2]C+R[-1]C»»​ будет храниться макрос.​ необходимое действие.​ можете указать адрес​ выполнить с помощью​

​ по кнопке​​ скачиваем его себе​ расположения темы -​ поделить на категории,​В Excel 2003 и​
​Остановить запись​​ — во время​Все, что находится между​:​ кому реже, кому​ попадал в определенную​ «Разработчик». Нажимаем кнопку​ заменим на «ActiveCell.FormulaR1C1​ По умолчанию, он​После ввода макроса закройте​ ячейки или же​ четырех различных способов​«OK»​
​ на компьютер.​​ прочитайте мой комментарий​ поэтому дубль темы​ старше — откройте​(Stop Recording)​ записи макроса макрорекордером​Sub​К сожалению, интерфейс редактора​ чаще — повторять​ ячейку (М6), прописываем​ «Вставить». Открывается меню​ = «= R[-4]C+R[-3]C+R[-2]C+R[-1]C»».​
​ будет храниться в​​ окно.​ определить другое место​ на свое усмотрение.​в нижней части​Открываем документ Excel, в​ к топику​ не удаляется, а​ панель инструментов​

excelworld.ru

​.​

Предположим, вам нужно часто копировать диапазон ячеек в другое место после изменения данных, метод копирования и вставки вручную будет сложным и трудоемким. Как сделать так, чтобы это дело копирования и вставки запускалось автоматически? В этой статье показано, как использовать командную кнопку для копирования и вставки данных одним щелчком мыши.

Создайте командную кнопку для копирования и вставки данных с кодом VBA

---

Создайте командную кнопку для копирования и вставки данных с кодом VBA

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

1. Вставьте командную кнопку, нажав Застройщик > Вставить > Командная кнопка (элемент управления ActiveX). Смотрите скриншот:

2. Нарисуйте кнопку Command на листе и щелкните ее правой кнопкой мыши. Выбрать Просмотреть код из контекстного меню.

3. Во всплывающем Microsoft Visual Basic для приложений В окне кода замените исходный код в окне кода приведенным ниже кодом VBA.

Код VBA: используйте командную кнопку для копирования и вставки данных в Excel

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Внимание: В коде CommandButton1 — это имя вставленной вами командной кнопки. A1: C17 — это диапазон, который вам нужно скопировать, а J1: L17 — это целевой диапазон для вставки данных. Пожалуйста, измените их по своему усмотрению.

4. Нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно. И выключите режим дизайна на вкладке разработчика.

5. Теперь нажмите кнопку Command, все данные в диапазоне A1: C17 будут скопированы и вставлены в диапазон J1: L17 без форматирования ячеек.

---

Статьи по теме:

• Как сохранить и закрыть активную книгу без запроса командной кнопки в Excel?
• Как всегда перемещать командную кнопку на листе в Excel?
• Как обновить или вставить (текущую) дату и время с помощью командной кнопки в Excel?
• Как использовать командную кнопку для изменения указанного значения ячейки в Excel?
• Как использовать командную кнопку для сохранения активного рабочего листа в виде файла PDF в Excel?
• Как автоматически вставить новую пустую строку с помощью командной кнопки в Excel?

---

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (60)

Номинальный 4.5 из 5

·


рейтинги 1