|
こんばんは。
ヘルプから
LookAt 省略可能です。バリアント型 (Variant) の値を使用します。使用できる定数は、XlLookAt クラスの xlWhole または xlPartです。
xlWhole 完全一致
xlPart 部分一致
従って、LookAtにxlWhole を指定すれば良いと思います。
入力するのが、数値だけなのか。文字列もあるのか分かりませんが、
数値だけと考えて、もっと良い方法があるかもしれませんが、これでどうでしょうか?
Private Sub CommandButton1_Click()
Set WS1 = Worksheets("Sheet1")
If IsNumeric(Me.TextBox1.Value) = False Or IsEmpty(Me.TextBox1.Value) Then
MsgBox "空白や文字列は入力できません。"
With Me.TextBox1
.Value = ""
.SetFocus
End With
ElseIf WS1.Range("A:A").Find(what:=TextBox1.Value, LookAt:=xlWhole) Is Nothing Then
WS1.Range("A65536").End(xlUp).Offset(1, 0) = TextBox1.Value
Else
MsgBox "その値は、すでにあります。" & Chr(13) & _
"入力し直してください。"
With Me.TextBox1
.Value = ""
.SetFocus
End With
End If
End Sub
|
|