☰

Como inserir um botão no MS Excel?

tag-icon • tag-icon microsoft-excel-2010 worksheet-function vba
Como inserir um botão no MS Excel?

Amigos estou utilizando o MS Excel 2010 e desejo inserir um botão na planilha Excel cujo nome deve ser '1 ADDER' e quero que sempre que eu pressionar este botão, ele insira 1 na célula da coluna A cuja célula frontal foi selecionada antes. Por exemplo, se a célula nº D8 for selecionada e eu pressionar este botão, ele deverá inserir 1 na célula nº A8. Da mesma forma, se a célula nº Q12 for selecionada e eu pressionar este botão, ele deverá inserir 1 na célula nº A12. Procurei no menu do desenvolvedor no Excel para fazer o mesmo. Existe um botão de inserção que permite inserir botões, caixas de seleção, caixas de combinação e outras coisas, mas não sei como usá-los… então por favor me ajude…

Responder1

Coloque esses dois subs em um módulo padrão e executeCriar botão

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 tornar oNomedo botão1 ADICIONADOR, basta atualizar a linha comMeu botão

informação relacionada