加權平均數VBA

518587

中學生 Rank: 2

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

11^# 跳轉到 »

發表於 2014-4-13 22:30 | 只看該作者

回復 10# GBKEE

不好意思!!!!
我加上那個IF語法後vba都無法回應是怎麼了嗎?!
為什麼會這樣呢?!

問最後一個可以讓語法可用在各個工作表的語法要放在哪裡呢?!

TOP

518587

中學生 Rank: 2

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

12^#

發表於 2014-4-13 22:37 | 只看該作者

回復 10# GBKEE

不好意思，我還是用不出來
不知道能不能請版大幫幫我，看一下到底哪出問題以及加入能夠讓各工作表都可以使用的語法

拜託拜託.....!!!!

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兔年全勤獎章

13^#

發表於 2014-4-14 06:22 | 只看該作者

本帖最後由 GBKEE 於 2014-4-14 06:24 編輯

回復 12# 518587
要認識VBA ,程式區的主題要多看.

'10.如果 AvgOld-AvgNew>0.1 (加上絕對值)的話，新的平均值就必須取代舊的，然後回到第二步重複計算到小於0.1
If Abs(.Cells(1, 2) - .Cells(1, 10)) > 0.1 Then
.Cells(1, 11) = Abs(.Cells(1, 2) - .Cells(1, 10))
.Cells(1, 2) = Avg 'Avg的公式???
GoTo A
End If

複製代碼

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

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

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)執行停止後，查看程式結果，上面有計算出來，但是下面到了一個地方以後全部都沒有出現，為什麼呢?!