☰

如何在 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 個加法器，只需更新該行我的按鈕

相關內容