access中其实是没有excel的中位数函数,那么在利用数据透视表的时候也不存在中位数的算法,下面就是让你咋在access中调用excel的函数示例,其实很简单的
    
 Sub xlMedian()

Dim obj As Excel.Application     
    Set obj = CreateObject("Excel.Application")    
    MsgBox obj.Application.Median(1, 2, 5, 8, 12, 13)     
    obj.Quit     
    Set obj = Nothing 
End Sub