Excel VBA質問箱 IV

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

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


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

【38260】小計を出したいのですが COM 06/5/30(火) 18:03 質問[未読]
【38263】Re:小計を出したいのですが Hi 06/5/30(火) 18:33 発言[未読]
【38278】Re:小計を出したいのですが COM 06/5/30(火) 21:39 質問[未読]
【38283】Re:小計を出したいのですが Hi 06/5/30(火) 22:28 発言[未読]
【38298】Re:小計を出したいのですが COM 06/5/31(水) 2:12 お礼[未読]
【38322】Re:小計を出したいのですが sin 06/5/31(水) 12:39 発言[未読]

【38260】小計を出したいのですが
質問  COM  - 06/5/30(火) 18:03 -

引用なし
パスワード
   こんにちは。
初心者ですがお願いします。

Sheet1にあるデータをSheet2のように各場所ごと各品目ごとに小計を
出し最終行に合計を出したいのですが。。。。
一般機能の「集計」だけでは思うような結果を出すことができません。

<Sheet1>
  A     B    C    E   F  G   H
 場所コード 場所名称 品名コード 品名 数量 単位 価格
1 1001   AAAA   3001   TTT   5  KG  500  
2 1001   AAAA   3001   TTT  15  KG  1500
3 1001   AAAA   3002   YYY   2  KG  400
4 1001   AAAA   3003   UUU   4  KG  1200
5 1002   BBBB   3001   TTT   5  KG  500
6 1002   BBBB   3002   YYY   6  KG  1200
7 1002   BBBB   3002   YYY   8  KG  1600
8 1002   BBBB   3003   UUU   1  KG  300
9 1002   BBBB   3003   UUU  10  KG  3000

<Sheet2>
  A     B    C    E   F  G   H
 場所コード 場所名称 品名コード 品名 数量 単位 価格
1 1001   AAAA   3001   TTT  20 KG  2000
2 1001   AAAA   3002   YYY   2 KG   400
3 1001   AAAA   3003   UUU   4 KG  1200
4 小計                26    3600
5 1002   BBBB   3001   TTT   5 KG   500
6 1002   BBBB   3002   YYY  14 KG  2800 
7 1002   BBBB   3003   UUU  11 KG  3300
8 小計                30    6600       
9 合計                56    10200

どなたか教えていただけませんでしょうか。
お願いします。

【38263】Re:小計を出したいのですが
発言  Hi  - 06/5/30(火) 18:33 -

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

今晩は・Subtotalできるのでは。
小計と小計更に合計は小計と小計を自動的に集計します。
あるいは
データ→集計で出来ます。

【38278】Re:小計を出したいのですが
質問  COM  - 06/5/30(火) 21:39 -

引用なし
パスワード
   Hi さん
ご返答ありがとうございます。

>今晩は・Subtotalできるのでは。
>小計と小計更に合計は小計と小計を自動的に集計します。
>あるいは
>データ→集計で出来ます。

集計で試みましたが(左側の「+」「−」を操作したり)
品名コード・品名の重複を取り除き小計することが出来ませんでした。

宜しくお願いします

【38283】Re:小計を出したいのですが
発言  Hi  - 06/5/30(火) 22:28 -

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

http://dreamy.boy.jp/tec2_27.htm
を見てアレンジして出来ませんでしょうか・・・

【38298】Re:小計を出したいのですが
お礼  COM  - 06/5/31(水) 2:12 -

引用なし
パスワード
   ▼Hi さん:ありがとうございます。

>http://dreamy.boy.jp/tec2_27.htm
>を見てアレンジして出来ませんでしょうか・・・

参考にさせていただきました。
オートフィルタや集計等を混ぜ合わしながら
なんとか求めていたものができあがりました。

ありがとうございました。

【38322】Re:小計を出したいのですが
発言  sin  - 06/5/31(水) 12:39 -

引用なし
パスワード
   ▼COM さん:
こんにちは

もう解決済みのようですが、勉強のため
試しに作ってみましたので参考になれば・・・
↓(合ってるのかな?)


Option Explicit
Sub test()
  Dim ws As Worksheet
  Dim sryo As Long
  Dim syok As Long
  Dim gos As Long
  Dim gok As Long
  Dim i As Long
  Dim ed As Long
  Dim pls As Long
  
  ThisWorkbook.Worksheets("Sheet1").Cells.Copy Destination:=ThisWorkbook.Worksheets("sheet2").Cells
  Set ws = ThisWorkbook.Worksheets("Sheet2")
  
  i = 1
  ed = ws.Range("A65535").End(xlUp).Row
  
  Do Until i > ed
    pls = ws.Cells(i, 1)
    syok = 0
    sryo = 0
    
    Do While pls = ws.Cells(i, 1)
      sryo = sryo + ws.Cells(i, 6)
      syok = syok + ws.Cells(i, 8)
      
      i = i + 1
    Loop
    
    ws.Range(ws.Cells(i, 1), ws.Cells(i, 8)).Insert Shift:=xlDown
    ws.Cells(i, 1) = "小計"
    ws.Cells(i, 6) = sryo
    ws.Cells(i, 8) = syok
    gos = gos + sryo
    gok = gok + syok
    
    i = i + 1
  Loop
  
  ws.Cells(i, 1) = "合計"
  ws.Cells(i, 6) = gos
  ws.Cells(i, 8) = gok
    
  ws.Activate
  Set ws = Nothing
End Sub

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