Как поменять название кнопки в excel - Word и Excel - помощь в работе с программами

spbhope Пользователь Сообщений: 74 Регистрация: 01.01.1970	Здравствуйте, как переименовать Command Button?

spbhope Пользователь Сообщений: 74 Регистрация: 01.01.1970	То есть как переименовать кнопку, которой присвоен макрос?

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	Правой клавишей на кнопке, Объект CommandButton — Edit

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	Или Правой клавишей на кнопке, Исходный текст, и в инспекторе свойств меняем Сaption на нужное.

spbhope Пользователь Сообщений: 74 Регистрация: 01.01.1970	{quote}{login=GIG_ant}{date=19.04.2011 01:19}{thema=}{post}Правой клавишей на кнопке, Объект CommandButton — Edit{/post}{/quote} Не подходит. У меня 2003 excel, не знаю — может в 2007 это есть.

spbhope Пользователь Сообщений: 74 Регистрация: 01.01.1970	{quote}{login=GIG_ant}{date=19.04.2011 01:21}{thema=}{post}Или Правой клавишей на кнопке, Исходный текст, и в инспекторе свойств меняем Сaption на нужное.{/post}{/quote} Правой клавишей надо щелкнуть в редакторе VB или на самом листе?

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	выложите файл с вашей кнопкой, я вам фото пришлю )

spbhope Пользователь Сообщений: 74 Регистрация: 01.01.1970	{quote}{login=GIG_ant}{date=19.04.2011 01:32}{thema=}{post}выложите файл с вашей кнопкой, я вам фото пришлю ){/post}{/quote} да, было бы круто. ну вот пример прикрепил)

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	жмете правую клавишу мыши на вашей кнопке, выпадает меню там опция «Изменить текст» см файл

spbhope Пользователь Сообщений: 74 Регистрация: 01.01.1970	все бы хорошо, но у меня офис 2003.

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	{quote}{login=spbhope}{date=19.04.2011 03:10}{thema=}{post}все бы хорошо, но у меня офис 2003.{/post}{/quote} И что? У меня тоже 2003. Всё меняется.

spbhope Пользователь Сообщений: 74 Регистрация: 01.01.1970	Да, согласен — я просто создал заново кнопку и все получилось. У меня проблемы с кнопками в старом файле. Удалил из него все данные, оставил только кнопку. Попробуйте с ней хоть что-нибудь сделать. файл скинул.

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

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

{quote}{login=spbhope}{date=19.04.2011 03:54}{thema=Re: Re: }{post}Попробуйте с ней хоть что-нибудь сделать{/post}{/quote}
Попробовал — «что-нибудь» делается
P.S. У Вас в двух файлах разные кнопки: одна из панели инструментов «Формы», а другая из «Элементы управления». Для второй необходимо включить «Режим конструктора».

spbhope

Пользователь

Сообщений: 74
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=19.04.2011 04:22}{thema=Re: Re: Re: }{post}{quote}{login=spbhope}{date=19.04.2011 03:54}{thema=Re: Re: }{post}Попробуйте с ней хоть что-нибудь сделать{/post}{/quote}
Попробовал — «что-нибудь» делается
P.S. У Вас в двух файлах разные кнопки: одна из панели инструментов «Формы», а другая из «Элементы управления». Для второй необходимо включить «Режим конструктора».{/post}{/quote}

А как переименовать кнопку из панели инструментов «формы»?

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Включить макрорекордер, переименовать, выключить рекордер и посмотреть код

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Макрорекордер запишет с выделением объекта. Если нужно без выделения, то пробуем такой код: Sheets(«Лист1»).Shapes(«Button 1»).DrawingObject.Characters.Text = «Суперкнопка»

Guest Гость	#18 05.05.2011 14:40:24 Пока не совсем понимаю, но все равно спасибо. Буду разбираться

Источник

Я чувствую себя таким тупицей, но не могу понять, как и где это сделать.

Я вставил командную кнопку в лист, и она пришла с именем по умолчанию «Кнопка 1». Я не могу понять, куда в интерфейсе перейти, чтобы изменить имя кнопки. (Я могу изменить текст метки кнопки, на самом деле меня интересует переименование самой кнопки).

Я пытался нажать «Режим разработки» на ленте разработчика, но, похоже, это не дает мне никаких дополнительных интерфейсов или опций для настройки атрибутов кнопки.

Помогите! (К сведению: с использованием Excel 2010).

Вы можете изменить имя кнопки (как и любого другого объекта / диаграммы), выбрав и введя текст в маленькое поле «Имя» слева от строки формул (подтвердите его, нажав Enter):

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

