返回列表 上一主題 發帖

[已解決]如何將標準差的公式引用到VBA中?

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-2-23 22:29 | 只看該作者

[已解決]如何將標準差的公式引用到VBA中?

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

各位大大好：
      小弟想把STDEV(A1:A6)的計算值放在B6中..
      若是直接在儲存格中寫入公式很容易，但因為有一連串的儲存格要計算，因此
想用VBA寫在程式裡...
      懇請大大解惑！感謝！
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
5#
發表於 2012-3-2 10:46 | 只看該作者
回復 4# hugh0620
哇...太感謝了...
這個...好用！
謝謝！感恩！
50 字節以內
不支持自定義 Discuz! 代碼

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
4#
發表於 2012-2-29 11:33 | 只看該作者
回復 3# jiuhtsair

   提供另一種多次運算的寫法  (每6筆計算標準差)
  1. Sub test()
  2. A = Application.CountA(Sheet1.Range("A1:A65536"))
  3. A = A / 6

  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))

  9.    Next
  10. Else
  11.    MsgBox "資料不等於6整除"
  12. End If

  14. End Sub
複製代碼
學習才能提升自己

TOP

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
3#
發表於 2012-2-24 20:10 | 只看該作者
回復 2# register313
感謝解惑！謝謝！
50 字節以內
不支持自定義 Discuz! 代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-2-23 23:02 | 只看該作者
回復 1# jiuhtsair

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

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題