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

再問資料驗證

modelcrazyer

中學生 Rank: 2

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

1^# 跳轉到 »

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

有關資料驗證的問題

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

製作表單.rar (46.38 KB)

TOP

GBKEE

超級版主 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-16 07:39 | 只看該作者

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

TOP

modelcrazyer

中學生 Rank: 2

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

3^#

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

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

TOP

modelcrazyer

中學生 Rank: 2

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

4^# 倒序看帖

打印

字體大小: 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把該儲存格的資料清除後
又能再出現資料驗證的下拉選單,這樣的想法有沒有可能辦到