如何在開啟檔案時游標固定在某一儲存格 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何在開啟檔案時游標固定在某一儲存格

返回列表下一主題上一主題發帖

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

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-9-13 10:42 | 顯示全部帖子

回復 1# bhsm

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

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-11-27 11:18 | 顯示全部帖子

回復 6# p212
任一儲存格執行「儲存檔案」關檔後，再度開啟檔案時游標固定在指定的儲存格 :是這[任一儲存格] 的位置?

Option Explicit
Private Sub Workbook_Open()
Dim a
On Error Resume Next
a = Names("aa")
If Err <> 0 Then Names.Add "aa", "d2"
On Error GoTo 0
With Sheets(1)
.Activate
a = Replace(Mid(Names("aa"), 2), """", "")
.Range(a).Activate
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Names.Add "aa", ActiveCell.Address '任一儲存格的位置
Me.Save
End Sub

複製代碼

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

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-11-27 12:24 | 顯示全部帖子

回復 8# p212

Option Explicit
Private Sub Workbook_Open()
Dim a
On Error Resume Next
a = Names("說明")
If Err <> 0 Then Names.Add "說明", ActiveSheet.[B3].Address(, , , 1)
On Error GoTo 0
a = Replace(Mid(Names("說明"), 2), """", "")
With Sheets(Range(a).Parent.Name)
.Activate
.Range(a).Activate
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Names.Add "說明", ActiveSheet.[B3].Address(, , , 1) '含的位置
'1=True 則傳回外部參照。若為 False 則傳回區域參照。預設值為 False。
Me.Save
End Sub

複製代碼

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

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-11-27 15:17 | 顯示全部帖子

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

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

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

返回列表下一主題上一主題