Выберите режим «Дизайн», щелкните правой кнопкой мыши свойства «Алфавитный» и измените название подписи на желаемое имя.

Вы также можете щелкнуть правой кнопкой мыши командную кнопку, выбрать «объект командной кнопки», а затем выбрать «редактировать»

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

Источник

5 / 5 / 1

Регистрация: 11.02.2013

Сообщений: 238

06.06.2013, 08:08. Показов 5919. Ответов 4

Здравствуйте, уважаемые форумчане. Возник следующий вопрос: создал записью макрос по созданию кнопки на exel-листе, но почему-то в сгенерированном коде никак не отобразлся процесс переименования кнопки. Как в коде это можно сделать?

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

06.06.2013, 11:29

А из форм кнопка не подходит?

Visual Basic

  With ActiveSheet.Buttons.Add(391.5, 121.5, 109.5, 30.75)
    .Name = "Новая"
    .Characters.Text = "Название"
  End With

5 / 5 / 1

Регистрация: 11.02.2013

Сообщений: 238

06.06.2013, 13:29

[ТС]

Я просто с ними никогда не имел дело. Но вроде должна подойти.
Воткнул ее в макрос, запустил, но она почему-то болтается в режиме настроек (то етсь, выделена и ее можно перемещать, но не нажимается). Как подправить? Команду действия писать перед End With?

5 / 5 / 1

Регистрация: 11.02.2013

Сообщений: 238

07.06.2013, 16:37

[ТС]

Еще раз подниму тему. Как в коде переименовать кнопку?

Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

07.06.2013, 16:47

Visual Basic

Sub создать()
    With ActiveSheet.Buttons.Add(391.5, 121.5, 109.5, 30.75)
        .Name = "Новая"
        .Characters.Text = "Название"
    End With
End Sub
 
Sub переименовать()
    ActiveSheet.Buttons("Новая").Name = "Старая"
End Sub

Источник

Переименование кнопки

Shuh

Дата: Воскресенье, 01.02.2015, 11:38 |
Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация:
0
±

Замечаний:
20% ±

Excel 2007

Все привет!!! а как сделать так чтобы название кнопки менялось при изменении текста в ячейке

К сообщению приложен файл:

expl.xlsx
(13.9 Kb)

Ответить

vikttur

Дата: Воскресенье, 01.02.2015, 11:50 |
Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Выделить кнопку, зайти в строку редактирования формулы и записать формулу со ссылкой на нужную ячейку:

Ответить

Shuh

Дата: Воскресенье, 01.02.2015, 11:52 |
Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация:
0
±

Замечаний:
20% ±

Excel 2007

Огромное спасибо!!!!

Ответить

Shuh

Дата: Воскресенье, 01.02.2015, 12:02 |
Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация:
0
±

Замечаний:
20% ±

Excel 2007

а как в макросе это указать, а то все кнопки ручками придется присваивать

Ответить

vikttur

Дата: Воскресенье, 01.02.2015, 12:16 |
Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Откуда код узнает, какой кнопке какая ячейка нравится?

Закладка Разработчик-Запись_макроса. Если нет такой: Вид-Макросы-Запись_макроса.
Запишите свои действия макрорекодером, посмотрите результат.
Посмотреть: Alt+F11 (редактор VBA), в общем модуле

Ответить

Shuh

Дата: Воскресенье, 01.02.2015, 12:21 |
Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация:
0
±

Замечаний:
20% ±

Excel 2007

понял спасибо, и еще к в этот код добавить указание листа в текущей книге
[vba]

Код

Sub Кнопка_17()
Range(«B40»).Select
End Sub

