Access VBA質問箱 IV

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

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


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

7815 / 9994

←次へ　｜　前へ→


	【5362】Re:シェア率の算出方法

小僧 - 05/6/12(日) 9:25 -


	引用なし

	パスワード

▼sakaiII さん：
こんにちは。

>デザインビューで開くと、ＳＱＬ文だけです。

当方のAc2002環境だとデザインビューが出たので申し訳ないです。

SELECT Q.メーカー名, Q.メーカー名_１, Q.メーカー名_2,
Q.数量の合計, Format([数量シェア％]*100,"0.00") AS 式1,
Q.金額の合計, Format([金額シェア％]*100,"0.00") AS 式2
FROM [
SELECT '合計' AS メーカー名, ' ' AS メーカー名_１, ' ' AS メーカー名_2,
Sum(Table_Area.数量) AS 数量の合計,1 AS 数量シェア％ ,
Sum(Table_Area.金額) AS 金額の合計, 1 AS 金額シェア％
FROM Table_Area
UNION ALL
SELECT Table_Area.メーカー名, Table_Area.メーカー名_1, Table_Area.メーカー名_2,
Table_Area.数量, Table_Area.数量/DSum('数量',"Table_Area") AS 数量シェア％,
Table_Area.金額, Table_Area.金額/DSum('金額',"Table_Area") AS 金額シェア％
FROM Table_Area
]. AS Q;

もしくは

SELECT Q.メーカー名, Q.メーカー名_１, Q.メーカー名_2,
Q.数量の合計, Format([数量シェア％],"Percent") AS 式1,
Q.金額の合計, Format([金額シェア％],"Percent") AS 式2
FROM [
SELECT '合計' AS メーカー名, ' ' AS メーカー名_１, ' ' AS メーカー名_2,
Sum(Table_Area.数量) AS 数量の合計,1 AS 数量シェア％ ,
Sum(Table_Area.金額) AS 金額の合計, 1 AS 金額シェア％
FROM Table_Area
UNION ALL
SELECT Table_Area.メーカー名, Table_Area.メーカー名_1, Table_Area.メーカー名_2,
Table_Area.数量, Table_Area.数量/DSum('数量',"Table_Area") AS 数量シェア％,
Table_Area.金額, Table_Area.金額/DSum('金額',"Table_Area") AS 金額シェア％
FROM Table_Area
]. AS Q;

でいかがでしょうか？

232 hits

▼

【5222】シェア率の算出方法 sakaiII 05/6/3(金) 7:14