Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61225 / 76732

←次へ　｜　前へ→


	【20130】Re:セルにある値がでるまでDO文でA１～A50まで回す

kazu - 04/11/29(月) 13:10 -


	引用なし

	パスワード

▼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

0 hits

▼

【20126】セルにある値がでるまでDO文でA１～A50まで回す rei 04/11/29(月) 11:13