|
▼たかし さん:
>▼G-Luck さん:
>早速試してみました。うまくいきました。
>ありがとう御座います。
>
>そこで、隣のC列も条件に入れようとしたのですが、うまくいきません。
>C列には同じ数値があるのに入力してしまいます。
>どこがおかしいのか教えて下さい。
>宜しくお願いします。
>
>Private Sub test()
>
> Const myMessage As String = "同じ値が入力されています"
> Dim rg As Range
>
> Set rg = Range("B:B").Find(TextBox.Value)
> If rg Is Nothing Then
> Set rg = Range("C:C")Find(TextBox.Value)
↑.
> If rg As Nothing Then
↑Is
スペルミスでは?
> '代入処理
> Else
> MsgBox myMassage
> End If
> Else
> MsgBox myMessage
> End If
>End Sub
後、Findの検索範囲を変更すれば、Ifを重ね無くてもいいと思います。
Set rg = Range("B:C").Find(TextBox.Value)
|
|