¿Cómo insertar un botón en MS Excel?

Question

Amigos, estoy usando MS Excel 2010 y deseo insertar un botón en la hoja de Excel cuyo nombre debe ser '1 SUMADOR' y quiero que cada vez que presione este botón, se inserte 1 en la celda de la columna A cuya celda frontal fue seleccionada antes. Por ejemplo, si se selecciona la celda no D8 y presiono este botón, debería insertar 1 en la celda no A8. De manera similar, si se selecciona la celda no Q12 y presiono este botón, entonces debería insertar 1 en la celda no A12. Busqué en el menú del desarrollador en Excel para hacer lo mismo. Hay un botón de inserción que permite insertar botones, casillas de verificación, cuadros combinados y otras cosas, pero no sé cómo usarlos... así que, por favor, ayuda...

Answer 1

Coloque estos dos subs en un módulo estándar y ejecuteHacer botón

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

para hacer elNombredel botón1 sumador, simplemente actualice la línea conMi botón