Office中國論壇/Access中國論壇

標(biāo)題: 加權(quán)計算函數(shù) [打印本頁]

作者: 5988143 時間: 2009-3-14 10:06
標(biāo)題: 加權(quán)計算函數(shù)
論壇上很少說到加權(quán) 計算方面的東東,我隨手撿了一個送上來:

Public Function WeightedMedianOfRst(RstName As String, fldName As String) As Double

   Dim MedianTemp As Double
   Dim ThisValue As Double
   Dim NumRecs As Long
   Dim RstOrig As Recordset
   Set RstOrig = CurrentDb.OpenRecordset(RstName, dbOpenDynaset)
   RstOrig.Sort = fldName
   Dim RstSorted As Recordset
   Dim RstFiltered As Recordset
   Set RstSorted = RstOrig.OpenRecordset()
   If RstSorted.RecordCount Mod 2 = 0 Then
      RstSorted.AbsolutePosition = (RstSorted.RecordCount / 2) - 1
      ThisValue = RstSorted.Fields(fldName).Value
      RstOrig.Filter = "[" & fldName & "] = " & ThisValue
      Set RstFiltered = RstOrig.OpenRecordset()
      MedianTemp = ThisValue * RstFiltered.RecordCount
      NumRecs = RstFiltered.RecordCount
      RstSorted.MoveNext
      ThisValue = RstSorted.Fields(fldName).Value
      RstOrig.Filter = "[" & fldName & "] = " & ThisValue
      Set RstFiltered = RstOrig.OpenRecordset()
      NumRecs = NumRecs + RstFiltered.RecordCount
      MedianTemp = MedianTemp + ThisValue * RstFiltered.RecordCount
      MedianTemp = MedianTemp / NumRecs

作者: 5988143 時間: 2009-3-14 10:12
1# 5988143

作者: 5988143 時間: 2009-3-14 10:13

作者: wuheng 時間: 2009-3-14 11:11
學(xué)習(xí)學(xué)習(xí)中~~~~~~~~~~~~

作者: 7777777 時間: 2009-3-14 11:52
ddddddddddddddd

作者: asklove 時間: 2009-3-14 13:32
收藏收藏

作者: huangqinyong 時間: 2009-3-14 15:40
汪版又有好東西發(fā)表,

作者: kenlan 時間: 2009-3-14 18:28
收藏收藏

作者: chaojianan 時間: 2009-3-15 12:05
謝謝樓主分享，
收藏了。

作者: Henry D. Sy 時間: 2009-3-15 14:17
謝謝分享

作者: liuweisunjing 時間: 2009-5-4 22:46
多謝了.

作者: gaofei186 時間: 2009-5-5 07:41
看看

作者: yanwei82123300 時間: 2009-5-5 07:43
學(xué)習(xí)學(xué)習(xí)中

作者: xuwenning 時間: 2009-5-5 10:39
收藏
學(xué)習(xí)
謝謝

作者: glw 時間: 2009-5-16 10:09
學(xué)習(xí)

作者: yongli99 時間: 2009-5-16 22:36
謝謝分享

作者: luhao 時間: 2009-5-17 19:36
看look

作者: chenyingfengsx 時間: 2009-6-2 10:33
kankan

作者: jorcolin 時間: 2009-6-16 18:09
謝謝分享

作者: df 時間: 2009-6-16 19:54
謝謝分享

作者: 石三少 時間: 2009-6-17 11:14
來看看,正好要用到

作者: yuayua23 時間: 2009-7-10 12:42

作者: 真主 時間: 2009-7-15 02:13
眾里尋她千百度....找到了我要的

作者: wangling 時間: 2009-7-18 01:56
access教程,access下載,access技巧,access培

作者: fnsmydyang 時間: 2009-7-20 19:58
好東東,頂一下.

作者: linag516 時間: 2009-7-21 09:30

作者: LoveSeiya 時間: 2009-8-15 17:25
看看學(xué)學(xué)

作者: 坡芽歌書 時間: 2009-8-15 17:42
dddddddddd

作者: sxgaobo 時間: 2009-8-15 19:42
DDDDDDDDDDDDDDD

作者: ryusukekenji 時間: 2009-8-23 15:46
學(xué)習(xí)學(xué)習(xí)

作者: xieanchu 時間: 2009-9-25 17:14
學(xué)習(xí)學(xué)習(xí)

作者: szyewj 時間: 2009-9-27 11:56
Query1

作者: alinker 時間: 2009-10-8 14:21
access和excel都可以用吧？

