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

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

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

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

博士班 Rank: 6 Rank: 6

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

1^# 跳轉到 »

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

複製代碼

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

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