| |
▼つん さん：
>全データ仕様の表だと
>アドレスの取得は「$B$1:$F$1,$A$2:$F$7」
>
>田口と桐生と鳴海の表だと
>「$B$1,$A$2:$B$7,$E$1:$F$7」
>で、一応「速水」と「島津」の列は抜けてた。
>
>おお！いい感じｗ(^o^)ノ
あまし、難しいグラフを作らないようにお願いします。
極普通のグラフにしてください。
わかんないし。
>でも、Jakaさんはこれでは納得しないんだろうなー
>これだったら、Jakaさんなら５分で作りそう＾＾；
いえいえ、前にやった時は、２、３日あれこれやってこんな程度でした。
つんさんのが上です。
Sub 全グラフ実験() '円はダメ バブルダメ 株価チャート（出来高-始値-高値-安値-終値）は不明
Dim St1 As String, St2 As String, ColCt As Integer
Dim stst As String, ChrTyp As String
ChrTyp = ActiveSheet.ChartObjects(1).Chart.ChartType
On Error Resume Next
With ActiveSheet.ChartObjects(1).Chart
St1 = .SeriesCollection(1).Formula
St1 = Mid(St1, InStr(1, St1, ",") + 1)
St1 = Mid(St1, InStr(1, St1, ",") + 1)
St1 = Left(St1, InStr(1, St1, ",") - 1)
ColCt = .SeriesCollection.Count
St2 = .SeriesCollection(ColCt).Formula
St2 = Mid(St2, InStr(1, St2, ",") + 1)
St2 = Mid(St2, InStr(1, St2, ",") + 1)
St2 = Left(St2, InStr(1, St2, ",") - 1)
stst = Range(Range(St1), Range(St2)).Address(0, 0)
EndRw = Range("A65536").End(xlUp).Row + 1
If Len(stst) > 0 Then
If Application.CountIf(Range("B33:B200"), ChrTyp) = 0 Then
Cells(EndRw, 1).Value = stst
Cells(EndRw, 2).Value = ChrTyp
End If
Else
If Application.CountIf(Range("B33:B200"), ChrTyp) = 0 Then
Cells(EndRw, 1).Value = "エラー"
Cells(EndRw, 2).Value = ChrTyp
End If
End If
MsgBox stst
End With
End Sub
>「グラフの元データ」−「データ範囲」の中の
>「データ範囲」の欄で表示されてる形を目指さないとダメなんよね？？？
で、できたら...。
|
|
