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

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-15 17:08 | 只看該作者

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

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

date and time.rar (7.89 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-3-15 20:28 | 只看該作者

回復 1# sammay

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

複製代碼

學海無涯_不恥下問

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

3^#

發表於 2012-3-16 09:39 | 只看該作者

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

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

4^#

發表於 2012-3-16 09:43 | 只看該作者

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

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

5^#

發表於 2012-3-16 09:44 | 只看該作者

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

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

6^#

發表於 2012-3-22 13:40 | 只看該作者

回復 4# sammay

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

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

複製代碼

學習才能提升自己

帖子: 67
主題: 21
精華: 0
積分: 113
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-11-21
最後登錄: 2019-4-23

7^#

發表於 2012-3-30 08:29 | 只看該作者

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