Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58924 / 76738 ←次へ | 前へ→

【22534】Re:検索方法を教えて下さい
回答  G-Luck  - 05/2/23(水) 15:11 -

引用なし
パスワード
   ▼たかし さん:
>▼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)
0 hits

【22515】検索方法を教えて下さい たかし 05/2/23(水) 11:15 質問
【22519】Re:検索方法を教えて下さい G-Luck 05/2/23(水) 11:55 回答
【22521】Re:検索方法を教えて下さい たかし 05/2/23(水) 12:42 お礼
【22531】Re:検索方法を教えて下さい たかし 05/2/23(水) 14:57 質問
【22534】Re:検索方法を教えて下さい G-Luck 05/2/23(水) 15:11 回答
【22544】Re:検索方法を教えて下さい たかし 05/2/23(水) 16:19 お礼

58924 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free