麻辣家族討論版版 » Excel程式區 » vba 自動時間update抓取程式

返回列表下一主題上一主題發帖

vba 自動時間update抓取程式

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-11-28 10:36 | 只看該作者

vba 自動時間update抓取程式

請問各位
假設我有一列資料，另一邊是顯示資料(保留3筆),可以設定時間到，就自動消失，後面自動遞補(類似火車時刻畫面)

time.rar (1.97 KB)

11

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2011-11-29 11:08 | 只看該作者

回復 12# tonycho33
那可以設定時間到，就自動消失，後面自動遞補完全是多餘的,
只抓前在4筆資料用函數 H7=H6+C6*(1/24) 下拉就可以.

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

12^#

發表於 2011-11-29 10:44 | 只看該作者

回復 11# GBKEE

你好
不好意思
我的題意是指假設目前時間是10：40
AA  0.2小時
BB 0.1小時
CC  0.3小時
DD  0.4小時

則 AA會先排然後時間跳到10：40+0.2小時（12分）＝10：52
然後跳到BB 時間10：52+0.1小時（6分）＝10：58
然後跳到CC時間10：58+0.3小時（18分）＝11：16
然後跳到DD時間11：16+0.4小時（24分）＝11：40
謝謝

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^#

發表於 2011-11-29 10:00 | 只看該作者

回復 10# tonycho33
1# :另一邊是顯示資料(保留3筆),可以設定時間到，就自動消失，後面自動遞補(類似火車時刻畫面) : 請問我給你程式是有符合此題意嗎?
可以按照B欄AA、BB、CC、DD、EE....的順序下來嗎 : 請你弄個實際範例說明.

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

10^#

發表於 2011-11-29 09:44 | 只看該作者

回復 9# GBKEE

你好
照這樣輸入後，好像是按照C欄時間最短的先排，可以按照B欄AA、BB、CC、DD、EE....的順序下來嗎
謝謝

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-11-29 08:28 | 只看該作者

回復 8# tonycho33

預定時間這裡,要輸入日期時間 ,
附檔程式碼要按照B欄順序下來
需修改為 For Each E In Range("C6", Range("C6").End(xlDown))

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

8^#

發表於 2011-11-29 08:10 | 只看該作者

回復 7# tonycho33

time.rar (7.98 KB)

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

7^#

發表於 2011-11-28 17:39 | 只看該作者

For Each E In Range("B1", Range("B1").End(xlDown))

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-11-28 17:14 | 只看該作者

回復 5# tonycho33
型態不符合 (錯誤 13) 這是那一行的錯誤請附檔才看的到.
如是B欄需全部是數字

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

5^#

發表於 2011-11-28 17:07 | 只看該作者

你好顯示問題
型態不符合 (錯誤 13)
謝謝

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。

返回列表下一主題上一主題