12
返回列表 上一主題 發帖

如何在開啟檔案時游標固定在某一儲存格

bhsm

帖子
95 
主題
12 
精華
0 
積分
115 
點名
96  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-4-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-13 10:06 | 只看該作者

如何在開啟檔案時游標固定在某一儲存格

請問高手:
        小弟有一個excel檔案T.xls.內有A.B.C三個工作表.請問如何在開啟T檔時.畫面會顯示在B工作表.且會將游標固定在B工作表的D2儲存格.讓我輸入資料呢?謝謝
收藏 分享
年齡不小,但我很想學

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-9-13 10:42 | 只看該作者
回復 1# bhsm


   
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bhsm

帖子
95 
主題
12 
精華
0 
積分
115 
點名
96  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-4-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
3#
發表於 2013-9-13 12:03 | 只看該作者
回復 2# GBKEE
感謝GBKEE大.按照您的方式.一切搞定.謝謝
年齡不小,但我很想學

TOP

bhsm

帖子
95 
主題
12 
精華
0 
積分
115 
點名
96  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-4-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
4#
發表於 2013-9-13 12:27 | 只看該作者
回復 2# GBKEE
再請教GBKEE大.為什麼有些檔案無法執行會出現下面這個畫面呢?
年齡不小,但我很想學

TOP

bhsm

帖子
95 
主題
12 
精華
0 
積分
115 
點名
96  
作業系統
XP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-29 
最後登錄
2024-4-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章
5#
發表於 2013-9-13 12:38 | 只看該作者
回復 2# GBKEE
已解決.不煩勞GBKEE大了
年齡不小,但我很想學

TOP

p212

帖子
617 
主題
17 
精華
0 
積分
662 
點名
1  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2013 
閱讀權限
50 
性別
男 
來自
Pingtung 
註冊時間
2011-9-2 
最後登錄
2024-3-7 

2014馬年全勤獎章2013蛇年全勤獎章熱烈參與勳章
6#
發表於 2013-11-27 09:41 | 只看該作者
本帖最後由 p212 於 2013-11-27 09:45 編輯

回復 2# GBKEE
請教GBKEE大
就1#問題而言，若游標停於非B工作表之任一儲存格執行「儲存檔案」且「關檔」，則再度開啟T檔時，畫面將不會固定顯示在B工作表的D2儲存格。
請問應如何修改使游標停置於任一儲存格執行「儲存檔案」關檔後，再度開啟檔案時游標固定在指定的儲存格？
謝謝！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2013-11-27 11:18 | 只看該作者
回復 6# p212
任一儲存格執行「儲存檔案」關檔後，再度開啟檔案時游標固定在指定的儲存格  :是這[任一儲存格] 的位置?
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     Dim a
  4.     On Error Resume Next
  5.     a = Names("aa")
  6.     If Err <> 0 Then Names.Add "aa", "d2"
  7.     On Error GoTo 0
  8.     With Sheets(1)
  9.         .Activate
  10.         a = Replace(Mid(Names("aa"), 2), """", "")
  11.         .Range(a).Activate      
  12.     End With
  13. End Sub
  14. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  15.     Names.Add "aa", ActiveCell.Address   '任一儲存格的位置
  16.     Me.Save
  17. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

p212

帖子
617 
主題
17 
精華
0 
積分
662 
點名
1  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2013 
閱讀權限
50 
性別
男 
來自
Pingtung 
註冊時間
2011-9-2 
最後登錄
2024-3-7 

2014馬年全勤獎章2013蛇年全勤獎章熱烈參與勳章
8#
發表於 2013-11-27 12:02 | 只看該作者
本帖最後由 p212 於 2013-11-27 12:04 編輯

回復 7# GBKEE
感謝GBKEE大的指導！
1、[任一儲存格] 的位置係指隨機的儲存格，而不是標示為[任一儲存格] 文字的儲存格。
2、本人將GBKEE大指導的內容套用至個人檔案，其中"aa"取代為"說明"，"d2"取代為"b3"執行測試，結果失敗。(目標：在非為「說明」工作表之隨機的儲存格執行存檔、關檔，之後再度開啟檔案，畫面游標將固定於「說明」工作表的B3儲存格。)
3、a = Replace(Mid(Names("aa"), 2), """", "")修改為a = Replace(Mid(Names("說明"), 2), """", "") 哪裏不對？應如何修改？
GBKEE大可否再次指導？
謝謝！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2013-11-27 12:24 | 只看該作者
回復 8# p212
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     Dim a
  4.     On Error Resume Next
  5.     a = Names("說明")
  6.     If Err <> 0 Then Names.Add "說明", ActiveSheet.[B3].Address(, , , 1)
  7.     On Error GoTo 0
  8.     a = Replace(Mid(Names("說明"), 2), """", "")
  9.     With Sheets(Range(a).Parent.Name)
  10.         .Activate
  11.         .Range(a).Activate
  12.     End With
  13. End Sub
  14. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  15.     Names.Add "說明", ActiveSheet.[B3].Address(, , , 1)    '含的位置
  16.     '1=True 則傳回外部參照。若為 False 則傳回區域參照。預設值為 False。
  17.     Me.Save
  18. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

p212

帖子
617 
主題
17 
精華
0 
積分
662 
點名
1  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2013 
閱讀權限
50 
性別
男 
來自
Pingtung 
註冊時間
2011-9-2 
最後登錄
2024-3-7 

2014馬年全勤獎章2013蛇年全勤獎章熱烈參與勳章
10#
發表於 2013-11-27 15:08 | 只看該作者
回復 9# GBKEE
非常感到抱歉GBKEE大，測試結果還是失敗！
是存檔的「類型」不對？(不可存成一般的「Excel活頁簿」？要存成「Excel啟用巨集的活頁簿」方可成功？)
還是另有技巧？
冒昧請教，要再提供您什麼樣的資料才方便您解惑？
謝謝！

TOP

        靜思自在 : 話多不如話少，話少不如話好。
12
返回列表 上一主題