設定工作表的工作範圍

自我感覺良好

我想把工作表設在A欄工作，就是使遊標點其它欄還是跑到A欄。
譬如點C20卻跑到A20
            D21跑到A21
這要如何做？

owen06

回復 1# 自我感覺良好


這樣試試

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

stillfish00

放到該工作表程式碼

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   Application.Intersect([A:A], Target.EntireRow).Select
   
3. End Sub

複製代碼

回復 1# 自我感覺良好

不然就保護儲存格別讓他選

自我感覺良好

回復 3# stillfish00

太 好用了
   Application.Intersect([A:A], Target.EntireRow).Select

自我感覺良好

回復 3# stillfish00

想在a1卻入文字
改成這樣卻不能用，不知錯在那裡…
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Target.EntireRow).Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "不知錯在那裡…"
    End Sub

sunnyso

ActiveCell.FormulaR1C1 = "不知錯在那裡…"
改
activecell.value="abcdeff1234"

自我感覺良好

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Target.EntireRow).Select
    Range("A1").Select
    activecell.value="abcdeff1234"
    End Sub

還是不能用
而且程式會目亂掉了

c_c_lai

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Tar ...
自我感覺良好 發表於 2013-8-18 15:02

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Application.Intersect([A:A], Target.EntireRow).Select
   
3.     Range("A1").Select
   
4.     ActiveCell.Value = "abcdeff1234"
   
5. End Sub

複製代碼

以上程式碼是 OK 的， 你指的是甚麼，能否上傳檔案？

自我感覺良好

回復 8# c_c_lai


    只能在A1工作了。
    滑鼠怎樣點都去A1

c_c_lai

回復 9# 自我感覺良好
請將原本之

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Application.Intersect([A:A], Target.EntireRow).Select
   
3. End Sub

複製代碼

修改成

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.Intersect([A:A], Target.EntireRow).Select
   
3. End Sub

複製代碼

便可以在其他欄位進行輸入了。
你希望的是不是這樣？