Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2953 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   初めまして。

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

シートＡ

識別　　　商品　　　　　数量
A1　　　　あいうえお　　10
・
・
An
B1
・
・
Bn
・
・

シートＢ
識別　　　商品　　　　　数量
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 -
引用なし
パスワード
   初めまして。

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

シートＡ

識別　　　商品　　　　　数量
A1　　　　あいうえお　　10
・
・
A7
B1
・
・
B14
・
・

シートＢ
識別　　　商品　　　　　数量
A1　　　　あいうえお　　10
・
・
A7
B1
・
・
B14
Aグループ　　　　　　　 ΣA1〜A7
Bグループ　　　　　　　 ΣB1〜B14

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

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 = "Ｂグループ"
　　Range("B25").Select
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2953 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free