如何用VBA實作資料檢查!
在Sheet1第一列為用戶錄入的代碼,,取第b-s列為標準代碼
要求在用戶錄入時,對錄入代碼進行檢查（只取空格前的資料）,檢查內容:
1:第一列錄入的代碼必須在第b-s列中存在,不存在提示錄入“不存在” ! 并且有錯誤聲音（聲音源檔案在C:\1.wma)
2:第一列錄入的代碼必須唯一,同一代碼多時錄入提示"重復! "并且有錯誤聲音（聲音源檔案在C:\1.wma)
如第列標準代碼為:A001,A002,A003,A004,A005,A006,A007,A008,A009,A010共N個
用戶在第一列錄入時,只可錄入以上10個已定義的代碼,錄入其它提示不存在提示“不存在”
如錄入'B001',則提示'代碼不存在';如同一代碼多次錄入,提示錄入重復,
如在第1行第2列錄入了'A001',第3行再次錄入'A001'時,提示錄入重復.
謝謝!
現在知道用到的代碼是
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False '關閉事件
If target.Value <> "" Then target.Value = Left(target.Value, InStr(target.Value, " ") - 1)
Application.EnableEvents = True '開啟事件
End Sub
現在就是不太會用字典，知道是用到字典這個功能，
uj5u.com熱心網友回復：
如果在錄入的時候，能鎖定當前excel視窗并在單元格上，就更好了轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/258554.html
上一篇：一個月不到重新學習匯編后的心得，大家指點一下我的方向對不對
下一篇：求解