當符合條件時回傳Sample time & 其儲存格列號 - Excelㄧ般區

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

11^# 跳轉到 »

發表於 2014-12-9 14:24 | 只看該作者

回復 10# marklos

複製下列代碼貼上去取代舊的就行了

Private Sub CommandButton1_Click()
[g5,h5] = ""
For Each cu In Range("d2:d" & [a65536].End(3).Row)
If cu.Value < [g2] Then
[g5] = cu.Offset(0, -2).Value
[h5] = cu.Row
[g7] = Application.Count(Range("e2:e" & cu.Row)) / 3600
[h7] = Application.Sum(Range("e2:e" & cu.Row)) / 3600
Exit Sub
End If
Next
End Sub

複製代碼

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

12^#

發表於 2014-12-9 16:23 | 只看該作者

回復 9# owen06

Xl0000225.rar (102.61 KB)
如果在同一工作表內有兩筆資料需要個別檢察並顯示該如何?

owen06

　暱稱: 阿軒

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

13^#

發表於 2014-12-9 22:30 | 只看該作者

回復 10# marklos

將下列代碼複製貼上取代原有的內容

Private Sub CommandButton1_Click()
[g5,h5,g8,h8,o5,p5,g8,h8] = ""
For Each cu In Range("d2:d" & [a65536].End(3).Row)
If cu.Value < [g2] Then
[g5] = cu.Offset(0, -2).Value
[h5] = cu.Row
[g8] = Application.Count(Range("e2:e" & cu.Row)) / 3600
[h8] = Application.Sum(Range("e2:e" & cu.Row)) / 3600
GoTo 99
End If
Next
99 For Each cu2 In Range("m2:m" & [j65536].End(3).Row)
If cu2.Value < [o2] Then
[o5] = cu2.Offset(0, -2).Value
[p5] = cu2.Row
[o8] = Application.Count(Range("p2:p" & cu2.Row)) / 3600
[p8] = Application.Sum(Range("p2:p" & cu2.Row)) / 3600
Exit Sub
End If
Next
End Sub

複製代碼

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

14^#

發表於 2014-12-9 22:37 | 只看該作者

回復 8# owen06

若以G2 current (A) <0.15為基準，我是取<0.15但最接近0.15的第一筆資料，那就是0.149 第45列

你取的值是 1.1494 第30列，其實我也不太了解版大要的是哪一種，

沒關希提供不一樣的答案供參考

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-12-18

15^#

發表於 2014-12-9 22:47 | 只看該作者

回復 7# marklos

先名稱定義
PW=OFFSET(工作表1!$E$1,,,VALUE(工作表1!$H$5))

公式改為如下
=COUNT(E2:E61)/3600 --> =COUNT(PW)/3600
=SUM(E2:E61)/3600 --> =SUM(PW)/3600

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

16^#

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

感謝您的大力幫忙~

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

17^#

發表於 2014-12-10 14:18 | 只看該作者

回復 13# owen06

感謝您的大力幫忙

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

18^#

發表於 2014-12-10 16:10 | 只看該作者

回復 13# owen06

如果[g8]要變更成計算時間差,如下~~VBA要怎麼寫~
=TEXT(g5-B2+(g5<B2),"[ss]"/3600

帖子: 63
主題: 15
精華: 0
積分: 100
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2011-12-22
最後登錄: 2024-8-21

19^#

發表於 2016-5-4 10:37 | 只看該作者

回復 9# owen06

如果符合條件還要加入連續出現5次以上才回傳Sample time & 儲存格列號 , 要怎麼做呢?