→ soyoso: 如符合日期序列值的話，函數min來回傳最早日期 09/24 12:33
→ soyoso: 至今天數函數today()減k2的值，格式化條件大於等於60，字 09/24 12:34
→ soyoso: 型色彩改為紅色；打開該檔案時跳出警示視窗方面，想到的是 09/24 12:35
→ soyoso: 巨集workbook_open觸發，msgbox來顯示提醒的字串 09/24 12:35
→ soyoso: 防呆提醒要以符合日期格式鍵入的話，可於資料驗證，儲存格 09/24 12:39
→ soyoso: 內允許，日期。e:j欄儲存格格式改為yyyy/mm/dd，這樣1/15 09/24 12:40
→ soyoso: 的鍵入方式也可符合日期序列值的西元年格式 09/24 12:40
→ ck3300511: 如果Ｌ欄有任何一個儲存格大於等於60 09/24 13:20
→ ck3300511: 是用For Each cell In rng嗎？ 09/24 13:21
→ soyoso: 這要看大於等於60是要顯示紅字(以格式化條件)，或跳出警示 09/24 13:31
→ soyoso: 視窗，如是要該視窗msgbox的話可用回文for each..next 09/24 13:32
→ soyoso: 來累計合併最後要帶入視窗內的字串 09/24 13:32
→ ck3300511: 嗎?如果是L欄其中一個儲存格>=60就會跳Msgbox的話 09/24 21:41
→ soyoso: 1.該活頁簿只有一個工作表嗎？二個工作表以上的話是否作用 09/24 22:02
→ soyoso: 的工作表就是判斷L1:L9999的工作表呢？如果不一定的話，請 09/24 22:03
→ soyoso: 以sheets.range或workshees.range的方式指定 09/24 22:03
→ soyoso: 2.要看迴圈於L1:L9999執行上的效率，如調整為動態的話，可 09/24 22:05
→ soyoso: 以range.end、range.find取得最後有值的儲存格，如要回傳 09/24 22:06
→ soyoso: 列號的話以row；如為連續資料的話也可以工作表函數counta 09/24 22:07
→ soyoso: 或count 09/24 22:07
→ soyoso: 如L欄其中一個儲存格大於等於>=60就跳msgbox方式就要看還 09/24 22:08
→ soyoso: 要於訊息內加上什麼資訊。 09/24 22:10
→ soyoso: 1.只有要一筆符合，跳出訊息且離開迴圈的話exit for 09/24 22:11
→ soyoso: 2.回傳的訊息要有那個儲存格符合條件的話range.address 09/24 22:11
→ soyoso: 字串連接上以&；若是要全部符合儲存格都連接的話，設個 09/24 22:13
→ soyoso: 變數來連結&，再將msgbox的部分移到next下方 09/24 22:15
→ ck3300511: 只要有一筆符合就跳出訊息 exit for要怎麼用呀 09/24 22:16
→ soyoso: 如只要有一筆符合跳出訊息且離開迴圈的話 exit for就寫在 09/24 22:19
→ soyoso: msgbox 下方 09/24 22:19
→ soyoso: 如是要上述的話，也可以工作表函數countif，當計數大於0時 09/24 22:24
→ soyoso: 就msgbox訊息，可不用迴圈 09/24 22:25
→ ck3300511: 謝謝Ｓ大 09/24 22:36
→ ck3300511: 請問next和exit for要加在哪？ 09/25 21:02
→ ck3300511: 今天試跑出現錯誤訊息說沒有next 09/25 21:03
→ ck3300511: next加的位置好像會牽連exit for 09/25 21:03
→ soyoso: 方；exit for加在end if上方 09/25 22:36
→ ck3300511: 好!明天試試看~謝謝S大 09/25 22:52