[/vba]
[moder]Оформляйте коды тегами (кнопка #)[/moder]

Сообщение отредактировал Pelena — Воскресенье, 01.02.2015, 12:37

Ответить

vikttur

Дата: Воскресенье, 01.02.2015, 12:23 |
Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Тот же рекодер: в процессе записи перейдите на другой лист.
Для каждой кнопки прописать такой код… Не проще ли один раз пройтись по кнопкам?
Если все-таки нужна автоматизация (и не для одного раза), создайте отдельную тему в ветке форума о VBA, с файлом и описанием задачи.

Сообщение отредактировал vikttur — Воскресенье, 01.02.2015, 12:26

Ответить

Источник

Элемент управления пользовательской формы CommandButton, используемый в VBA Excel для запуска процедур и макросов. Свойства кнопки, примеры кода с ней.

UserForm.CommandButton – это элемент управления пользовательской формы, предназначенный исключительно для запуска процедур и макросов VBA Excel.

Для запуска процедур и макросов обычно используется событие кнопки – Click.

Свойства элемента CommandButton

Свойство	Описание
AutoSize	Автоподбор размера кнопки. True – размер автоматически подстраивается под длину введенной надписи (заголовка). False – размер элемента управления определяется свойствами Width и Height.
BackColor	Цвет элемента управления CommandButton.
Caption	Надпись (заголовок) – текст, отображаемый на кнопке.
ControlTipText	Текст всплывающей подсказки при наведении курсора на кнопку.
Enabled	Возможность взаимодействия пользователя с элементом управления CommandButton. True – взаимодействие включено, False – отключено (цвет надписи становится серым).
Font	Шрифт, начертание и размер текста надписи.
Height	Высота элемента управления.
Left	Расстояние от левого края внутренней границы пользовательской формы до левого края элемента управления.
Picture	Добавление изображения вместо текста заголовка или дополнительно к нему.
PicturePosition	Выравнивание изображения и текста на кнопке.
TabIndex	Определяет позицию элемента управления в очереди на получение фокуса при табуляции, вызываемой нажатием клавиш «Tab», «Enter». Отсчет начинается с 0.
Top	Расстояние от верхнего края внутренней границы пользовательской формы до верхнего края элемента управления.
Visible	Видимость элемента управления CommandButton. True – элемент отображается на пользовательской форме, False – скрыт.
Width	Ширина элемента управления.
WordWrap	Перенос текста заголовка на новую строку при достижении ее границы. True – перенос включен, False – перенос выключен.

В таблице перечислены только основные, часто используемые свойства кнопки. Все доступные свойства отображены в окне Properties элемента управления CommandButton.

Пример кнопки с надписью и изображением

Примеры кода VBA Excel с кнопкой

Изначально для реализации примеров на пользовательскую форму UserForm1 добавлена кнопка CommandButton1.

Пример 1

Изменение цвета и надписи кнопки при наведении на нее курсора.

Условие примера 1

Действия при загрузке формы: замена заголовка формы по умолчанию на «Пример 1», замена надписи кнопки по умолчанию на «Кнопка», запись цвета кнопки по умолчанию в переменную уровня модуля.
Сделать, чтобы при наведении курсора на кнопку, она изменяла цвет на зеленый, а надпись «Кнопка» менялась на надпись «Нажми!»
Добавление кода VBA Excel, который будет при удалении курсора с кнопки возвращать ей первоначальные настройки: цвет по умолчанию и надпись «Кнопка».

Решение примера 1

1. Объявляем в разделе Declarations модуля пользовательской формы (в самом начале модуля, до процедур) переменную myColor:

2. Загружаем пользовательскую форму с заданными параметрами:

Private Sub UserForm_Initialize()

Me.Caption = «Пример 1»

With CommandButton1

myColor = .BackColor

.Caption = «Кнопка»

End With

End Sub

3. Меняем цвет и надпись кнопки при наведении на нее курсора мыши:

Private Sub CommandButton1_MouseMove(ByVal _

Button As Integer, ByVal Shift As Integer, _

ByVal X As Single, ByVal Y As Single)

With CommandButton1

.BackColor = vbGreen

.Caption = «Нажми!»

End With

End Sub

4. Возвращаем цвет и надпись кнопки при удалении с нее курсора мыши:

Private Sub UserForm_MouseMove(ByVal _

Button As Integer, ByVal Shift As Integer, _

ByVal X As Single, ByVal Y As Single)

With CommandButton1

.BackColor = myColor

.Caption = «Кнопка»

End With

End Sub

Все процедуры размещаются в модуле пользовательской формы. Переменная myColor объявляется на уровне модуля, так как она используется в двух процедурах.

Пример 2

Запуск кода, размещенного внутри процедуры обработки события Click элемента управления CommandButton:

Private Sub CommandButton1_Click()

MsgBox «Код внутри обработки события Click»

End Sub

Пример 3

Запуск внешней процедуры из процедуры обработки события Click элемента управления CommandButton.

Внешняя процедура, размещенная в стандартном модуле проекта VBA Excel:

Sub Test()

MsgBox «Запуск внешней процедуры»

End Sub

Вызов внешней процедуры из кода обработки события Click

с ключевым словом Call:

Private Sub CommandButton1_Click()

Call Test

End Sub

без ключевого слова Call:

Private Sub CommandButton1_Click()

Test

End Sub

Строки вызова внешней процедуры с ключевым словом Call и без него – равнозначны. На ключевое слово Call можно ориентироваться как на подсказку, которая указывает на то, что эта строка вызывает внешнюю процедуру.

Источник