| |
▼かな さん：
コマンドボタンじゃなくて恐縮ですが・・・
Sub 円楕円1_Click()
Cells(1, 1) = Cells(1, 2) + Cells(2, 2)
Dim a As Long
For a = 1 To Cells(Rows.Count, 2).End(xlUp).Row / 2
If vbYes = MsgBox(a & "回目の処理です。計算を続けますか？", vbYesNo) Then
Cells(1, 1) = Cells(1, 1) + Cells(a + a + 1, 2) + Cells(a + a + 2, 2)
Else
MsgBox "中止します"
Exit For
End If
Next
End Sub
>CommandButtonを押すとVBAで数式を自動追加させるコードを書きたいのですが、
> Cells(1,1) = "=SUM(D1:D2)+SUM(D1:D2)"
>
>このコードに+SUM(D？:D？)をボタンを押すごとに等間隔で追加していきたいのですが
>何か方法はあるでしょうか？
>
>例えば
>「=SUM(D1:D2)+SUM(D3:D4)+SUM(D5:D6)...」のように、
>こんな感じにボタンを押すごとに追加していきたいのです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
