HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-5-18 10:54 | 只看該作者

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

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

提醒.rar (8.29 KB)

樓主熱帖

GBKEE

超級版主 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-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元的贊助,人人有能力.

TOP

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2014-5-19 01:51 | 只看該作者

回復 2# GBKEE

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 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

複製代碼

TOP

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2014-5-19 12:46 | 只看該作者

回復 4# c_c_lai

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

TOP

GBKEE

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

發表於 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元的贊助,人人有能力.

TOP

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2014-5-20 10:19 | 只看該作者

回復 6# GBKEE

原來是這樣!

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

TOP