オートフィルタ後の、マクロでの値の参照に関して

質問

オートフィルタ後の、マクロでの値の参照に関して

下記を悩んでいます。教えて頂ければ幸いです。

マクロで、あるデーター表から、オートフィルタを使用し、必要なデーターを
抽出し、マクロ内に戻し、その後の計算で使用したいと考えています。

A列、B列、C列にそれぞれ、検索条件を指定し、オートフィルタ後、下記のような状態になります。
参照したい値は、D列になります。

下記のような例では、2.5と2.7の値をマクロ内に戻したいです。
(例：オートフィルタ後)
1行　　A▼　　B▼　　C▼　　D
16行　**　　**　　　**　　2.5　　
20行　**　　**　　　**　　2.7
＊2～15行目は見えなくなっています。
*17～19行目は見えなくなっています。

セルを参照し、マクロ内に戻すには、どのような構文(マクロ)の記述が必要でしょうか？

【備考】
・上記の例では、セルはD16、D20となりますが、抽出条件によっては、行番号が変わってしまいます。
・抽出後のD列のデーター数は、常に2つです。

よろしくお願いします。

回答No.2

Wendy02 · ベストアンサー

>下記のような例では、2.5と2.7の値をマクロ内に戻したいです。
マクロ内に戻したいという意味が分かりにくいです。「マクロ」というのを、コードに戻すとしても、意味が通りませんので、単なる抽出に留めます。

'//
Sub TestMacro1()
　Dim rng As Range
　Dim c As Range, i As Long
　Dim Ar(1) As Double
　With ActiveSheet
　　If .AutoFilterMode Then
　　　Set rng = .AutoFilter.Range
　　　'タイトル行を含めない場合は、On Error Resume Next が必要
　　　With rng.Columns("D").SpecialCells(xlCellTypeVisible)
　　　　For Each c In .Cells
　　　　　If IsNumeric(c) Then
　　　　　　Ar(i) = c.Value
　　　　　　i = i + 1
　　　　　　If i > 1 Then Exit For
　　　　　End If
　　　　Next c
　　　End With
　　End If
　End With
　MsgBox Ar(0) & "," & Ar(1)
End Sub

回答No.1

keithin

＞抽出後のD列のデーター数は、常に2つです。

sub macro1()
　dim h as range
　dim c as long
　dim ans(1 to 2)

　if not activesheet.filtermode then exit sub
　for each h in range("D2:D" & range("D65536").end(xlup).row).specialcells(xlcelltypevisible)
　　c = c + 1
　　msgbox h.value
　　if c < 3 then
　　　ans(c) = h.value
　　end if
　next
end sub

＞マクロに戻したい

「何をしたい（どういう結果を得たい，あるいは「戻し」たあと具体的にどう使いたい）」のか，少々イミフメイです。

お礼

ありがとうございます。参考にさせて頂き、やりたかった事ができるようになりました。