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

bhsm

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

ML089

回復 8# p212


目標：在非為「說明」工作表之隨機的儲存格執行存檔、關檔，之後再度開啟檔案，畫面游標將固定於「說明」工作表的B3儲存格。

使用 2# 的說明方式就可
Private Sub workbook_Open()
    With Sheets("說明")
        .Activate
        .Range("B3").Activate
    End With
End Sub

GBKEE

回復 10# p212
2007 就是要存檔為 [Excel啟用巨集的活頁簿] ,才有巨集程式

p212

回復 9# GBKEE
非常感到抱歉GBKEE大，測試結果還是失敗！
是存檔的「類型」不對？(不可存成一般的「Excel活頁簿」？要存成「Excel啟用巨集的活頁簿」方可成功？)
還是另有技巧？
冒昧請教，要再提供您什麼樣的資料才方便您解惑？
謝謝！

GBKEE

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

複製代碼

p212

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

GBKEE

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

複製代碼

p212

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

bhsm

回復 2# GBKEE
已解決.不煩勞GBKEE大了

bhsm

回復 2# GBKEE
再請教GBKEE大.為什麼有些檔案無法執行會出現下面這個畫面呢?

下載 (15.48 KB)

2013-9-13 12:26