自我感覺良好

回復 10# c_c_lai

還是有問題
要關檔案會很困難。

c_c_lai

回復 11# 自我感覺良好
不太明瞭你的陳述，請上傳檔案看看。

owen06

回復 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" 就好了。

自我感覺良好

回復 13# owen06


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Application.Intersect([A:A], Target.EntireRow).Select
    [A1] = "自我感覺良好"
    End Sub
可以正常使用了
太感謝了!
加上[A1] = "自我感覺良好"
我的excel 都要加上…
不去改巨集是無法清除的。