| |
▼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)
|
|
たかし
- 05/2/23(水) 16:19 -
