標題: [發問] 時間和時間的計算 [打印本頁]

---

作者: sammay    時間: 2012-3-15 17:08     標題: 時間和時間的計算

請問各位大大前輩們：
問題一：求解如何得出F2、F3、F4等等的值，如何下函數或公式。
問題二：E2=DATEDIF(C2,D2,"D")和F2的公式如何經由VBA方式一筆一筆的寫入呢？不想用儲存格複製這個方法，因為資料會一直增加。
[attach]9998[/attach]
[attach]9999[/attach]

---

作者: Hsieh    時間: 2012-3-15 20:28

回復 1# sammay

1. Sub ex()
   
2. For Each a In [C2:C4]
   
3.   a.Offset(, 2) = DateDiff("D", a, a.Offset(, 1))
   
4.   a.Offset(, 3) = Format(a.Offset(, 1) - a - DateDiff("D", a, a.Offset(, 1)), "h:mm:ss")
   
5. Next
   
6. End Sub

複製代碼

---

作者: sammay    時間: 2012-3-16 09:39

回復 2# Hsieh
感謝Hsieh大大的鼎力相助

---

作者: sammay    時間: 2012-3-16 09:43

再請Hsieh大大
程式碼中，For Each a In [C2:C4] 其中的C4如何設成變數呢？

---

作者: sammay    時間: 2012-3-16 09:44

回復 2# Hsieh
再請Hsieh大大
程式碼中，For Each a In [C2:C4] 其中的C4如何設成變數呢？

---

作者: hugh0620    時間: 2012-3-22 13:40

回復 4# sammay

要花一點時間~ 了解~ 基本儲存格的用法~
就可以自行修改~ 加油~

1. Sub ex()
   
2. A = Range("C65536").End(xlUp).Row '以C欄位來確定資料最後一筆
   
3. For Each A In Range("C2:C" & A)   'A是一個變動的位置
   
4.   A.Offset(, 2) = DateDiff("D", A, A.Offset(, 1))
   
5.   A.Offset(, 3) = Format(A.Offset(, 1) - A - DateDiff("D", A, A.Offset(, 1)), "h:mm:ss")
   
6. Next
   
7. End Sub

複製代碼

---

作者: sammay    時間: 2012-3-30 08:29

回復 6# hugh0620
感謝hugh0620前輩的鼎力相助，感恩！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)