| |
▼rei さん：
>初心者なのでお教えください。よろしくお願いします。
>
>例
>たとえばですがセルA１〜A50までに数字が入ってます。でセルの値を読み込みながらA1から検索していって必要な値が入ってるセルでそのセルのA＊＊を知りたいのですがどう読み込むプログラムがわかりません。プログラムをお教えてもらえないでしょうか。お願いします。
↓のでいいのではないかと思います。
ここでは、結果はメッセージボックスでカンマ区切りで表示される様にしています。
必要な値が一つの場合
Sub NN()
Dim I As Integer
Dim Vlu
'Vlu = 1 ←の1を探したい値に変更
Vlu = 1
I = 1
Do
If Cells(I, 1).Value = Vlu Then
TMP = IIf(TMP = "", Cells(I, 1).Address, TMP & "," & Cells(I, 1).Address)
End If
I = I + 1
Loop Until I > 50
MsgBox TMP
End Sub
必要な値が複数の場合
Sub NN2()
Dim I As Integer
Dim Vlu_Ary
'Vlu_Ary = Array(1, 2, 3, 4, 5) ←(1, 2, 3, 4, 5)に探したい値を並べて記入(カンマ区切り）
Vlu_Ary = Array(1, 2, 3, 4, 5)
I = 1
Do
For Each Vlu In Vlu_Ary
If Cells(I, 1).Value = Vlu Then
TMP = IIf(TMP = "", Cells(I, 1).Address, TMP & "," & Cells(I, 1).Address)
End If
Next
I = I + 1
Loop Until I > 50
MsgBox TMP
End Sub
|
|
kazu
- 04/11/29(月) 13:10 -
