顯示「重複號碼」時數範圍

If MoneyTextBox.Value = range("H:H").Find(MoneyTextBox.Value) Then 
    MsgBox "Duplicate number" 
EndIf

2017-07-08 ahmed

或者乾脆這...

If Application.CountIf(Range("H:H"), MoneyTextBox.Value) > 0 Then 
    MsgBox "Duplicate number" 
End If

2017-07-08 08:25:47 sktneer

用這個代替未發現：

If Not IsError(Application.Match(CLng(MoneyTextBox.Value), Range("H:H"), 0)) Then 
    MsgBox "Duplicate number" 
EndIf

2017-07-08 07:03:06

爲什麼'不是IsError'而不是直接'IsNumeric'？ –

@DirkReichel我在Excel公式中使用了緊湊形式'ISNUMBER'，但是在VBA中尤其如此，我更喜歡更明確的形式。但兩者都很好。 –

但輸出只能是數字或錯誤。這樣'IsNumeric'並不比'Not IsError'更不明確：P –

的Find method不返回找到的文本，但第一個小區的情況下的文字被發現，並且當它沒有被發現時，它返回Nothing。此外，你的範圍有數字（通過你的問題的標題），而你的表單可能有一個文本輸入框（問題不明確）。由於這個原因，你的情況每次都是錯誤的。

相反，文本輸入轉換爲數字，並用事實Find方法返回Nothing文本時未找到：

更改此：

If MoneyTextBox.Value = range("H:H").Find(MoneyTextBox.Value) Then

到：

If Not Range("H:H").Find(CLng(MoneyTextBox.Value)) Is Nothing Then

2017-07-08 07:04:08 trincot

回答