求助高手：透视表VBA自定义汇总求助。

爱熊猫的驴子

数据透视表的分类汇总里，有计数、求和、最大值、平均值等方法。但我想通过VBA自己做一个汇总方法，实现如下功能，怎么处理，

年级	男	女
高中	优秀（5）、良好（2）、差（1）	优秀（3）、良好（1）、差（1）
初中	优秀（5）、良好（2）、差（1）	优秀（3）、良好（2）、差（0）

行字段是年级，列字段是性别，汇总字段是成绩等级（优秀、良好、差）

首先透视表能否自定义汇总方式（excel自带的只有计数、求、最大值、最小值等内容），如果可以，通过VBA怎么编写。
我用的是excel2010。大侠能够帮忙编写宏来增强透视表的功能。

如果可以，将极高提供我们工作效率，我们会请大侠给我们开展关于excel数据透视表的有偿培训。
我的联系方式houyongfang@cdr.gov.cn.  qq34577567.