オートフィルタ適用後のマクロ実行

質問

過去の「Excel グラフのプロットからデータを見つける」という質問に回答されていたプロットされたマーカーをひとつだけ選択してマクロを実行は出来たのですが、オートフィルター適用後のグラフに対してはうまくいきません。どのように修正したら良いのかご教授ください。

Sub Test1()
Dim myPoint As Point
Dim myFormula As String
Dim myPDLname As String
Dim myWsName As String
Dim x As String
Dim y As String
Dim n As Integer

If TypeName(Selection) <> "Point" Then Exit Sub
If TypeName(Selection) = "Point" Then
Set myPoint = Selection
myFormula = myPoint.Parent.Formula
With myPoint
.HasDataLabel = True
myPDLname = myPoint.DataLabel.Name
.HasDataLabel = False
End With
n = Split(myPDLname, "P")(1)
x = Split(myFormula, ",")(1)
y = Split(myFormula, ",")(2)
myWsName = Split(x, "!")(0)
End If
MsgBox myWsName & "!" & Range(x)(n).Address & ":" & Range(y)(n).Address
Sheets(myWsName).Select
Sheets(myWsName).Range(Range(x)(n), Range(y)(n)).Select
End Sub

回答No.1

kkkkkm · ベストアンサー

元のコードを生かしてこのような感じでいかがでしょう。

略

Dim mRangeX As Range, mRangeY As Range

中略

y = Split(myFormula, ",")(2)
myWsName = Split(x, "!")(0)
End If
Set mRangeX = SetRange(Range(x), n)
Set mRangeY = SetRange(Range(y), n)
MsgBox myWsName & "!" & mRangeX.Address & ":" & mRangeY.Address
Sheets(myWsName).Select
Sheets(myWsName).Range(mRangeX, mRangeY).Select
End Sub

Function SetRange(ByRef mRange As Range, ByVal n As Integer) As Range
Dim mCount As Integer
Dim c As Range
mCount = 1
For Each c In mRange.SpecialCells(xlCellTypeVisible)
If mCount = n Then
Set SetRange = c
Exit For
End If
mCount = mCount + 1
Next
End Function

お礼

今まで四苦八苦していたのでとても助かりました。本当にありがとうございました。