Excel VBA質問箱 IV

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

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


8988 / 76732 ←次へ | 前へ→

【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
257 hits

【73306】罫線で囲まれた範囲の合計式を記入したい ブーチー 12/12/19(水) 9:44 質問
【73307】Re:罫線で囲まれた範囲の合計式を記入したい UO3 12/12/19(水) 10:56 発言
【73309】Re:罫線で囲まれた範囲の合計式を記入したい ブーチー 12/12/19(水) 14:41 お礼
【73312】Re:罫線で囲まれた範囲の合計式を記入したい ブーチー 12/12/19(水) 20:36 発言

8988 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free