[發問] 時間和時間的計算

sammay

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

下載次數: 10

2012-3-15 17:05

下載 (60.66 KB)

2012-3-15 17:08

sammay

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

hugh0620

回復 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

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

sammay

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

sammay

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

Hsieh

回復 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

複製代碼