麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 如何改成迴圈&語法修正求助!! [打印本頁]

作者: HSIEN6001 時間: 2014-5-18 10:54 標題: 如何改成迴圈&語法修正求助!!

時間提醒,該怎麼改成迴圈呢? 還有一處語法不對的部分 ^^!!
可否麻煩大大幫我看看,該怎麼修正
謝謝!
[attach]18312[/attach]

作者: GBKEE 時間: 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

複製代碼

作者: HSIEN6001 時間: 2014-5-19 01:51

回復 2# GBKEE

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

作者: c_c_lai 時間: 2014-5-19 10:18

回復 3# HSIEN6001
改成如下就OK了：

Sub 註記()
Dim c As Range
With Sheets("提醒")
Set c = .[D:D].Find(Format(Time, "hh:mm"))
If Not c Is Nothing Then
MsgBox c.Offset(, 1)
End If
End With
End Sub

複製代碼

作者: HSIEN6001 時間: 2014-5-19 12:46

回復 4# c_c_lai

謝謝您的協助,問題解決了~^__^~
感謝兩位幫忙!!

作者: GBKEE 時間: 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"

作者: HSIEN6001 時間: 2014-5-20 10:19

回復 6# GBKEE

原來是這樣!

對不起,是我後來更動欄位過,沒注意到這個部分
謝謝~

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)