返回列表 上一主題 發帖

設定工作表的工作範圍

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2013-8-16 08:32 | 顯示全部帖子
回復 1# 自我感覺良好


這樣試試

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.End(xlToLeft).Select
End Sub

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2013-8-19 08:34 | 顯示全部帖子
回復 7# 自我感覺良好

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Target.EntireRow).Select
    Range("A1").Select
    activecell.value="abcdeff1234"
    End Sub
你如果能明確一點的說出你的想法及做法，大家比較能夠確實的幫助到你，
還有為什麼在執行完了第一行『不管點到哪一格，都會跳到該列的第一格』的指令之後，
你還要再下一個Range("A1").Select的指令？
這樣一來當然就不管你做什麼，都是跳回去A1啦@@，這樣第一個指令根本就是多餘的了。
你如果是單純想讓A1能顯示出你要的內容，你就捨棄[A1].SELECT
直接下[A1]="OOXX" 就好了。

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題