再問資料驗證 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 再問資料驗證

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

再問資料驗證

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-10-16 07:39 | 顯示全部帖子

回復 1# modelcrazyer
不會因為我的滑鼠到處亂點,而一直增加上去
那你希望在何條件下執行 Sub Worksheet_SelectionChange

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-19 08:10 | 顯示全部帖子

回復 4# modelcrazyer
這工作表的程式碼

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Ex Target(1)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ex Target(1)
End Sub
Sub Ex(xlTarget As Range)
On Error Resume Next
'設定當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式，而繼續執行下去
If xlTarget.Column = 1 Then 'A欄
With xlTarget
If .Value <> "" Then
.Validation.InCellDropdown = False '沒有資料驗證會有錯誤
Else
.Validation.InCellDropdown = True '沒有資料驗證會有錯誤
End If
End With
End If
End Sub

複製代碼

靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。

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