☰

Wie fügt man eine Schaltfläche in MS Excel ein?

tag-icon • tag-icon microsoft-excel-2010 worksheet-function vba
Wie fügt man eine Schaltfläche in MS Excel ein?

Freunde, ich verwende MS Excel 2010 und möchte eine Schaltfläche in ein Excel-Blatt einfügen, die „1 ADDER“ heißen soll. Ich möchte, dass jedes Mal, wenn ich diese Schaltfläche drücke, eine 1 in die Zelle der Spalte A eingefügt wird, deren vordere Zelle zuvor ausgewählt war. Wenn beispielsweise Zelle D8 ausgewählt ist und ich diese Schaltfläche drücke, soll eine 1 in Zelle A8 eingefügt werden. Wenn Zelle Q12 ausgewählt ist und ich diese Schaltfläche drücke, soll eine 1 in Zelle A12 eingefügt werden. Ich habe im Entwicklermenü in Excel nachgesehen, um dasselbe zu tun. Es gibt eine Einfügen-Schaltfläche, mit der ich Schaltflächen, Kontrollkästchen, Kombinationsfelder und andere Dinge einfügen kann, aber ich weiß nicht, wie ich sie verwenden soll … also bitte helft mir …

Antwort1

Setzen Sie diese beiden Subs in ein Standardmodul und der LaufSchaltfläche "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

Um dieNameder Schaltfläche1 ADDIERUNG, aktualisieren Sie einfach die Zeile mitMeinButton

verwandte Informationen