Excel VBA質問箱 IV

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

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


37639 / 76732 ←次へ | 前へ→

【44255】Re:勘違いかもしれませんが
回答  yata  - 06/11/10(金) 22:44 -

引用なし
パスワード
   素人じゅうすけ さん こんばんわ
1項目はこういう事ですか?

Sheet1に    
 A列  B列  C列
日付    重量    金額    8/31 と9/30 を指定して
8月28日    20    100
8月29日    30    200
8月29日    15    300
8月31日    100    400    →
9月2日    100    500
9月10日    25    600
9月30日    1000    700
10月1日    300    800
10月30日 200    100

Sheet2に
A列    B列   C列   D列
日付        重量   金額
9/1〜9/30     1125   1800  と表示

Sub Test1()
Dim R As Long
Dim m As Integer  'データ範囲の行数と月名
R = UsedRange.Rows.Count
md1 = InputBox("前月末日")
md2 = InputBox("今月末日")
'前の日付までの合計とあとの日付までの合計を出す
With Application.WorksheetFunction
For Each Rng In Range(Range("A2"), Cells(R, 1))
Select Case Rng.Value
  Case DateValue(md1)
    重量sum1 = .Sum(Range("B2", Cells(Rng.Row, 2)))
    金額sum1 = .Sum(Range("C2", Cells(Rng.Row, 3)))
    翌月の最初の日 = Rng.Offset(1, 0)
  Case DateValue(md2)
    重量sum2 = .Sum(Range("B2", Cells(Rng.Row, 2)))
    金額sum2 = .Sum(Range("C2", Cells(Rng.Row, 3)))
  End Select
Next
End With
'引き算をして別シートへ表示
With Sheets("Sheet2")
  .Range("A2") = Format(翌月の最初の日, "m/d") & "〜" & m2
  .Range("C2") = 重量sum2 - 重量sum1
  .Range("D2") = 金額sum2 - 金額sum1
End With

End Sub
私は在庫管理で使っているのは月末日が休みや入出庫データが無い場合があるので「月」名で
しています。その場合はFind関数で前月の最終行と当月の最終行を取得しています。

2項目もちょっと意味が分からないのですが、全ての人名について合計を出してからそれを並び替えるのですか?
1 hits

【44202】別のSHEETへの答え記入 素人じゅうすけ 06/11/8(水) 20:58 質問
【44206】Re:別のSHEETへの答え記入 りん 06/11/9(木) 12:02 発言
【44208】Re:別のSHEETへの答え記入 素人じゅうすけ 06/11/9(木) 18:01 お礼
【44215】Re:勘違いかもしれませんが yata 06/11/9(木) 22:13 回答
【44251】Re:勘違いかもしれませんが 素人じゅうすけ 06/11/10(金) 19:11 質問
【44255】Re:勘違いかもしれませんが yata 06/11/10(金) 22:44 回答
【44266】Re:勘違いかもしれませんが 素人じゅうすけ 06/11/11(土) 14:11 質問
【44289】Re:取り敢えず1項目だけ yata 06/11/12(日) 8:42 回答
【44291】Re:取り敢えず1項目だけ 素人じゅうすけ 06/11/12(日) 9:36 回答
【44293】Re:取り敢えず1項目だけ 素人じゅうすけ 06/11/12(日) 10:30 質問
【44301】Re:1項目の説明と2項目 yata 06/11/12(日) 19:10 回答
【44313】Re:1項目の説明と2項目 素人じゅうすけ 06/11/13(月) 9:30 回答
【44383】Re:1項目の説明と2項目 素人じゅうすけ 06/11/14(火) 17:21 質問
【44389】Re:訂正と2項目の行挿入 yata 06/11/14(火) 19:51 回答
【44404】Re:訂正と2項目の行挿入 素人じゅうすけ 06/11/15(水) 9:37 質問
【44420】Re:2項目の日付表示では yata 06/11/15(水) 21:34 回答
【44486】Re:2項目の日付表示では 素人じゅうすけ 06/11/18(土) 14:53 お礼
【44542】Re:2項目の日付表示では 素人じゅうすけ 06/11/21(火) 9:43 質問
【44568】Re:2項目の日付表示では yata 06/11/21(火) 22:46 回答
【44590】Re:2項目の日付表示では 素人じゅうすけ 06/11/22(水) 17:40 お礼

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