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

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

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

vba 自動時間update抓取程式

超級版主 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兔年全勤獎章

4^# 跳轉到 »

發表於 2011-11-28 16:56 | 只看該作者

回復 3# tonycho33
這是工作表 Sheet1的程式碼

問是否可按照B欄順序下來呢:
For Each E In [C6:C14] -> For Each E In Range("B1", Range("B1").End(xlDown))

中學生 Rank: 2

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

3^#

發表於 2011-11-28 16:50 | 只看該作者

你好
執行完後出現
{找不到巨集 Sheet1.Ex}
另外請問是否可按照B欄順序下來呢
謝謝

超級版主 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兔年全勤獎章

2^#

發表於 2011-11-28 16:31 | 只看該作者

本帖最後由 GBKEE 於 2011-11-28 16:52 編輯

回復 1# tonycho33
工作表 Sheet1的程式碼

Option Explicit
Sub Ex()
Dim E As Range, AR(), i As Integer, N As Variant
ReDim AR(1, 0)
For Each E In [C6:C14]
If [H6] + (1 / 24 * E) > Now Then
AR(0, UBound(AR, 2)) = E.Offset(, -1)
AR(1, UBound(AR, 2)) = CDbl([H6] + 1 / 24 * E)
ReDim Preserve AR(1, UBound(AR, 2) + 1)
End If
Next
[G7].Resize(3, 2) = ""
If UBound(AR, 2) = 0 Then
Exit Sub
Else
ReDim Preserve AR(1, UBound(AR, 2) - 1)
End If
For i = IIf(UBound(AR, 2) >= 1, IIf(UBound(AR, 2) = 1, 1, 2), 0) To 0 Step -1
N = Application.Small(Application.Index(AR, 2), i + 1)
N = Application.Match(N, Application.Index(AR, 2), 0) - 1
[G7].Cells(i + 1, 1) = AR(0, N)
[G7].Cells(i + 1, 2) = AR(1, N)
Next
Application.OnTime Time + #12:01:00 AM#, "SHEET1.Ex" '1分鐘執行一次
End Sub

複製代碼

靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。

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