設定工作表的工作範圍

帖子: 117
主題: 42
精華: 0
積分: 164
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2025-7-22

14^#

發表於 2013-8-19 10:54 | 只看該作者

回復 13# owen06

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

50 字節以內
不支持自定義 Discuz! 代碼

owen06

　暱稱: 阿軒

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

13^#

發表於 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" 就好了。

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2013-8-19 08:26 | 只看該作者

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

帖子: 117
主題: 42
精華: 0
積分: 164
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2025-7-22

11^#

發表於 2013-8-18 21:43 | 只看該作者

回復 10# c_c_lai

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

50 字節以內
不支持自定義 Discuz! 代碼

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

10^#

發表於 2013-8-18 20:30 | 只看該作者

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

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

複製代碼

修改成

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

複製代碼

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

帖子: 117
主題: 42
精華: 0
積分: 164
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2025-7-22

9^#

發表於 2013-8-18 19:39 | 只看該作者

回復 8# c_c_lai

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

50 字節以內
不支持自定義 Discuz! 代碼

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

發表於 2013-8-18 18:40 | 只看該作者

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

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

複製代碼

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

帖子: 117
主題: 42
精華: 0
積分: 164
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2025-7-22

7^#

發表於 2013-8-18 15:02 | 只看該作者

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

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

50 字節以內
不支持自定義 Discuz! 代碼

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

6^#

發表於 2013-8-18 12:15 | 只看該作者

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

ss