設定工作表的工作範圍 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 設定工作表的工作範圍

返回列表下一主題上一主題發帖

設定工作表的工作範圍

自我感覺良好

中學生 Rank: 2

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

5^# 跳轉到 »

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

自我感覺良好

中學生 Rank: 2

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

4^#

發表於 2013-8-16 09:44 | 只看該作者

回復 3# stillfish00

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

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

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2013-8-16 09:13 | 只看該作者

本帖最後由 stillfish00 於 2013-8-16 09:20 編輯

放到該工作表程式碼

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

複製代碼

回復 1# 自我感覺良好

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

　暱稱: 阿軒

中學生 Rank: 2

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

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

2^#

發表於 2013-8-16 08:32 | 只看該作者

回復 1# 自我感覺良好

這樣試試

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

靜思自在 : 欣賞別人就是莊嚴自己。

返回列表下一主題上一主題