☰

Как вставить кнопку в MS Excel?

tag-icon • tag-icon microsoft-excel-2010 worksheet-function vba
Как вставить кнопку в MS Excel?

Друзья, я использую MS Excel 2010 и хочу вставить кнопку в таблицу Excel с именем «1 ADDER», и я хочу, чтобы всякий раз, когда я нажимаю эту кнопку, она вставляла 1 в ячейку столбца A, передняя ячейка которого была выбрана ранее. Например, если выбрана ячейка D8 и я нажимаю эту кнопку, то она должна вставить 1 в ячейку A8. Аналогично, если выбрана ячейка Q12 и я нажимаю эту кнопку, то она должна вставить 1 в ячейку A12. Я посмотрел в меню разработчика в Excel, чтобы сделать то же самое. Есть кнопка вставки, которая позволяет вставлять кнопки, флажки, поля со списком и другие вещи, но я не знаю, как ими пользоваться... поэтому, пожалуйста, помогите...

решение1

Поместите эти две подпрограммы в стандартный модуль и запуститеMakeButton

Sub MakeButton()
    ActiveSheet.Shapes.AddShape(msoShapeOval, 228#, 557.25, 126.1, 126.1).Select
    With Selection
        .Characters.Text = "1 ADDER"
        .ShapeRange.Fill.Visible = msoTrue
        .ShapeRange.Fill.ForeColor.SchemeColor = 3
        .ShapeRange.Line.Visible = msoTrue
        .ShapeRange.Line.ForeColor.SchemeColor = 3
        .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
        .Name = "MyButton"
        .OnAction = "whatever"
        .Top = Range("C3").Top
        .Left = Range("C3").Left
     End With
End Sub

Sub whatever()
    Cells(ActiveCell.Row, 1).Value = 1
End Sub

Чтобы сделатьИмякнопки1 СУММИРУЮЩИЙ, просто обновите строку с помощьюМояКнопка

Связанный контент