Excel VBA質問箱 IV

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

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


110 / 73902 ←次へ | 前へ→

【79432】シート上で、複数合計をだす
質問  ノンボ E-MAIL  - 17/10/19(木) 20:47 -

引用なし
パスワード
    よろしくお願いします。

 シートに複数の店舗データーがあり、上から(A店、B店・・・)、B列に品目、C列に金額があります。A店舗だけが品目集計してあります。B店、C店にはSUMで、金額合計をだしたいのですが、以前教えていただきました下記コードを書きました。
Sub Test()
   dim rng as range
   dim a as range
   on Error REsume Next
   With range("A30",Activecell.Specialcells(xlLastcell))
   End With
   On Error GOTo 0
   If rng is Nothing Then Exit Sub
   For Each a in Rng Areas
   With a
   .Cells(1).Offset(.Rows.count).value=WorksheetFunction.Sum(.Cells)
   End With
 End sub

 ここで、A店舗の最終行から3行目よりセル範囲を指定したいのですが、任意のせる
("A30")ではなく、変数で行うにはどのようにコードを編集したらよいか、ご教授ください。よろしくお願いします。

40 hits

【79432】シート上で、複数合計をだす ノンボ 17/10/19(木) 20:47 質問[未読]
【79435】Re:シート上で、複数合計をだす γ 17/10/19(木) 22:30 発言[未読]
【79439】Re:シート上で、複数合計をだす ノンボ 17/10/20(金) 8:02 質問[未読]
【79442】Re:シート上で、複数合計をだす γ 17/10/21(土) 12:05 発言[未読]
【79443】Re:シート上で、複数合計をだす ノンボ 17/10/21(土) 18:39 お礼[未読]
【79444】Re:シート上で、複数合計をだす γ 17/10/21(土) 19:03 発言[未読]
【79445】Re:シート上で、複数合計をだす ノンボ 17/10/22(日) 7:39 お礼[未読]
【79446】Re:シート上で、複数合計をだす γ 17/10/22(日) 12:27 発言[未読]
【79447】Re:シート上で、複数合計をだす ノンボ 17/10/22(日) 16:25 お礼[未読]

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