ポイント＆フィギュア研究開始

頭悪くて嫌になる今日この頃

取り敢えずチャート描けましたが、考えても解らないものだから、適当にプロシージャ作って動かしてみておかしかったら直してを繰り返し繰り返しやっと完成。１日以上掛かりました(汗

１９９０年から今までのチャート　先ず２２５で

最初の方とプロシージャ

Sub poinntoando()
Dim Rp As Range '終値
Dim Tanni As Single
Dim Jg As Long
Dim Tk As Long
Dim Ys As Long
Dim Migi As Long
Jg = 1 '初期値
Tk = 39000 '初期値
Migi = 7 '初期値
Tanni = Range("i2").Value
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Rp In Selection
With Rp
If Int(.Value / Tanni) * Tanni >= Ys + 3 * Tanni And Jg = -1 Then
Range("h2").Copy
Cells(4 + (39100 - Tk) / Tanni, Migi).Resize((Tk - Ys) / 100, 1).PasteSpecial
Migi = Migi + 1
Jg = 1
Tk = Int(.Value / Tanni) * Tanni
.Offset(, 2).Value = Tk
ElseIf Int(.Value / Tanni) * Tanni >= Tk And Jg = 1 Then
Tk = Int(.Value / Tanni) * Tanni
.Offset(, 2).Value = Tk
ElseIf Int(.Value / Tanni) * Tanni < Tk And Int(.Value / Tanni) * Tanni > Tk - 3 * Tanni And Jg = 1 Then
.Offset(, 2).Value = Tk
ElseIf Int(.Value / Tanni) * Tanni <= Tk - 3 * Tanni And Jg = 1 Then
If Ys <> 0 Then
Range("g2").Copy
Cells(4 + (39000 - Tk) / Tanni, Migi).Resize((Tk - Ys) / 100, 1).PasteSpecial
Migi = Migi + 1
End If
Jg = -1
Ys = Int(.Value / Tanni) * Tanni
.Offset(, 2).Value = Ys
ElseIf Int(.Value / Tanni) * Tanni <= Ys And Jg = -1 Then
Ys = Int(.Value / Tanni) * Tanni
.Offset(, 2).Value = Ys
ElseIf Int(.Value / Tanni) * Tanni > Ys And Int(.Value / Tanni) * Tanni < Ys + 3 * Tanni And Jg = -1 Then
.Offset(, 2).Value = Ys
End If
.Offset(, 1).Value = Jg
End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

これ使って何か出来ないか研究してみます