[讨论]有点难度的汇总

彭希仁

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

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

彭希仁

QUOTE:

以下是引用dxy27在2007-11-26 22:21:06的发言：

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

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

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

[em04]

 

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

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

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

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

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

northwolves

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

BrandSex

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

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

彭希仁

QUOTE:

以下是引用BrandSex在2007-11-27 9:29:46的发言：

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

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

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

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

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

dxy27

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

2007-11-27 09:49 上传

点击文件名下载附件
[讨论]有点难度的汇总

彭希仁

QUOTE:

以下是引用dxy27在2007-11-27 9:49:24的发言：

辛苦了dxy27兄,谢谢

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

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

dxy27

QUOTE:

以下是引用彭希仁在2007-11-27 9:53:00的发言：

辛苦了dxy27兄,谢谢

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

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

BrandSex

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的整套函数写出来吧，哈哈哈哈

彭希仁

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我是屁都不懂一个,估计中国人就你懂.哈哈