Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8991 / 76735

←次へ　｜　前へ→


	【73312】Re:罫線で囲まれた範囲の合計式を記入したい

ブーチー - 12/12/19(水) 20:36 -


	引用なし

	パスワード

後から分からなくなった時のために、ちょっと修正したコードを載せておきます。

Option Explicit
Sub 罫線がある限り_罫線の間の合計()
　　Dim scell As Range
　　Dim acell As Range
　　Dim c As Range
　　Dim a As Range
　　Dim s As Range
　　Dim i As Integer
　
　Set scell = ActiveCell
　For i = 1 To 100
　　　　If scell.Borders(xlEdgeBottom).LineStyle <> xlNone Then

　　　　　　If scell.Borders(xlEdgeBottom).LineStyle <> xlNone Then
　　　　　　　　Set acell = scell
　　　　　　End If
　　　　　　
　　　　　　Set s = scell
　　　　　　Set c = s
　　　　　　
　　　　　　Do While c.Borders(xlEdgeTop).LineStyle = xlNone And c.Row > 1
　　　　　　　　Set c = c.Offset(-1)
　　　　　　Loop
　　　　　
　　　　　　s.Formula = "=SUM(" & c.Offset(, -1).Address & ":" & s.Offset(, -1).Address & ")"
　　　　　Else
　　　　　　　
　　　　　
　　　　　End If
　　　　　Set scell = scell.Offset(1)
　　　　　'scell.Select
　　Next
End Sub

Sub 罫線の間の合計1() '合計の列に罫線有り
　　Dim s As Range
　　Dim c As Range
　
　　Set s = Selection(1)
　　Set c = s
　　
　　Do While c.Borders(xlEdgeTop).LineStyle = xlNone And c.Row > 1
　　　　Set c = c.Offset(-1)
　　Loop
　
　　s.Formula = "=SUM(" & c.Offset(, -1).Address & ":" & s.Offset(, -1).Address & ")"
　　
End Sub

Sub Sample() '数字の列に罫線有り
　　Dim s As Range
　　Dim c As Range
　
　　Set s = Selection(1)
　　Set c = Selection(1).Offset(, -1)　 'Selectionでもいいけど念のため
　
　　Do While c.Borders(xlEdgeTop).LineStyle = xlNone And c.Row > 1
　　　　Set c = c.Offset(-1)
　　Loop
　
　　s.Formula = "=SUM(" & c.Address & ":" & s.Offset(, -1).Address & ")"
　　
End Sub

1 hits

▼

【73306】罫線で囲まれた範囲の合計式を記入したい ブーチー 12/12/19(水) 9:44