找到今天的的位置

myleoyes

各位前輩你們好!
　　      前輩!問題如附檔案說明
          請知道的前輩,不吝賜教謝謝再三!!

Hsieh

回復 1# myleoyes

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Date, lookat:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "找不到今天"
   
6. End With
   
7. End Sub

複製代碼

myleoyes

回復 2# Hsieh
hsieh前輩你好!
       偶像前輩!謝謝!!小弟再請教
       如果遇到儲存格的日期皆以數值表示
       程式又如何?可否再指導辛苦囉!!
       謝謝再三!!!

kimbal

回復  Hsieh
hsieh前輩你好!
       偶像前輩!謝謝!!小弟再請教
       如果遇到儲存格的日期皆以數值表 ...
myleoyes 發表於 2010-7-18 09:51

    你的意思是 如 2010717, 2010608 這些?

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Format(Date, "YYYYMMDD"), LookAt:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "找不到今天"
   
6. End With
   
7. End Sub

複製代碼

或是公式裡的數值?

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Date, LookIn:=xlValues, LookAt:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "找不到今天"
   
6. End With
   
7. End Sub

複製代碼

myleoyes

回復 4# kimbal
kimbal前輩你好!
       前輩!謝謝!!這樣不行耶!
       如附檔案請參考看看
       請再指導謝謝再三!!!

kimbal

回復  kimbal
kimbal前輩你好!
       前輩!謝謝!!這樣不行耶!
       如附檔案請參考看看
       請再 ...
myleoyes 發表於 2010-7-18 19:35

比較笨的方法 , 加格式來找:

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Format(Date, "#,##0 "), LookIn:=xlValues, LookAt:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "找不到今天"
   
6. End With
   
7. End Sub

複製代碼

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(Format(Date, "#"), LookIn:=xlFormulas, LookAt:=xlWhole)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "找不到今天"
   
6. End With
   
7. End Sub

複製代碼

Hsieh

回復 5# myleoyes

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. Set Rng = .Cells.Find(CDbl(Date), LookIn:=xlFormulas)
   
4. .Select
   
5. If Not Rng Is Nothing Then Rng.Select Else MsgBox "找不到今天"
   
6. End With
   
7. End Sub

複製代碼

myleoyes

回復 7# Hsieh
kimbal前輩你好!
       前輩!謝謝!!可以囉!謝謝再三!!!
hsieh前輩你好!
       偶像前輩!已經可以謝謝再三!!!