|
|
| Excel VBA Macro ・ 値の操作 ・ FAQ |
|
特定の列に指定された値が存在するか調べるには？
|
|
|
|
Question 87.4 |
Excel VBA Borad （掲示板）より |
 |
 |
|
|
"Sheet2のA列" に 1から100までの数値が、「スペースを含め」 入力されています。
"Sheet1のA1" に 例えば "50" と入力すると、"Sheet2のA列" を検索し "50" が有れば
msgbox "既存データが有ります。"
といった マクロを 組みたいのですが、検索マクロが解かりません。
どなたか 教えてください。
|
|
|
Sub test()
Dim rngTarget As Range
Dim rngFind As Range
' 検索する範囲
Set rngTarget = Sheets("Sheet2").Columns("A:A")
' 検索
Set rngFind = rngTarget.Find("検索する値")
If rngFind Is Nothing Then
MsgBox "既存データは存在しません。"
Else
MsgBox "既存データが存在します。"
End If
End Sub
こんな感じかな？ あくまでサンプルなので、Find関数をヘルプで調べ
て、引数を適切に指定して下さい。
|
|
|
うなさん 有難うございました。
現在 FINDとサーチの猛勉強中です。 まだ 完成してませんが、希望が見えてきました。
行き詰まったら また投稿します。その時は宜しくお願いいたします。
|
|
|
|
| |
|
|
