Board logo

標題: 找到今天的的位置 [打印本頁]
作者: myleoyes    時間: 2010-7-17 11:16     標題: 找到今天的的位置

各位前輩你們好!
　　      前輩!問題如附檔案說明
          請知道的前輩,不吝賜教謝謝再三!!
作者: Hsieh    時間: 2010-7-17 11:52

回復 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    時間: 2010-7-18 09:51

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

回復  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    時間: 2010-7-18 19:35

回復 4# kimbal
kimbal前輩你好!
       前輩!謝謝!!這樣不行耶!
       如附檔案請參考看看
       請再指導謝謝再三!!!
作者: kimbal    時間: 2010-7-18 21:13

回復  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    時間: 2010-7-18 22:59

回復 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    時間: 2010-7-19 08:46

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)