Excel VBA質問箱 IV

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

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


8993 / 76732 ←次へ | 前へ→

【73307】Re:罫線で囲まれた範囲の合計式を記入したい
発言  UO3  - 12/12/19(水) 10:56 -

引用なし
パスワード
   ▼ブーチー さん:

こんにちは
むしろ、隣の1列すべての下の罫線の上の行に合計式をせっとしたほうが
いいのではと思いますが、要件どおり、選択したセルの左隣から、上の罫線の下のセル範囲だけの
合計式をセットしました。

Sub Sample()
  Dim f As Range
  Dim c As Range
  
  Set f = Selection(1).Offset(, -1)  'Selectionでもいいけど念のため
  Set c = f
  
  Do While c.Borders(xlEdgeTop).LineStyle = xlNone And c.Row > 1
    Set c = c.Offset(-1)
  Loop
  
  f.Offset(, 1).Formula = "=SUM(" & c.Address & ":" & f.Address & ")"
    
End Sub
253 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 発言

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