作者: wen123456 時間: 2009-10-17 21:15
好的好的，好

作者: pmx0001 時間: 2009-10-20 08:54
找這東西很久了

作者: yodong 時間: 2009-10-20 14:15
好用嗎?

作者: benhh 時間: 2009-10-22 03:35
Thank you for sharing

作者: xryacc2 時間: 2009-10-25 14:39
看看是什么好東東。

作者: dbbygzy 時間: 2009-11-1 13:46
dddddddddddddd

作者: dbbygzy 時間: 2009-11-1 13:56
DDDDDDDDDDD

作者: hyz172 時間: 2009-11-5 19:32
謝謝樓主分享

作者: zzxgenius529 時間: 2009-12-23 18:37
謝謝LZ

作者: sxb2007 時間: 2009-12-23 19:40
收藏

作者: liaoqiang234 時間: 2010-1-1 11:37
謝謝分享

作者: kisssprite 時間: 2010-1-28 14:16
先學(xué)習(xí)爭取早日出作品

作者: 付謙 時間: 2010-1-28 20:03
3# 5988143

作者: zhao__feng 時間: 2010-1-30 21:41
學(xué)習(xí)學(xué)習(xí)中~~~~~~~~~~~~

作者: lp2lp2 時間: 2010-1-30 23:30
xuexi

作者: luhao 時間: 2010-1-31 11:53
see

作者: c101 時間: 2010-1-31 13:14
謝謝分享

作者: hr0713 時間: 2010-2-11 10:06
謝謝

作者: zhengweb_0 時間: 2010-3-17 09:34
哈哈,看看

作者: gxm2322 時間: 2010-3-17 17:10
XXXXXXX

作者: bestluck 時間: 2010-5-3 22:11
學(xué)習(xí)來了

作者: xie62 時間: 2010-5-14 13:50
收藏了

作者: dbbygzy 時間: 2010-5-24 08:35
xuexi

作者: zyp 時間: 2010-5-24 10:11
多謝分享

作者: jiayinlb 時間: 2010-7-11 19:38
對來來說是新的

作者: powerhao 時間: 2011-4-23 00:18

作者: jingyu 時間: 2011-5-11 10:18
學(xué)習(xí)學(xué)習(xí)

作者: huangli0356 時間: 2012-10-12 23:39

作者: yanghua1900363 時間: 2012-10-13 09:49
多謝看看是怎么加權(quán)的

作者: pigbrain 時間: 2012-10-14 10:15
學(xué)習(xí)一下

作者: yanghua1900363 時間: 2012-10-14 16:14
本帖最后由 yanghua1900363 于 2012-10-14 16:24 編輯

多謝版主的分享！我在使用函數(shù)weightedMedianOfRst過程中，系統(tǒng)提示代碼行“Set RstSorted = RstOrig.OpenRecordset()” 中“.OpenRecordset（）”方法或成員未找到。版主緊接著分享的代碼中也有類似的用法，請問怎么解決？（我用的是access 2007）

作者: huangli0356 時間: 2012-11-9 14:56
如果有個實例更好了..支持寫個實例扔上來..

作者: lin2003_lin 時間: 2012-11-9 20:58
學(xué)習(xí)

作者: 灰太郎 時間: 2013-3-16 22:43
jjjjjjjjjjjjjjjjj

作者: ljp518 時間: 2013-8-1 16:34
看看羅

作者: 馨語馨愿 時間: 2014-4-28 22:18
謝謝樓主分享

作者: 馨語馨愿 時間: 2014-4-28 22:19

5988143 發(fā)表于 2009-3-14 10:12
1# 5988143

**** 本內(nèi)容被作者隱藏 ****

謝謝樓主分享

作者: zwp 時間: 2014-8-23 08:14
謝謝分享

作者: uncletse 時間: 2015-1-25 11:07
收藏收藏

作者: 764300778 時間: 2015-4-3 20:30
EEEE

作者: xzmingcx 時間: 2015-5-21 11:45
感謝

作者: xlb004 時間: 2017-5-7 07:31
，，，，，，，，，，，，一

作者: 洋務(wù)德雷 時間: 2017-5-9 20:50
看文字內(nèi)容。。。

作者: 塔奇克馬 時間: 2017-7-30 16:57
感謝分享
加權(quán)計算太多地方用到了

作者: aymi 時間: 2017-8-20 21:33

作者: zzf9008 時間: 2021-5-14 21:54
學(xué)習(xí)

歡迎光臨 Office中國論壇/Access中國論壇 (http://www.mzhfr.cn/)