|
セル範囲を検索するのだから、検索値をセルに入力するのは好ましくありません。
InputBox等を使って、検索値を取得するような形の方がベターです。
例えば
Dim FSt As String
Dim FR As Range, PltR As Range
Do
FSt = InputBox("検索する文字列を入力して下さい")
If FSt = "" Or IsNumeric(FSt) Then Exit Sub
Set FR = Sheets("Sheet1").Cells.Find(FSt, , xlValues, xlWhole)
If FR Is Nothing Then
MsgBox "その検索値は見つかりません" & vbLf & _
"他の文字列を入力して下さい", 48
End If
Loop While FR Is Nothing
Set PltR = FR.Offset(4, -1).Resize(10, 3)
With Charts.Add
.ChartType = xlXYScatterLinesNoMarkers
.SetSourceData PltR, xlColumns
.Location xlLocationAsNewSheet, "Sheet2"
End With
Set FR = Nothing: Set PltR = Nothing
などのコードが考えられます。なお、あくまで
>選択されたセルから4行、-1列移動したセルを基準に、
>そこから10行、3列の範囲の数値をグラフ化
という前提です。実態と違っていたとしても、説明不足の責任はそちらにあるのだから
上のコードを参考にして自分で改造して下さい。
|
|