Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22267 / 76734

←次へ　｜　前へ→


	【59850】Re:年間月別合計の出し方

kanabun - 09/1/13(火) 21:18 -


	引用なし

	パスワード

▼ひかるさん：

こんにちは。
VBA初心者ということなので、手始めに一般機能の「統合」を
使ってみてはいかがですか？

まず、元表に細工を施します。
B列を挿入して、挿入列に =MONTH(A2) と数式を入れます。↓
　A　　　　B　　　　C　　　　D　　　　E　　　　F
----------------------------------------------
日付　　　　月　　　　会議室　　　　研修室　　　　和室　　　　調理室
4月15日　　　　4月　　　　560　　　　800　　　　1000　　　　500
4月19日　　　　4月　　　　1500　　　　600　　　　5200　　　　1500
5月21日　　　　5月　　　　800　　　　2000　　　　800　　　　2100
5月31日　　　　5月　　　　5000　　　　480　　　　2500　　　　600
6月13日　　　　6月　　　　4500　　　　3600　　　　4800　　　　1600
6月18日　　　　6月　　　　100　　　　3600　　　　8400　　　　2650
6月21日　　　　6月　　　　7000　　　　600　　　　8000　　　　7900

統合後の表を出力したいセルをアクティブにしておいて、
メニュ-［データ］-［統合...］から
統合元範囲に [B1:F8]を指定します(A列は含みません)
統合の基準
　上端行
　左端列　の両方にチェックを入れ、 [OK]ボタンを押すと、
次のような統合表が出来上がります。

----------------------------------------------
　　　　会議室　　　　研修室　　　　和室　　　　調理室
4　　　　2060　　　　1400　　　　6200　　　　2000
5　　　　5800　　　　2480　　　　3300　　　　2700
6　　　　11600　　　　7800　　　　21200　　　　12150

あとは、この範囲をCUT して、別シートに
行列を入れ替えて貼り付けるだけです。
------------------------------------------
　　　　4　　　　5　　　　6
会議室　　　　2060　　　　5800　　　　11600
研修室　　　　1400　　　　2480　　　　7800
和室　　　　6200　　　　3300　　　　21200
調理室　　　　2000　　　　2700　　　　12150

（月の書式 4 → 4月などは適宜設定してください）

VBAでこれを半自動でやらせることもできます。
そのばあい、以上の操作をマクロ記録してみてください。

1 hits

▼

【59849】年間月別合計の出し方 ひかる 09/1/13(火) 20:39