| |
▼Jaka さん
こんばんは〜
>あまし、難しいグラフを作らないようにお願いします。
>極普通のグラフにしてください。
>わかんないし。
飛び地を考えない方がいい？
でも、飛び地考えなかったら、もう前々回のでＯＫのような・・？？？
グラフって普段全然作らないので、どういうのが普通のがよくわかりませんorz
>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
実行してみた。
これって、最初の系列と最後の系列のアドレスで範囲を取得してるんですね。
飛び地があると（こだわる＾＾；）駄目なんですね・・・
＞Application.CountIf(Range("B33:B200"), ChrTyp)
これの、「B33:B200」が何なのかよくわかりませんorz
アホすぎ？
>
>>「グラフの元データ」−「データ範囲」の中の
>>「データ範囲」の欄で表示されてる形を目指さないとダメなんよね？？？
>で、できたら...。
や・・・やっぱり(>_<)
関係ないけど、いま「ふなぐち 菊水 一番しぼり」呑んでます。
美味しい〜♪
知ってる？
|
|
- 09/5/10(日) 22:31 -
