標題: [已解決]如何將標準差的公式引用到VBA中? [打印本頁]

---

作者: jiuhtsair    時間: 2012-2-23 22:29     標題: [已解決]如何將標準差的公式引用到VBA中?

本帖最後由 jiuhtsair 於 2012-3-2 21:28 編輯

各位大大好：
      小弟想把STDEV(A1:A6)的計算值放在B6中..
      若是直接在儲存格中寫入公式很容易，但因為有一連串的儲存格要計算，因此
想用VBA寫在程式裡...
      懇請大大解惑！感謝！

---

作者: register313    時間: 2012-2-23 23:02

回復 1# jiuhtsair

[B6] = Application.StDev([A1:A6])

---

作者: jiuhtsair    時間: 2012-2-24 20:10

回復 2# register313
感謝解惑！謝謝！

---

作者: hugh0620    時間: 2012-2-29 11:33

回復 3# jiuhtsair

   提供另一種多次運算的寫法  (每6筆計算標準差)

1. Sub test()
   
2. A = Application.CountA(Sheet1.Range("A1:A65536"))
   
3. A = A / 6
   
4. 
   
5. If A = Int(A) Then
   
6.    For I = 1 To A
   
7.        Range("B" & I * 6) = Application.StDev(Sheet1.Range("A" & I * 6 - 5 & ":A" & 6 * I))
   
8. 
   
9.    Next
   
10. Else
    
11.    MsgBox "資料不等於6整除"
    
12. End If
    
13. 
    
14. End Sub

複製代碼

---

作者: jiuhtsair    時間: 2012-3-2 10:46

回復 4# hugh0620
哇...太感謝了...
這個...好用！
謝謝！感恩！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)