- 最後登錄
- 2024-9-16
- 在線時間
- 7248 小時
- 註冊時間
- 2010-5-4
- 閱讀權限
- 95
- 精華
- 0
- UID
- 7964333
- 帖子
- 155
- 積分
- 1285 點
- 潛水值
- 47965 米
| 若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。 給你參考,你可以拿去改成更有效率的函式
那個CInt(),我忘了要不要加,以防萬一還是加了
- '判斷欄位 日期A 是否等於 value 的值
- '如果相同,則把欄位 時間B 的值加於 SumTime
- '整個工作表都判斷完後,傳回 SumTime 的值
- Public Function SumTime(Byval value as string) As Integer
- Dim i As Range
- SumTime = 0
-
- For Each i In Sheet1.Rows
- If i.Columns(1).Value = value Then
- SumTime = SumTime + CInt(i.Columns(2).Value)
- End If
- Next i
- End Sub
複製代碼
... |
|