Excel VBA質問箱 IV

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

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


61225 / 76732 ←次へ | 前へ→

【20130】Re:セルにある値がでるまでDO文でA1〜A50まで回す
発言  kazu  - 04/11/29(月) 13:10 -

引用なし
パスワード
   ▼rei さん:
>初心者なのでお教えください。よろしくお願いします。
>
>例
>たとえばですがセルA1〜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文でA1〜A50まで回す rei 04/11/29(月) 11:13 質問
【20129】Re:セルにある値がでるまでDO文でA1〜A50... IROC 04/11/29(月) 12:59 回答
【20130】Re:セルにある値がでるまでDO文でA1〜A50... kazu 04/11/29(月) 13:10 発言

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