求助：请帮忙看看EXCEL的问题（查找数据和CTRL+F消失）

johnwuproo

Sub SearchNote()
    On Error Resume Next
    Sheets("NOTE").Select
    Range("A1").Select
    'Application.Dialogs(xlDialogFormulaFind).Show
    'Application.Dialogs(64).Show
End Sub

各位大虾，版主，烦请帮忙写一段代码。

EXCEL文件请见附件
代码功能要求：
1.点击“控制台”工作表上按钮控件（名称为"搜索当天"）后，能到“TASK”工作表寻找当天的日期（例如今天为2009-1-9），日期格式为"YYYY-M-D"，找到找到后判断明天（2009-1-10）所在行（19行）的上一行（18行）的B列是否有内容
  如果有内容则在明天所在行（19行）上面插入一空行，并且选定刚插入空行的B列（B19），以便我输入数据
  如果没内容则选定上一行B列（B19），以便我输入数据

另外在我做的文件中有一个问题，我在“控制台”工作表中做了一个按钮控件（名称为“搜索”），鼠标点击后会跳到“search1”工作表的A1单元格，然后调用“查找对话框”，查完内容后我关掉“查找对话框”，然后就发现CTRL+F的快捷键不能用了。目前的我自己发现的解决办法是再回到“控制台”工作表，点击一下“搜索”按钮，等“查找对话框”出现后，不查找，马上退出对话框。然后CTRL+F才能用。请问是不是我的代码有问题，代码如下：
Sub SearchWord()
    On Error Resume Next
    Sheets("Search1").Select
    Range("A1").Select
    Application.Dialogs(64).Show
End Sub