123
返回列表 上一主題 發帖

excel 時間是否可以相減

xmi

帖子
26 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
註冊時間
2011-4-26 
最後登錄
2015-5-23 
12# 跳轉到 »
發表於 2015-3-26 19:35 | 只看該作者
回復 11# sghsgh1111


    你好, 25時即是零晨的1時(24+1) , 用以計overnight的時間.

TOP

sghsgh1111

帖子
29 
主題
8 
精華
0 
積分
58 
點名
0  
作業系統
WinXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-6-1 
11#
發表於 2015-3-20 23:29 | 只看該作者
不懂, 一天也才 24 小時, 為什麼會出現 27:00 and 25:45 ?

TOP

xmi

帖子
26 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
註冊時間
2011-4-26 
最後登錄
2015-5-23 
10#
發表於 2015-3-20 21:06 | 只看該作者
回復 9# sghsgh1111

謝謝你...
請問如果是以下形式又應如何改?
如:
A1           A2            Result
13:00     15:00        2小時
22:00     27:00        5小時
23:00     25:45   2.75小時

TOP

sghsgh1111

帖子
29 
主題
8 
精華
0 
積分
58 
點名
0  
作業系統
WinXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-6-1 
9#
發表於 2015-3-14 17:56 | 只看該作者
  1. Sub ex()
  2.     Dim a, b, c

  4.     For c = 1 To 20
  5.         a = Range("A" & c + 1).Value
  6.         b = Range("B" & c + 1).Value
  7.         If a = "" Then Exit For
  8.         If b < a Then b = b + 1
  9.         With Cells(c + 1, 3)
  10.             .Value = (b - a) * 24
  11.             .NumberFormat = "0.00時"
  12.         End With
  13.     Next
  14. End Sub
複製代碼
回復 8# xmi

TOP

xmi

帖子
26 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
註冊時間
2011-4-26 
最後登錄
2015-5-23 
8#
發表於 2015-3-13 21:46 | 只看該作者
回復  sghsgh1111
試試看
GBKEE 發表於 2015-3-10 08:13


請問如果是以CELL的INPUT應如何改?
如:
A1           A2            Result
13:00     15:00        2小時
22:00     03:00        5小時

TOP

sghsgh1111

帖子
29 
主題
8 
精華
0 
積分
58 
點名
0  
作業系統
WinXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-6-1 
7#
發表於 2015-3-11 22:47 | 只看該作者
感謝大大的說明

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2015-3-11 06:09 | 只看該作者
回復 5# sghsgh1111
日期相減後的數字,整數是日數(1天有24小時),小數點後的數字是小時數(*60=分鐘數)
d1-d2 如=2.15 -> 2.15*24=51.6小時,2.15*24*60=3096分鐘,2.15*24*60*60=185760秒

對匯入外部資料不熟悉可參考 VBA的 QueryTable 物件說明
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

sghsgh1111

帖子
29 
主題
8 
精華
0 
積分
58 
點名
0  
作業系統
WinXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-6-1 
5#
發表於 2015-3-11 00:15 | 只看該作者
可以再多問一個問題嗎

QueryTables 要如何滙入其他的 excel 檔案
這是錄置巨集所產生的程式碼, 但不了解這個語法, 可以解答嗎
  這個巨集可以再簡化嗎  

  With ActiveSheet.QueryTables.Add(Connection:=Array( _
        "OLEDBrovider=Microsoft.Jet.OLEDB.4.0assword="""";User ID=Admin;Data Source=I:\VBA.xls;Mode=Share Deny Write;Extended Prop" _
        , _
        "erties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDBatabase Password="""";Jet OLEDB:Engine Type=3" _
        , _
        "5;Jet OLEDBatabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab" _
        , _
        "ase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=F" _
        , "alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
        Destination:=Range("A2"))
        .CommandType = xlCmdTable
        .CommandText = Array("Status$")
        .Name = "VBA_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "I:\VBA.xls"
        .Refresh BackgroundQuery:=False
    End With

TOP

sghsgh1111

帖子
29 
主題
8 
精華
0 
積分
58 
點名
0  
作業系統
WinXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2015-3-2 
最後登錄
2015-6-1 
4#
發表於 2015-3-10 23:56 | 只看該作者
謝謝指導, 之前也是這樣直接相減, 但減後都是 0.01xxx
但我看上面有在 X 24 , 這個意思不是很懂, 可以說明一下嗎
為什麼不是 X 60 ???
不過以這個算法來, 看起是ok

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2015-3-10 09:52 | 只看該作者
回復 1# sghsgh1111
可以自己試試 DateDiff 函數
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
123
返回列表 上一主題