Как изменить название кнопки в макросе 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.

Юрий М Модератор Сообщений: 60584 Регистрация: 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

Юрий М

Модератор

Сообщений: 60584
Регистрация: 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}

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

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

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

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

Источник

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

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

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

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

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

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

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

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

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

Источник

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

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

Ответить

Источник

5 / 5 / 1

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

Сообщений: 238

06.06.2013, 08:08. Показов 5896. Ответов 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

Источник

В этой статье говорится о динамическом изменении имени кнопки Command с изменением указанного значения ячейки. Например, если значение в ячейке A1 было изменено на «тест», имя определенной кнопки Command будет автоматически изменено на «тест».

Сделать имя командной кнопки динамическим со значением ячейки по коду VBA

Сделать имя командной кнопки динамическим со значением ячейки по коду VBA

Следующий код VBA может помочь вам сделать имя командной кнопки динамическим с указанным значением ячейки на листе. Пожалуйста, сделайте следующее.

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

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

3. В дебюте Microsoft Visual Basic для приложений окна, скопируйте и вставьте ниже код VBA в окно.

Код VBA: сделать имя командной кнопки динамическим со значением ячейки

Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xShapeRg As ShapeRange
    On Error Resume Next
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        Me.CommandButton1.Caption = Target.Text
        Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
        If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
        Application.EnableEvents = False
        xShapeRg.Select
        Application.EnableEvents = True
        Selection.Name = Target.Text
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
        xStr = Target.Text
    End If
End Sub


Note: in the code, CommandButton1 is the name of the button you want to make its name dynamic, and A1 is the cell which you will reference the value to the button name automatically.
4. Press the Alt + Q keys to exit the Microsoft Visual Basic for Applications window.
5. Turn off the Design Mode by clicking Developer > Design Mode.
From now on, the name of the Command Button will be changed dynamically with the specified cell value in your worksheet.
As below screenshot shown, when the value of cell A1 has been changed, the name of the command button will be changed to the same value automatically.


 Related Articles:

How to use Command Button to save active worksheet as PDF file in Excel?
How to insert a blank new row automatically by Command Button in Excel?




The Best Office Productivity Tools
Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails…
Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range…
Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns… Prevent Duplicate Cells; Compare Ranges…
Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select…
Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more…
Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments…
Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic…
Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF…
More than 300 powerful features. Supports Office / Excel 2007-2021 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Read More… Free Download… Purchase…

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
Open and create multiple documents in new tabs of the same window, rather than in new windows.
Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

Read More… Free Download… Purchase…





Comments (2)
			



				No ratings yet. Be the first to rate!

Источник

Сделать имя командной кнопки динамическим со значением ячейки по коду VBA

Related Articles:

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

А вот еще интересные статьи: