人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です。
エクセルでE列に男女の性別、F列に金額(正数と負数)、H列に日付
のデータがあります。データは2行目からです。
データはCSVファイルをc\test\に置いて
別ファイルSheet1に正数の答え、Sheet2に負数の答え、Sheet3に正負合計の結果一覧を作成するマクロをお願いします。
c\test\のエクセルCSVデータ
E列 F列 H列
性別 金額 日付
女 -10,000 2011/5/1

答えの一覧表は
Sheet1に正数の一覧集計
Sheet2に負数の一覧集計
Sheet3にその合計の一覧集計
の3個の一覧表
各sheetに日付ごとに男女別の男女の人数と金額の集計表を作成。

●質問者: inosisi
●カテゴリ:コンピュータ インターネット
✍キーワード:CSV test と金 エクセル データ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●200ポイント ベストアンサー

長いので 2つに分けました。

Sub main()
Dim p As String

'集計対象シート初期化
 
ThisWorkbook.Sheets("Sheet1").Cells.Delete Shift:=xlUp
ThisWorkbook.Sheets("Sheet2").Cells.Delete Shift:=xlUp
ThisWorkbook.Sheets("Sheet3").Cells.Delete Shift:=xlUp


'見出しセット
ThisWorkbook.Sheets("Sheet1").Range("B1") = "男性"
ThisWorkbook.Sheets("Sheet1").Range("C1") = "金額計"
ThisWorkbook.Sheets("Sheet1").Range("D1") = "女性"
ThisWorkbook.Sheets("Sheet1").Range("E1") = "金額計"
ThisWorkbook.Sheets("Sheet1").Range("F1") = "男女計"
ThisWorkbook.Sheets("Sheet1").Range("G1") = "金額合計"

ThisWorkbook.Sheets("Sheet2").Range("B1") = "男性"
ThisWorkbook.Sheets("Sheet2").Range("C1") = "金額計"
ThisWorkbook.Sheets("Sheet2").Range("D1") = "女性"
ThisWorkbook.Sheets("Sheet2").Range("E1") = "金額計"
ThisWorkbook.Sheets("Sheet2").Range("F1") = "男女計"
ThisWorkbook.Sheets("Sheet2").Range("G1") = "金額合計"

ThisWorkbook.Sheets("Sheet3").Range("B1") = "男性"
ThisWorkbook.Sheets("Sheet3").Range("C1") = "金額計"
ThisWorkbook.Sheets("Sheet3").Range("D1") = "女性"
ThisWorkbook.Sheets("Sheet3").Range("E1") = "金額計"
ThisWorkbook.Sheets("Sheet3").Range("F1") = "男女計"
ThisWorkbook.Sheets("Sheet3").Range("G1") = "金額合計"


'対象フォルダを指定してください。
'このフォルダに この実行用のブックは 入れないでください。
p = "C:\test\"

'処理対象となる拡張子を指定して 呼び出します。
Call jikkou(p, "csv")

End Sub
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