Board logo

標題: 如何在開啟檔案時游標固定在某一儲存格 [打印本頁]
作者: bhsm    時間: 2013-9-13 10:06     標題: 如何在開啟檔案時游標固定在某一儲存格

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

回復 1# bhsm


   [attach]16059[/attach]
作者: bhsm    時間: 2013-9-13 12:03

回復 2# GBKEE
感謝GBKEE大.按照您的方式.一切搞定.謝謝
作者: bhsm    時間: 2013-9-13 12:27

回復 2# GBKEE
再請教GBKEE大.為什麼有些檔案無法執行會出現下面這個畫面呢?
[attach]16065[/attach]
作者: bhsm    時間: 2013-9-13 12:38

回復 2# GBKEE
已解決.不煩勞GBKEE大了
作者: p212    時間: 2013-11-27 09:41

本帖最後由 p212 於 2013-11-27 09:45 編輯

回復 2# GBKEE
請教GBKEE大
就1#問題而言，若游標停於非B工作表之任一儲存格執行「儲存檔案」且「關檔」，則再度開啟T檔時，畫面將不會固定顯示在B工作表的D2儲存格。
請問應如何修改使游標停置於任一儲存格執行「儲存檔案」關檔後，再度開啟檔案時游標固定在指定的儲存格？
謝謝！
作者: GBKEE    時間: 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
複製代碼
作者: p212    時間: 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大可否再次指導？
謝謝！
作者: GBKEE    時間: 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
複製代碼
作者: p212    時間: 2013-11-27 15:08

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

回復 10# p212
2007 就是要存檔為 [Excel啟用巨集的活頁簿] ,才有巨集程式
作者: ML089    時間: 2013-11-27 23:13

回復 8# p212


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

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



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