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

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

再問資料驗證

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-10-19 00:24 | 只看該作者

再問資料驗證

各位達人:
以下是我的資料驗證程式
S = Worksheets("工作表2").Cells(Rows.Count, "a").End(xlUp).Row
Num3 = Worksheets("工作表1").Cells(Rows.Count, "a").End(xlUp).Row
With Worksheets("工作表2").Range("A" & S + 1).Validation
.Delete
.Add Type:=xlValidateList, Operator:= _
xlBetween, Formula1:="=工作表1!$A$2:$A$" & Num3
.IgnoreBlank = Fsale
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
我有個天馬行空的想法不知道能不能辦到,就是當我點選了某個A欄的資料驗證後
該儲存格就不會出現下拉選單,但是當我用delete把該儲存格的資料清除後
又能再出現資料驗證的下拉選單,這樣的想法有沒有可能辦到

樓主熱帖

收藏

超級版主 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兔年全勤獎章

5^#

發表於 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

複製代碼

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

4^#

發表於 2012-10-16 22:03 | 只看該作者

謝謝!!我已經解決了!!

超級版主 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兔年全勤獎章

3^#

發表於 2012-10-16 07:39 | 只看該作者

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

中學生 Rank: 2

帖子: 66
主題: 28
精華: 0
積分: 95
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 20
註冊時間: 2012-10-1
最後登錄: 2018-6-26

2^#

發表於 2012-10-15 23:49 | 只看該作者

有關資料驗證的問題

附件是我的表單和程式,想請教各位達人
我該怎麼修改才能讓我的A列中的數字
不會因為我的滑鼠到處亂點,而一直增加上去

製作表單.rar (46.38 KB)

靜思自在 : 為自己找藉口的人永遠不會進步。

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