|
▼Hirofumi さん:
ありがとうございます。当初の目的はおかげさまでできそうです。
ただ、今後のためにおしえてください。
エクセルでオートSUM「Σ」ボタンをクリックして、自動的に
範囲を決めるようなものはどうしたらよいでしょうか?
エクセルでは
A B C
1 =sum(B1:C1)
2 2
3 3
4 □
エクセルでは□でオートSUM「Σ」をクリックするとA1は数式なので
自動的に「=sum(A2:A3)」をひろってくるはずです。
このようなものをマクロで実施するには・・・
Hirofumi さんのコードをつくり変えればできるかな?
と思ってみたのですが、途中でわからなくなってしまいました
もしよかったら教えてください。
Option Explicit
Public Sub Sample()
Dim i As Long
Dim lngTop As Long
'操作するシートを指定
With ActiveSheet
'データ先頭行位置を指定
i = ActiveCell.Row ’変更
'先頭行位置を保存
lngTop = i
'現在のセルより上のデータが数字でなくなるまで繰り返し
i = i - 1
Do Until .Cells(i, "A").Value = "" ’←ここをどう変更すれば?
'もし、現在の値が数字でなくなったら
If Not IsNumeric.Cells(i, "A").Value Then '???
'数式を出力
.Cells(i, "A").Formula _
= "=Sum(A" & i & ":A" & (lngTop - 1) & ")"
End If
'操作行を更新
i = i - 1
Loop
End With
End Sub
|
|