老师给的大青枣烤蹄，现交作业。

Zamyi · 发表于 2010-12-8 15:50

原帖由 excelflower 于 2010-12-8 11:56 发表

多谢老师赐教！
是这个道理！可是SpecialCells一次就可以找出这么多单元格！！！？？？

数据从10W，你用SpecialCells可以找出来？看来我的电脑不行。再回到你的问题，如果数据在A列，你的计算不是从A列取数，结果也把数据改了。这两点不符合要求。

excelflower · 发表于 2010-12-8 16:06

原帖由 Zamyi 于 2010-12-8 15:50 发表

数据从10W，你用SpecialCells可以找出来？看来我的电脑不行。再回到你的问题，如果数据在A列，你的计算不是从A列取数，结果也把数据改了。这两点不符合要求。

多谢老师这么细仔地检查学生的作业！！！！很激动！再次表示感谢！！！

正如老师所讲的，我是从数组中取值的，不符合“法师”老师的要求。

不过，我的想法是这样的：

1、每次运行时，都重新生成随机数，来检验结果的可靠性。

2、我是先在数组中生成10W个随机数，写入工作表。再直接从数组中取值、分析判断，完成格式设置。但是数据没有变化。
【按老师的要求，我应该视为10W随机数是已经存在的，直接一次读取到数组，后续的代码是一样的。】

lipton · 发表于 2010-12-8 16:28

原帖由 Zamyi 于 2010-12-8 15:50 发表

数据从10W，你用SpecialCells可以找出来？看来我的电脑不行。再回到你的问题，如果数据在A列，你的计算不是从A列取数，结果也把数据改了。这两点不符合要求。

测试运行，10W SpecialCells不起作用，看来内部函数有最大限制。

AVEL · 发表于 2010-12-8 16:38

原帖由 lipton 于 2010-12-8 16:28 发表

测试运行，10W SpecialCells不起作用，看来内部函数有最大限制。

呵呵微软升级了EXCEL版本，却没有相应的修改提高内部函数的通用性。

除了SpecailCells不起作用外。

执行下面语句也会出错。-_-|||

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells.Count > 1 Then Exit Sub
End Sub

复制代码

excelflower · 发表于 2010-12-8 16:40

原帖由 lipton 于 2010-12-8 16:28 发表

测试运行，10W SpecialCells不起作用，看来内部函数有最大限制。

老师你好！多谢关心！

transpose不能大于65536行，但是SpecialCells可以实现10W！14楼有图、有附件！您再测试一下。

lipton · 发表于 2010-12-8 17:03

原帖由 excelflower 于 2010-12-8 16:40 发表

老师你好！多谢关心！

transpose不能大于65536行，但是SpecialCells可以实现10W！14楼有图、有附件！您再测试一下。

运行过了，不行辨认不出，不知道有成功的没有。
运行环境winxp SP3 office2007 SP2

excelflower · 发表于 2010-12-8 17:13

原帖由 lipton 于 2010-12-8 17:03 发表

运行过了，不行辨认不出，不知道有成功的没有。
运行环境winxp SP3 office2007 SP2

老师你好！应该是电脑硬件配置问题吧？！！

10W，我只用不到12秒。

CPU占用50%，内存占用42240K。

[ 本帖最后由 excelflower 于 2010-12-8 17:15 编辑 ]

lipton · 发表于 2010-12-8 17:28

可以运行，但是不能辨认，截图是运行后的结果

excelflower · 发表于 2010-12-8 17:31

原帖由 lipton 于 2010-12-8 17:28 发表
可以运行，但是不能辨认，截图是运行后的结果

看来是硬件问题！老师的电脑好旧，显示屏都不清晰。老师要注意保养眼睛啊！！！

Zamyi · 发表于 2010-12-8 17:43

即使可以用SpecialCells，速度还是不行，10W个上色2秒内完成没问题。

		自动登录	找回密码
密码			免费注册

[讨论] 老师给的大青枣烤蹄，现交作业。