|
▼G-Luck さん:
ありがとう御座いました。
うまくいきました。
分からないことがいっぱいありそうなので、また活用したいと思います。
そのときは、宜しくお願いします。
>▼たかし さん:
>>▼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)
|
|