標題: [發問] 請問如何開啟檔案時讓第二欄自動跳到今天日期的那一欄? [打印本頁]

---

作者: 棋語鳥鳴    時間: 2011-5-19 21:13     標題: 請問如何開啟檔案時讓第二欄自動跳到今天日期的那一欄?

[attach]6277[/attach]
如圖，我已將此工作列表凍結視窗了!於第一行已輸入了日期，請問我要如何設定巨集，讓我開啟這個檔案時第二欄自動跳到今天的日期，
列如:今天是2011/5/20日，開啟檔案時第二欄就會跳成B欄!
               於20115/21日，開啟檔案時第二欄就會跳成C欄!
               於20115/22日，開啟檔案時第二欄就會跳成D欄!
               於20115/23日，開啟檔案時第二欄就會跳成E欄!
               於20115/24日，開啟檔案時第二欄就會跳成F欄!
以此類推，以當天日期決定開啟檔案時第二欄就會跳成哪一欄!
請問此種巨集要如何設!

---

作者: GBKEE    時間: 2011-5-19 21:33

本帖最後由 GBKEE 於 2011-5-19 21:34 編輯

回復 1# 棋語鳥鳴
'ThisWorkbook  的程式碼

1. Private Sub Workbook_Open()
   
2.     Dim R
   
3.    With Sheet1
   
4.         .Activate
   
5.         .[b2].Select
   
6.         ActiveWindow.FreezePanes = True
   
7.         Set R = .Rows(1).Find(Date)
   
8.         If Not R Is Nothing Then
   
9.             R.Select
   
10.             ActiveWindow.ScrollColumn = R.Column
    
11.         End If
    
12.     End With
    
13. End Sub

複製代碼

---

作者: 棋語鳥鳴    時間: 2011-5-19 21:59

回復 2# GBKEE


    謝謝您的回覆!我已經利用此巨集試驗成功了!

---

作者: bugsfamily    時間: 2011-5-20 01:08

真是厲害，20分鐘就有答案

---

作者: GBKEE    時間: 2011-5-20 06:02

回復 4# bugsfamily
半夜2點還沒睡 ,在工作嗎? 不是工作的話,早睡早起身體好.

---

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