☰

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

これら2つのサブを標準モジュールに入れて実行するとボタンの作成

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 匹のアダー、次の行を更新してくださいマイボタン

関連情報