ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: stvent

[求助] 在Access上,能生成这样一个表吗?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-5-22 16:17 | 显示全部楼层
跟着无敌老师来学习

TA的精华主题

TA的得分主题

发表于 2013-5-22 16:18 | 显示全部楼层
能力有限,只能看看香帅的代码

TA的精华主题

TA的得分主题

发表于 2013-5-22 16:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-5-22 16:24 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-5-22 16:40 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
呵呵,这么大的工作量……

TRANSFORM Min([%$##@_Alias].类别) AS 类别OfMin
SELECT [%$##@_Alias].分类
FROM [SELECT T1.分类,T1.日期,IIF(COUNT(T2.序列)<5,COUNT(T2.序列),5) AS 类别 FROM
(SELECT 日期,分类,CDATE(IIF(ISDATE(日期),日期,INSTR("期初4月第三周",日期))) AS 序列 FROM
(SELECT DISTINCT 日期 FROM 开卷)A1,
(SELECT DISTINCT 分类 FROM 开卷)A2)T1
LEFT JOIN
(SELECT 分类,日期,CDATE(IIF(ISDATE(日期),日期,INSTR("期初4月第三周",日期))) AS 序列
FROM 开卷)T2
ON T1.分类=T2.分类 AND T1.序列>=T2.序列
GROUP BY T1.分类,T1.日期
UNION ALL
SELECT "合计",日期,SUM(类别) FROM
(SELECT T1.日期,IIF(COUNT(T2.序列)<5,COUNT(T2.序列),5) AS 类别 FROM
(SELECT 日期,分类,CDATE(IIF(ISDATE(日期),日期,INSTR("期初4月第三周",日期))) AS 序列 FROM
(SELECT DISTINCT 日期 FROM 开卷)A1,
(SELECT DISTINCT 分类 FROM 开卷)A2)T1
LEFT JOIN
(SELECT 分类,日期,CDATE(IIF(ISDATE(日期),日期,INSTR("期初4月第三周",日期))) AS 序列
FROM 开卷)T2
ON T1.分类=T2.分类 AND T1.序列>=T2.序列
GROUP BY T1.分类,T1.日期)
GROUP BY 日期
UNION ALL
SELECT "总计",P1.日期,MIN(P1.值1-NZ(P2.值2)) FROM
(SELECT 序列,日期,SUM(类别) AS 值1 FROM
(SELECT T1.日期,T1.序列,IIF(COUNT(T2.序列)<5,COUNT(T2.序列),5) AS 类别 FROM
(SELECT 日期,分类,CDATE(IIF(ISDATE(日期),日期,INSTR("期初4月第三周",日期))) AS 序列 FROM
(SELECT DISTINCT 日期 FROM 开卷)A1,
(SELECT DISTINCT 分类 FROM 开卷)A2)T1
LEFT JOIN
(SELECT 分类,日期,CDATE(IIF(ISDATE(日期),日期,INSTR("期初4月第三周",日期))) AS 序列
FROM 开卷)T2
ON T1.分类=T2.分类 AND T1.序列>=T2.序列
GROUP BY T1.分类,T1.日期,T1.序列)
GROUP BY 日期,序列)P1
LEFT JOIN
(SELECT 序列,日期,SUM(类别) AS 值2 FROM
(SELECT T1.日期,T1.序列,IIF(COUNT(T2.序列)<5,COUNT(T2.序列),5) AS 类别 FROM
(SELECT 日期,分类,CDATE(IIF(ISDATE(日期),日期,INSTR("期初4月第三周",日期))) AS 序列 FROM
(SELECT DISTINCT 日期 FROM 开卷)A1,
(SELECT DISTINCT 分类 FROM 开卷)A2)T1
LEFT JOIN
(SELECT 分类,日期,CDATE(IIF(ISDATE(日期),日期,INSTR("期初4月第三周",日期))) AS 序列
FROM 开卷)T2
ON T1.分类=T2.分类 AND T1.序列>=T2.序列
GROUP BY T1.分类,T1.日期,T1.序列)
GROUP BY 日期,序列)P2
ON P1.序列>P2.序列
GROUP BY P1.序列,P1.日期]. AS [%$##@_Alias]
GROUP BY [%$##@_Alias].分类
PIVOT [%$##@_Alias].日期;

点评

楼主的表格奇葩了点。(^-^)  发表于 2013-5-22 16:44

TA的精华主题

TA的得分主题

发表于 2013-5-22 17:06 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-5-23 00:10 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 wcymiss 于 2013-5-23 08:22 编辑

吴版有令,莫敢不从。答卷如下:

  1. transform sum(tj)
  2. select 分类 from
  3.     (select 分类,日期,iif(tj>5,5,tj) as tj from
  4.         (select 分类,日期,ID,
  5.         dcount('ID','开卷','分类='''&分类&''' and ID<='&ID) as tj from
  6.             (select distinct 分类 from 开卷)a,
  7.             (select 日期,max(ID) as ID from 开卷 group by 日期)b
  8.         )
  9.     union all
  10.     select '合计',日期,sum(iif(tj>5,5,tj)) from
  11.         (select 分类,日期,ID,
  12.         dcount('ID','开卷','分类='''&分类&''' and ID<='&ID) as tj from
  13.             (select distinct 分类 from 开卷)a,
  14.             (select 日期,max(ID) as ID from 开卷 group by 日期)b
  15.         )
  16.     group by 日期
  17.     union all
  18.     select '求差',日期,sum(iif(tj>5,5,tj))-sum(iif(tj2>5,5,tj2)) from
  19.         (select 分类,日期,
  20.         dcount('ID','开卷','分类='''&分类&''' and ID<='&ID) as tj,
  21.         dcount('ID','开卷','分类='''&分类&''' and 日期<>'''&日期&''' and ID<'&ID) as tj2 from
  22.             (select distinct 分类 from 开卷)a,
  23.             (select 日期,max(ID) as ID from 开卷 group by 日期)b
  24.         )
  25.     group by 日期
  26.     )
  27. group by 分类 pivot 日期
  28. in('期初','4月第三周','2013/4/25','2013/4/26','2013/4/27')
复制代码
日期字段不规范,无法直接对其排序成楼主需要的序列。
分析了下数据,发现日期字段在前的,其ID也靠前,故利用ID来对日期字段排序。也算是取个巧吧!
否则的话就要枚举字段名进行排序了,更麻烦。

多谢吴版指导!

点评

感谢支持,值得肯定。  发表于 2013-5-23 09:21

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2013-5-23 02:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
看看,香帅老师的思路

TA的精华主题

TA的得分主题

发表于 2013-5-23 17:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
吴老师的帖子还要回复不过好期待吴老师的答案

TA的精华主题

TA的得分主题

发表于 2013-5-23 18:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
?????????????????????
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-17 20:33 , Processed in 0.044234 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表