※ [本文转录自 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/cn.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/cn.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