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

棋語鳥鳴

下載 (28.4 KB)

2011-5-19 21:06

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

GBKEE

回復 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

複製代碼

棋語鳥鳴

回復 2# GBKEE


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

bugsfamily

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

GBKEE

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