帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-4-12 15:33 | 只看該作者

加權平均數VBA

請問各位大大，如何寫出加權平均數的VBA

由於加權平均數循環計算，想要嘗試的寫，但是有很多語法不清楚，不會用特別專業只會簡單的語法使用。
想詢問以下語法在VBA要怎麼打

計算三年(365*3筆資料)的周一到周七算出一個加權平均數
1、如何抓出周一到周七數值的平均數
2、平均值在減掉原本的數算出絕對距離
3、抓出周一到周七最大值與最小值然後減去平均值
4、在VBA使用ln、Exp

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^#

發表於 2014-4-23 20:11 | 只看該作者

回復 21# 518587
Ln(1)=0的那裏，為什麼還可以算出值?!

程式碼開頭有 On Error Resume Next '程式碼有錯誤時繼續下一行程式碼(不理會)

接下有註解  '*** 到 A578 時 H578 = 1 Ln(.Cells(1, 6))=0
            '*** 分母=0 不可除的錯誤  ***************
            '*** 接下的數字會有錯誤 ***************
            '.Cells(1,7) 'I欄 ** 6.ck=(-(Dpk^2)/ln(Ri))    (出現一個數)
            .Cells(1, 7) = -(.Cells(1, 4) ^ 2) / Application.Ln(.Cells(1, 6))

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

518587

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

21^#

發表於 2014-4-23 18:48 | 只看該作者

回復 20# GBKEE

謝謝版大，真的很謝謝你的幫忙!!
找出了問題也解決了~
但是有個問題想請問一下，
幫Ln(1)=0的那裏，為什麼還可以算出值?!
想請問一下版大，是做了什麼功能或是計算呢?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

20^#

發表於 2014-4-16 05:49 | 只看該作者

回復 19# 518587

.Cells(1, 11) = Abs(.Cells(1, 2) - .Cells(1, 10))
Debug.Print .Cells(1, 11).Address & " : " & .Cells(1, 11) '加上這行查看.Cells(1, 11)的值
GoTo A

複製代碼

Debug.Print 察看到前段到M410 一直是>0.1
跳不出 If .Cells(1, 11) > 0.1 Then 的判斷

$M$410 : 1.11185372875004
$M$410 : 1.11185372875005
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875004
$M$410 : 1.11185372875005
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875004
$M$410 : 1.11185372875005
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875006
$M$410 : 1.11185372875004
$M$410 : 1.11185372875005
$M$410 : 1.11185372875006

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

518587

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

19^#

發表於 2014-4-15 17:07 | 只看該作者

回復 17# GBKEE

檔案在附件中!!!

全部的那個跑會斷在417欄
然後我將1~416跟417以後的拆成兩個工作表
發現1~416的會一直跑不會停
417之後的是可以跑出結果的

想請版大幫我看看到底是哪一部分出了問題!!!!

問.rar (123.78 KB)

TOP

518587

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

18^#

發表於 2014-4-15 10:14 | 只看該作者

回復 17# GBKEE

可是他是到A417欄就沒有跑下去了!!
然後我把1到416的移到其他地方，
第417欄位移到第2爛後面的一起移動，
在一次跑VBA是可以跑得，而且也會停止，不會停到578欄

依版大的專業來看，這是什麼樣的問題呢?!
我始終找不到問題...

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

17^#

發表於 2014-4-15 05:42 | 只看該作者

回復 16# 518587
6# 中有註解

'*** 到 A578 時 H578 = 1 Ln(.Cells(1, 6))=0
41. '*** 分母=0 不可除的錯誤 ***************
42. '*** 接下的數字會有錯誤 ***************

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

518587

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

16^#

發表於 2014-4-15 00:03 | 只看該作者

回復 13# GBKEE

你好!!!!
感謝你的幫忙，我已經做出來了迴圈!
但是出現了一個問題就是
他只會執行到417列之後的都會出錯，但是把417之前的移除在執行程式是可以執行的
想請問為什麼會這樣呢?!

TOP

518587

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

15^#

發表於 2014-4-14 11:46 | 只看該作者

回復 13# GBKEE

版大，你好!!!!
對不起，我的問題這麼多....一直麻煩版大真的很不好意思!!!

附件有附上檔案，出現了以下的問題:
1、我在最上面加入了欄位的字串名稱，但是為什麼只出現L、M欄的字串
2、版大如果下在開啟後執行是可以跑得，但是如果把下面的判斷式的註解拿掉，開始執行判斷式就會出現問題
   出現的問題有
   (1) 工作表1的那是直接用手打計算出的結果，跟VBA跑出來(工作表5)的結果不相同，為什麼呢?!是因為VBA計算數值不一樣嗎?
   (2)執行的時候，他停不下來，必須強制停止，怎麼樣才能夠讓他自動停止?
   (3)執行停止後，查看程式結果，上面有計算出來，但是下面到了一個地方以後全部都沒有出現，為什麼呢?!

問.rar (82.92 KB)

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

14^#

發表於 2014-4-14 09:08 | 只看該作者

回復 4# GBKEE
很棒、很完整的 Find, FindNext 的使用範例, 收下, 謝謝版主!!

TOP