如何改成迴圈&語法修正求助!! - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何改成迴圈&語法修正求助!!

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

[發問] 如何改成迴圈&語法修正求助!!

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

1^# 跳轉到 »

發表於 2014-5-18 17:14 | 顯示全部帖子

回復 1# HSIEN6001

Option Explicit
Private Sub Workbook_Open()
Dim E As Range
With Sheets("提醒")
For Each E In .Range("B2", .Range("B2").End(xlDown))
Application.OnTime E, "時間提醒"
Next
For Each E In .Range("D2", .Range("D2").End(xlDown))
Application.OnTime E, "註記"
Next
End With
End Sub

複製代碼

Option Explicit
Sub 時間提醒()
MsgBox "TIME IS UP"
End Sub
Sub 註記()
With Sheets("提醒").Range("D:D")
MsgBox .Find(Format(Time, "hh:mm"), LookIn:=xlValues).Offset(, 1)
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

超級版主 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^#

發表於 2014-5-19 13:43 | 顯示全部帖子

回復 3# HSIEN6001

Option Explicit
Private Sub Workbook_Open()
Dim E As Range
With Sheets("提醒")
For Each E In .Range("B2", .Range("B2").End(xlDown))
Application.OnTime E, "時間提醒"
Next
For Each E In .Range("D2", .Range("D2").End(xlDown))
Application.OnTime E, "註記"
'這是依據D2往下的時間設定 Application.OnTime 的時間
Next
End With
End Sub

複製代碼

不知道為甚麼執行結果
MsgBox .Find(Format(Time, "hh:mm"), LookIn:=xlValues).Offset(, 1)
出現,執行階段錯誤91，沒有設定物件變數或with區塊變數

難道你檔案中D2往下的時間格式不是"hh:mm"

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 原諒別人就是善待自己。

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