Вот идея. Как насчет создания только 2 кнопок (вместо сотен) и заставить их двигаться, чтобы следовать за выбором?
РЕДАКТИРОВАТЬ: После некоторого обсуждения и разъяснения, OP Phil попросил, чтобы кнопки обновления инвентаря отображались рядом с выбранной ячейкой, когда пользователь щелкает в столбце F, и были скрыты в противном случае.
На видео ниже показано, как работают кнопки tagalong:
На рабочем листе есть простой макрос, который отображает и перемещает кнопки:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then
ActiveSheet.Shapes("Picture 1").Visible = True
ActiveSheet.Shapes("Picture 2").Visible = True
With ActiveSheet.Shapes("Picture 1")
.Left = Target.Offset(, 2).Left
.Top = Target.Offset(0).Top
End With
With ActiveSheet.Shapes("Picture 2")
.Left = Target.Offset(, 3).Left
.Top = Target.Offset(0).Top
End With
Else
ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 2").Visible = False
End If
End Sub
Я не мог изменить цвет обычных командных кнопок Excel, поэтому я вставил картинки и назначил макросы объектам рисунков. Вот почему они упоминаются как Shapes("Рисунок 1") в коде выше. Если вы используете обычные командные кнопки Excel, ссылка изменится на название кнопки.
Сами кнопки имеют еще более простой код:
Sub Button1_Click()
ActiveCell.Value = ActiveCell.Value + 1
End Sub
Sub Button2_Click()
ActiveCell.Value = ActiveCell.Value - 1
End Sub
Надеюсь, это поможет, и удачи.