Excel VBA質問箱 IV

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

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


2951 / 13644 ツリー ←次へ | 前へ→

【65079】シート間のデータ処理 Saitou 10/4/12(月) 22:00 質問[未読]
【65080】Re:シート間のデータ処理 neptune 10/4/12(月) 23:29 回答[未読]
【65082】シート間のデータ処理 Saitou 10/4/13(火) 21:35 質問[未読]

【65079】シート間のデータ処理
質問  Saitou  - 10/4/12(月) 22:00 -

引用なし
パスワード
   初めまして。

 既存のシートAがあるとします。シートAのデータを以下のよう処理したいとおもいますが、処理方法はわからなくて、投稿しました。

シートA

識別   商品     数量
A1    あいうえお  10


An
B1


Bn



シートB
識別   商品     数量
A1    あいうえお  10


Ai
B1


Bi



A合計          ΣA1〜Ai
B合計          ΣB1〜Bi



【65080】Re:シート間のデータ処理
回答  neptune  - 10/4/12(月) 23:29 -

引用なし
パスワード
   ▼Saitou さん:
サイトの基本方針を読んでますか?
ht tp://www.vbalab.net/bbspolicy.html

コードを書く気はないですが、説明文の不明点を書いておきます。
・手動でできますか?・・・出来るならマクロの記録という強力ツールがあります。
・シートAとシートBの関係は? BはAを集計したもの?ではなさそうだが。。
・何故、nとiに分かれているのか?
・想像力を働かして、例示しているサンプルデータでサンプルソースを
 書いてくださる方が居られるとして、それを自分で実用化出来るんですか?
 出来なければ後で困りますよ。

【65082】シート間のデータ処理
質問  Saitou  - 10/4/13(火) 21:35 -

引用なし
パスワード
   初めまして。

 既存のシートAがあるとします。シートAのデータを以下のよう処理したいとおもいますが、処理方法はわからなくて、投稿しました。

シートA

識別   商品     数量
A1    あいうえお  10


A7
B1


B14



シートB
識別   商品     数量
A1    あいうえお  10


A7
B1


B14
Aグループ        ΣA1〜A7
Bグループ        ΣB1〜B14

Excelマクロ自動記録を使って、以下のコードを得ました。
A、B、・・・要素の個数が不定数であり、その制御はできないです。

Sub Macro2()
  Range("A1:C22").Select
  Selection.Copy
  Sheets("B").Select
  Cells.Select
  ActiveSheet.Paste
  Range("C23").Select
  Application.CutCopyMode = False
  ActiveCell.FormulaR1C1 = "=SUM(R[-21]C:R[-15]C)"
  Range("C24").Select
  ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-2]C)"
  Range("B23").Select
  ActiveCell.FormulaR1C1 = "Aグループ"
  Range("B24").Select
  ActiveCell.FormulaR1C1 = "Bグループ"
  Range("B25").Select
End Sub

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