ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[讨论]有点难度的汇总

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-11-27 08:50 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

里面的地区,目前只是省而已,如果其它信息呢,所以要考虑当它越过256个种类的时候程序是否可照样执行.

狼版,用字典套字典是否可行呢?纯真猜测,因为我是字典盲.

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-11-27 09:19 | 显示全部楼层
QUOTE:
以下是引用dxy27在2007-11-26 22:21:06的发言:

彭兄的题目真是太难了一点,做了一晚上还是没有全部完成

用DICTIONARY+数组做的,还差最后的地区不知道怎么取值,,明天继续研究.

先汇报一下进度,也请彭兄指点.

[em04]

 


指点谈不上,我说说我与这个报表的缘份吧

记得我刚进公司时,每月都做这个报表,那时我可是EXCEL盲,只会用计算器一个一个的算一个一个填.花了我一个多星期的时间好不容易才做好.

后来学会了IF函数和排序.花20分钟也可以做好了.

再后来,2006年初在一次偶然的机会让我发现了EXCELHOEM.为了偷懒,强迫自已学习了一点VBA,花了一周的时间用排序加数组加录制宏,总算也写出第一个VBA程式了.从此之后就喜欢上了EXCEL.

现在早已不做这报表了,不过与EXCEL缘份却全是因为它.

TA的精华主题

TA的得分主题

发表于 2007-11-27 09:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
QUOTE:
以下是引用彭希仁在2007-11-27 8:50:45的发言:

里面的地区,目前只是省而已,如果其它信息呢,所以要考虑当它越过256个种类的时候程序是否可照样执行.

狼版,用字典套字典是否可行呢?纯真猜测,因为我是字典盲

用字典套字典可行,但估计实现也比较麻烦.可使用ADO+SQL生成临时数组帮助解决,如:

Sub macro1()
Dim arr
Sheets("数据").[a1].CurrentRegion.Replace " ", ""
With CreateObject("ADODB.Connection")
.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;';data source=" & ThisWorkbook.FullName
arr = .Execute("select * from (select 机型,故障,省份,count(机型 & 故障 & 省份) as b from [数据$" & Sheets("数据").[a1].CurrentRegion.Address(0, 0) & "]  as a  group by 机型,故障,省份) order by 机型,故障,b desc").getrows
.Close
End With
End Sub

TA的精华主题

TA的得分主题

发表于 2007-11-27 09:29 | 显示全部楼层

彭兄,原来你也是初学者啊,不过我比你晚一年,我是2007年10月开始学VBA的。

你知道财务分析中最简单的分析是什么吗?好像叫分类汇总吧

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-11-27 09:47 | 显示全部楼层
QUOTE:
以下是引用BrandSex在2007-11-27 9:29:46的发言:

彭兄,原来你也是初学者啊,不过我比你晚一年,我是2007年10月开始学VBA的。

你知道财务分析中最简单的分析是什么吗?好像叫分类汇总吧

我怎么能和你比呢,你可是第一天接触就精通的高手啊,我只是学了2年都没有学到EXCEL的1%的菜鸟.

分类汇总存在很大的不足,在这个里面还不如直接用IF函实现,

[此贴子已经被作者于2007-11-27 9:51:25编辑过]

TA的精华主题

TA的得分主题

发表于 2007-11-27 09:49 | 显示全部楼层

终于做完了,太烦琐.见笑.

ASsA95s7.rar (21.25 KB, 下载次数: 158)

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-11-27 09:53 | 显示全部楼层
QUOTE:
以下是引用dxy27在2007-11-27 9:49:24的发言:

辛苦了dxy27兄,谢谢

代码还是比较简捷,学习了

[此贴子已经被作者于2007-11-27 10:01:13编辑过]

TA的精华主题

TA的得分主题

发表于 2007-11-27 10:19 | 显示全部楼层
QUOTE:
以下是引用彭希仁在2007-11-27 9:53:00的发言:

辛苦了dxy27兄,谢谢

代码还是比较简捷,学习了


    彭兄太客气了,一直在用彭兄的EXCEL常用工具,那才是值得学习的代码.[em24]

TA的精华主题

TA的得分主题

发表于 2007-11-27 10:22 | 显示全部楼层
QUOTE:
以下是引用彭希仁在2007-11-27 9:47:49的发言:

我怎么能和你比呢,你可是第一天接触就精通的高手啊,我只是学了2年都没有学到EXCEL的1%的菜鸟.

分类汇总存在很大的不足,在这个里面还不如直接用IF函实现,


说的是啊,差距太大,使用别人的Excel和开发自已的Excel不是一个级别的,你知道IF函数是怎么实现的吗?产生式和驱动表知道吗?

int Matrix[52][29] =
{
 ER,  1,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  2,  ER,  ER,  ER,  ER,  ER,  ER,  49,  3,  4,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  
ER,  -7,  -7,  -7,  -7,  -7,  -5,  ....}

// rule 18   IF_TAIL -> ELSE RE ENDIF
  BOOL Reduce_18(stack<stack_factor> *pstack, stack_factor &factor, int count);

想深入研究,推荐研究生课程的《人工智能导论》里有详解,自己去看吧

国内应该没有几个人能把Excel的整套函数写出来吧,哈哈哈哈

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-11-27 10:44 | 显示全部楼层
QUOTE:
以下是引用BrandSex在2007-11-27 10:22:04的发言:

说的是啊,差距太大,使用别人的Excel和开发自已的Excel不是一个级别的,你知道IF函数是怎么实现的吗?产生式和驱动表知道吗?

int Matrix[52][29] =
{
 ER,  1,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  2,  ER,  ER,  ER,  ER,  ER,  ER,  49,  3,  4,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  ER,  
ER,  -7,  -7,  -7,  -7,  -7,  -5,  ....}

// rule 18   IF_TAIL -> ELSE RE ENDIF
  BOOL Reduce_18(stack<stack_factor> *pstack, stack_factor &factor, int count);

想深入研究,推荐研究生课程的《人工智能导论》里有详解,自己去看吧

国内应该没有几个人能把Excel的整套函数写出来吧,哈哈哈哈

单片机中的IF,左移右移,加法,减法我倒是知道如何通过数字电路实现,

至于你说的开发自已的Excel我是屁都不懂一个,估计中国人就你懂.哈哈

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-15 07:21 , Processed in 0.041179 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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