excel2010 ボタンの配置について

最近の書き込み件数：今日 0件、昨日 0件
未読分：3件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#3 2014年12月16日(火)16時32分
From: VBAマスター

返事削除変更

一例です。検証してみて下さい。

Sub Macro()
Dim i As Integer
For i = 1 To Worksheets.Count
With Worksheets(i).Buttons.Add(Worksheets(i).Range("B39:B40").Left, _
Worksheets(i).Range("B39:B40").Top, _
Worksheets(i).Range("B39:B40").Width, _
Worksheets(i).Range("B39:B40").Height)
.Text = "集計"
.Name = "ボタン"
End With
Next
End Sub

Message#2 2014年12月16日(火)11時46分
From: 賃上げ賛成

返事削除変更

簡単にするならFor～Nextステートメントで12回ループ処理を行えばいいんではないでしょうか？

以下は簡単なサンプルコードですので、ご希望にあった内容にVBAをカスタマイズしたらよいかと思います。

Sub Macro1()

For i=1 to 12

With Worksheets(i).Buttons.Add(Worksheets(i).Cells(39, 2).Left, _
Worksheets(i).Cells(39, 2).Top, _
Worksheets(i).Cells(39, 2).Width, _
Worksheets(i).Cells(39, 2).Height)

.Text = "集計"
.Name = "ボタン"

End With

For next i
End Sub

Message#1 2014年12月16日(火)11時41分
From: VBA安部

返事削除変更

excel2010 ボタンの配置について

シートにボタンをVBAで配置したく思います

以下コードになります

Sub Macro1()
With Worksheets(1).Buttons.Add(Worksheets(1).Cells(39, 2).Left, _
Worksheets(1).Cells(39, 2).Top, _
Worksheets(1).Cells(39, 2).Width, _
Worksheets(1).Cells(39, 2).Height)

.Text = "集計"
.Name = "ボタン"

End With
End Sub

シートが12枚あり、上記ですと全てのシートに対して実行できませんので、
全てのシートに対して行うにはどのようにすれば良いでしょうか？

また、上記ですとB39セルのみに対して、ボタンを配置してしまっており
B39とB40セルを選択して、ボタンを配置するにはどのようにすれば良いでしょうか？

ご教授下さい