返回列表 上一主題 發帖

[發問] 當符合條件時回傳Sample time & 其儲存格列號

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2014-12-8 16:35 | 顯示全部帖子
回復 1# marklos


    要試看看vba嗎

複本 Xl0000225.rar (12.51 KB)

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-12-9 10:47 | 顯示全部帖子
回復 3# marklos


    你下載我的附檔，開啟之後，設定好g2的值，按下右邊的按鈕，就可以了。
    按下alt+f11，可以進入vba編輯畫面，你可以研究看看。
    有問題可以再上來提出討論。

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
3#
發表於 2014-12-9 14:05 | 顯示全部帖子
回復 6# samwang


    可是回傳出來的答案是第20列的資料耶，正確的應該是第61列不是嗎？

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
4#
發表於 2014-12-9 14:18 | 顯示全部帖子
回復 7# marklos


    假設在h6跟h7要計算的話，改成這樣就行了
  1. Private Sub CommandButton1_Click()
  2. [g5,h5] = ""
  3. For Each cu In Range("d2:d" & [a65536].End(3).Row)
  4. If cu.Value < [g2] Then
  5.   [g5] = cu.Offset(0, -2).Value
  6.   [h5] = cu.Row
  7.   [h6] = Application.Count(Range("e2:e" & cu.Row)) / 3600
  8.   [h7] = Application.Sum(Range("e2:e" & cu.Row)) / 3600
  9.   Exit Sub
  10. End If
  11. Next
  12. End Sub
複製代碼

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
5#
發表於 2014-12-9 14:24 | 顯示全部帖子
回復 10# marklos

複製下列代碼貼上去取代舊的就行了
  1. Private Sub CommandButton1_Click()
  2. [g5,h5] = ""
  3. For Each cu In Range("d2:d" & [a65536].End(3).Row)
  4. If cu.Value < [g2] Then
  5.   [g5] = cu.Offset(0, -2).Value
  6.   [h5] = cu.Row
  7.   [g7] = Application.Count(Range("e2:e" & cu.Row)) / 3600
  8.   [h7] = Application.Sum(Range("e2:e" & cu.Row)) / 3600
  9.   Exit Sub
  10. End If
  11. Next
  12. End Sub
複製代碼

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
6#
發表於 2014-12-9 22:30 | 顯示全部帖子
回復 10# marklos


    將下列代碼複製貼上取代原有的內容
  1. Private Sub CommandButton1_Click()
  2. [g5,h5,g8,h8,o5,p5,g8,h8] = ""
  3. For Each cu In Range("d2:d" & [a65536].End(3).Row)
  4. If cu.Value < [g2] Then
  5.   [g5] = cu.Offset(0, -2).Value
  6.   [h5] = cu.Row
  7.   [g8] = Application.Count(Range("e2:e" & cu.Row)) / 3600
  8.   [h8] = Application.Sum(Range("e2:e" & cu.Row)) / 3600
  9.   GoTo 99
  10. End If
  11. Next
  12. 99  For Each cu2 In Range("m2:m" & [j65536].End(3).Row)
  13. If cu2.Value < [o2] Then
  14.   [o5] = cu2.Offset(0, -2).Value
  15.   [p5] = cu2.Row
  16.   [o8] = Application.Count(Range("p2:p" & cu2.Row)) / 3600
  17.   [p8] = Application.Sum(Range("p2:p" & cu2.Row)) / 3600
  18.   Exit Sub
  19. End If
  20. Next
  21. End Sub
複製代碼

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題