設定工作表的工作範圍

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

2^#

發表於 2013-8-16 09:44 | 顯示全部帖子

回復 3# stillfish00

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

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

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

3^#

發表於 2013-8-18 09:23 | 顯示全部帖子

回復 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

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

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

4^#

發表於 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! 代碼

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

5^#

發表於 2013-8-18 19:39 | 顯示全部帖子

回復 8# c_c_lai

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

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

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

6^#

發表於 2013-8-18 21:43 | 顯示全部帖子

回復 10# c_c_lai

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

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

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

7^#

發表於 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! 代碼