麻辣家族討論版版 » Excel程式區 » 抓取電流突波次數，及計算其平均值問題

返回列表下一主題上一主題發帖

抓取電流突波次數，及計算其平均值問題

中學生 Rank: 2

帖子: 12
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2016-8-5
最後登錄: 2022-6-29

2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-10-7 06:49 | 只看該作者

抓取電流突波次數，及計算其平均值問題

[版主管理留言]

GBKEE(2016/10/7 08:15): 請詳述計算一次的條件? 你有設定格式化條件>95

麻煩大大，幫忙查看電流抓取寫法，
如附件，電流抓取問題
謝謝!
:)

test.rar (94.6 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 12
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2016-8-5
最後登錄: 2022-6-29

2017 雞年全勤獎章論壇贊助勳章

7^#

發表於 2016-10-9 23:31 | 只看該作者

本帖最後由 s12t34 於 2016-10-9 23:35 編輯

回復 4# GBKEE

謝謝G大，平均電流計算值OK了
辛苦了!
:)

中學生 Rank: 2

帖子: 12
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2016-8-5
最後登錄: 2022-6-29

2017 雞年全勤獎章論壇贊助勳章

6^#

發表於 2016-10-9 17:18 | 只看該作者

[版主管理留言]

GBKEE(2016/10/9 20:29): 4# 2016-10-9 20:27 更新可在試試

謝謝G大大和准大的解答，
G大，不好意思平均電流計算值有問題

小弟我還不太懂VBA，只用錄製學習中.....
再次謝謝兩位大大解答

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

5^#

發表於 2016-10-9 13:28 | 只看該作者

計算規則還不詳細, 大約寫一下:

Sub 取出結果(C%, M, ST1$, ST2$)
Dim Arr, i&, V&, U&, S, uMax
Arr = Range(Cells(1, C + 2), Cells(65536, C + 2).End(xlUp)(2))
For i = 2 To UBound(Arr) - 1
If Val(Arr(i, 1)) > Val(M) Then
V = V + 1
S = S + Arr(i, 1)
If Arr(i, 1) > uMax Then uMax = Arr(i, 1)
If Val(Arr(i + 1, 1)) <= Val(M) Then U = U + 1
End If
Next
[J2] = "次數 =": [J3] = "平均值 =": [J4] = "最大值 ="
[K1].Cells(1, C) = " " & ST1 & " "
[K1].Cells(2, C) = U
[K1].Cells(3, C) = S / V
[K1].Cells(4, C) = uMax
[U1].Cells(1, C) = " " & ST2 & " "
End Sub
Private Sub Button1_Click()
Call 取出結果(1, 100, " 01、08、14 ", " 01H ")
End Sub
Private Sub CommandButton1_Click()
Call 取出結果(2, 30, "02、09、15", "02H")
End Sub
Private Sub CommandButton2_Click()
Call 取出結果(3, 50, "03、10、16", "03H")
End Sub
Private Sub CommandButton3_Click()
Call 取出結果(4, 30, "04、11、17", "04H")
End Sub
Private Sub CommandButton4_Click()
Call 取出結果(5, 50, "05、12、18", "05H")
End Sub
Private Sub CommandButton5_Click()
Call 取出結果(6, 50, "06、13、19", "06H")
End Sub
Private Sub CommandButton6_Click()
Call 取出結果(7, 50, "07、14", "07V")
End Sub

複製代碼

TEST20161009-1.rar (181.41 KB)

超級版主 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兔年全勤獎章

4^#

發表於 2016-10-9 08:43 | 只看該作者

本帖最後由 GBKEE 於 2016-10-9 20:27 編輯

回復 3# s12t34
試試看,是否如此

'觀察附檔為計算C欄的邏輯是,大於100的連續範圍的次數
Option Explicit
Sub Ex()
Dim i As Integer, S As Single, Max_Count As Integer, V As Integer
i = 2
Range("D:D").Interior.ColorIndex = xlNone
Do While Cells(i, "c") <> ""
If Cells(i, "c") > 100 Then
Max_Count = Max_Count + 1
Do While Cells(i, "c") > 100
V = V + 1 '大於100的次數**********
S = S + Cells(i, "c")
Cells(i, "D") = "AA" & Max_Count '輔助你查看次數是否正確
Range("D" & i).Interior.Color = vbYellow '輔助你查看是否正確
i = i + 1
Loop
Else
i = i + 1
End If
Loop
[J2] = "次數 ="
[J3] = "平均值 ="
[J4] = "最大值 ="
[K1] = " 01、08、14 "
[U1] = " 01H "
[K2] = Max_Count
[K3] = S / V 'Max_Count
[K4] = "=MAX(R[-2]C[-8]:R[9996]C[-8])"
''執行後: D欄自動篩選,條件開頭以"AA" 可查看是否正確
End Sub

複製代碼

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

中學生 Rank: 2

帖子: 12
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2016-8-5
最後登錄: 2022-6-29

2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2016-10-7 14:47 | 只看該作者

本帖最後由 s12t34 於 2016-10-7 14:53 編輯

我先抓突波電流值再小於20之中計算一次

原本以寫函數 =IF(C3<20,IF(C4>20,IF(C5>100,1,""),""),"")

麻煩大大指點指點，謝謝。

test.rar (228.37 KB)

中學生 Rank: 2

帖子: 12
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Xp
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2016-8-5
最後登錄: 2022-6-29

2017 雞年全勤獎章論壇贊助勳章

2^#

發表於 2016-10-7 10:46 | 只看該作者

回復 1# s12t34

有設定設定格式化條件>95，這是為了突顯其突波電流
因之前程式計算有的會把此範圍計算為前後各1次，
謝謝版大提醒 :)

靜思自在 : 不要小看自己，因為人有無限的可能。

返回列表下一主題上一主題