☰

如何在 MS Excel 中插入按钮？

tag-icon • tag-icon microsoft-excel-2010 worksheet-function vba
如何在 MS Excel 中插入按钮？

朋友们，我正在使用 MS Excel 2010，我想在 Excel 工作表中插入一个按钮，其名称应为“1 ADDER”，我希望每当我按下此按钮时，它都会在之前已选择前一个单元格的 A 列单元格中插入 1。例如，如果选择了单元格 D8，然后我按下此按钮，则它应该在单元格 A8 中插入 1。同样，如果选择了单元格 Q12，然后我按下此按钮，则它应该在单元格 A12 中插入 1。我在 Excel 中的开发人员菜单中查找以执行相同操作。有一个插入按钮，允许插入按钮、复选框、组合框和其他东西，但我不知道如何使用它们……所以请帮忙……

答案1

将这两个子项放入标准模块并运行制作按钮

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 加法器，只需更新以下行我的按钮

相关内容