※ [本文轉錄自 Visual_Basic 看板 #1RiV0ooK ] 作者: Ibrahimovic (伊布) 看板: Visual_Basic 標題: Re: [算表] 尋日期錯誤 時間: Mon Oct 1 18:00:15 2018 ※ 引述《paul60209 (我是保羅小小)》之銘言： : 標題: Re: [算表] 尋日期錯誤 : 時間: Mon Oct 1 17:24:28 2018 : : ※ 引述《Ibrahimovic (伊布)》之銘言： : : ※ [本文轉錄自 Office 看板 #1RiUJIrI ] : : 作者: Ibrahimovic (伊布) 看板: Office : : 標題: [算表] 尋日期錯誤 : : 時間: Mon Oct 1 17:11:43 2018 : : 軟體: office : : 版本: 2016 : : 目的： : : 做個按鈕，功能是在工作表中搜尋到儲存格裡是今天的日期 : : 遇到問題： : : 出現錯誤訊息，說要設定物件變數或區塊變數 : : 新手如我不太了解這部分 : : 我想應該是要去設定定義名稱吧 : : 可是也不能設定日期 (例：2018/10/1) : : 想問的是： : : 目前日期的輸入格式是 2018/10/1 : : 在不改變這個原則下，有辦法修正VBA出現的錯誤嗎？ : : or : : 還有其它方式可以達成搜尋今天日期的目的嗎？ : : https://i.imgur.com/WNJHaQD.jpg : : https://i.imgur.com/Zju8hFd.jpg : : : Sub Find_Today() : Application.ScreenUpdating = False : Application.DisplayAlerts = False : Dim FC As Range 'FC為搜尋到的儲存格 : Dim d As Date : : d = Date '將今日日期指定給d : Set FC = ActiveSheet.Columns("A:A").Find(what:=DateValue(d), _ : LookIn:=xlFormulas) '指定FC的搜尋範圍與條件 : If FC Is Nothing Then : MsgBox ("找不到今日日期的資料") '沒有找到時訊息告知 : Else : FC.Select '找到時將所找到的儲存格選取起來 : End If : Application.ScreenUpdating = True : Application.DisplayAlerts = True : End Sub : : : 以上，希望有幫助到你~ : : : -- :

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.169.225.42 : ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1538385870.A.B07.html : 推 Ibrahimovic: 感謝指點~~~ 10/01 17:30 不好意思，以下問題算是多餘的 只是還想再請教一下 用上述的code 游標確實會移到該位置 但是畫面卻不會移到該位置 如果跑完上述code後，用鍵盤輸入來回的上下 or 來回的右左，畫面才會過去 所以我有再加上以下4行 v_row = ActiveCell.Row '取得目前儲存格位置(列row) v_column = ActiveCell.Column '取得目前儲存格位置(欄column) Cells(v_row + 1, v_column).Select Cells(v_row, v_column).Select 可是畫面也不會動 請問這部分有解嗎？ --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.239.153.192 ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1538388018.A.C94.html

※ 發信站: 批踢踢實業坊(ptt.cc) ※ 轉錄者: Ibrahimovic (36.239.153.192), 10/01/2018 18:00:38 解決了，真沒想到screenupdating會造成這種現象 感謝!! ※ 編輯: Ibrahimovic (36.239.153.192), 10/01/2018 18:35:13