Excel VBA質問箱 IV

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

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


10742 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【20126】セルにある値がでるまでDO文でA1〜A50ま...
質問  rei E-MAIL  - 04/11/29(月) 11:13 -

引用なし
パスワード
   初心者なのでお教えください。よろしくお願いします。


たとえばですがセルA1〜A50までに数字が入ってます。でセルの値を読み込みながらA1から検索していって必要な値が入ってるセルでそのセルのA**を知りたいのですがどう読み込むプログラムがわかりません。プログラムをお教えてもらえないでしょうか。お願いします。

【20129】Re:セルにある値がでるまでDO文でA1〜A...
回答  IROC  - 04/11/29(月) 12:59 -

引用なし
パスワード
   一般機能の「検索」もしくは、「オートフィルタ」を
マクロの記録しては如何でしょうか?

>セルのA**
セルの番地なら、Addressプロパティで取得できます。

【20130】Re:セルにある値がでるまでDO文でA1〜A...
発言  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

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