Excel VBA質問箱 IV

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

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


43458 / 76732 ←次へ | 前へ→

【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
4 hits

【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 発言

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