Office中国论坛/Access中国论坛

标题: 请教一个排序的公式设置问题 [打印本页]

作者: jydodo 时间: 2009-10-8 20:43
标题: 请教一个排序的公式设置问题
本帖最后由 jydodo 于 2009-10-8 20:54 编辑

本人要对数据进行统计（图表见附件），现有几个问题请教各位高手：
一是如何使新数据（青色部分）中所有大于或等于34的数据自动转换为该数据减去33的差；所有小于或等于0的数据自动转换为该数据加上33的和。
二是在某一行数据中，如果新数据中的任何一个数据等于老数据中的任何一个数据，则新数据的图案色彩自动由青色变为红色。其它行的数据类推。同时，自动计算某一列色彩为红色的次数的总和（所有色彩为红色的次数有多少）（总和位于29行）
三是按29行从小到大，对H--GW列自动进行排序？（目标见表二）
目前，第一、二个问题，已用了VBA解决了，具体见附件表一中“请点击这里”，但第三个问题还总是搞不好，唯有请教各位高手了。哪位高手指导一下，并在“请点击这里”加以设置，不胜感谢！

作者: liwen 时间: 2009-10-9 12:24
第三个问题,就是排序选项设为按行排序即可
如代码: Range("H3:GW29").Sort Key1:=Range("H29"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
如果你不是固定29行,则需要稍做变通处理即可.

作者: jydodo 时间: 2009-10-9 13:05
谢谢。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)