返回列表 上一主題 發帖

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

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-19 21:13 | 只看該作者

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


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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2024-7-5 
3#
發表於 2011-5-19 21:59 | 只看該作者
回復 2# GBKEE


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

TOP

bugsfamily

帖子
17 
主題
3 
精華
0 
積分
33 
點名
0  
作業系統
XP SP3 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2011-4-30 
最後登錄
2012-12-21 
4#
發表於 2011-5-20 01:08 | 只看該作者
真是厲害，20分鐘就有答案

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-5-20 06:02 | 只看該作者
回復 4# bugsfamily
半夜2點還沒睡 ,在工作嗎? 不是工作的話,早睡早起身體好.

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題