3.2.13 工作表函數(shù)在VBA中的靈活應用

在《VBA代碼解決方案》這套教程中，給大家介紹了一種利用工作表函數(shù)CountIf來判斷是否錄入了重復值的方案,。這種方案雖然不是我推薦的,，但對于利用EXCEL多年的朋友是樂于接受的，在這節(jié)的代碼中,，我給出了代碼：

Private Sub Worksheet_Change(ByVal Target As Range) '51 利用VBA代碼,，限制重復值的錄入

With Target

If .Column <> 1 Or .Count > 1 Then Exit Sub

If WorksheetFunction.CountIf(Range('A:A'), .Value) > 1 Then

.Select

MsgBox '不能輸入重復的人員編號!', 64

Application.EnableEvents = False

.Value = ''

Application.EnableEvents = True

End If

End With

End Sub

這里需要注意幾點：

1 代碼的書寫位置，代碼是寫在哪里的,？為什么,？

2 工作表函數(shù)的利用方法。

3 判斷的觸發(fā)條件,。判斷值的重復在什么情況下觸發(fā),，如何設置觸發(fā)

4 程序控制權的理解，代碼中為什么要有程序控制權的處理,？

5 工作表事件中值的傳遞,，在工作表中輸入的數(shù)據(jù)是如何傳遞給程序的。

如果大家學習到這節(jié),，一定要再問一下自己上述的5個問題是否可以解答,。如果能夠解答，那么說明自己的VBA水平是達到預期的,，如果還有部分問題不能解答,，就需要再努把力了。學習的過程是循序漸進的,，要在每節(jié)的代碼中學到些自己需要的知識點,。

當你學到我的第三套教程《VBA數(shù)組與字典解決方案》時會有更好的排重方案。

• 如何學習VBA呢? 概括的說就是: 學習過程中要信,、解,、受、持,，更要有回向的業(yè)力,。無論您在學習的任何階段,，都要對照教程的知識點加持自己的實際工作，總會有豐厚的收獲,。

• 教程學習順序是7,1(或4),3,2,6,5,。第7套《VBA之Excel應用》是對VBA基本的講解；第1（或4）套《VBA代碼解決方案》是《VBA之Excel應用》的提高,；第3套《VBA數(shù)組與字典解決方案》是VBA應用的專題講解,，教程中講解的專題是數(shù)組和字典，大家會在這套教程中看到非常全面的數(shù)組與字典的應用,；第2套《VBA數(shù)據(jù)庫解決方案》也是VBA應用的專題講解,，教程講解的專題是數(shù)據(jù)庫，大家會在這套教程中看到VBA連接Excel與accdb的全面應用,；第6套《VBA信息獲取與處理》是整個VBA應用的提高,；第5套《VBA中類的解讀及應用》是VBA的最高理論“類”“接口技術”的講解。