モンスターハンターワールドアイスボーン

ちょっと株価分析する。




摩訶不思議で怪しげな投資法を勉強している。

株値を取り込むと奥義署で語られている鈎足罫線図を半自動で作ってくれるマクロを組んだ。

未熟～な知識と浅～い経験で判断すると、基道斜線は陽、「ろさ型」第四法則と「ろゑ型」法則が出現、稀にしか見られない灯蝋第41法則尖鋭三角昇竜の型「いへ型」が発動しているように見えるので、三菱自動車と日産自動車を買う。


作ったマクロ

Sub applyprice()


グラフデータ用意


ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range(Cells(3, 7), Cells(a, 8))
ActiveChart.Location Where:=xlLocationAsNewSheet

ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = Int(min * 0.95 / 10) * 10


ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MaximumScale = Int(max * 1.05 / 10) * 10

ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MajorUnit = Int((max - min) / 20)

ActiveChart.SetElement (msoElementUpDownBarsShow)


ActiveChart.ChartGroups(1).GapWidth = 0


ActiveChart.FullSeriesCollection(1).Select
Selection.Format.Line.Visible = msoFalse


ActiveChart.FullSeriesCollection(2).Select
Selection.Format.Line.Visible = msoFalse


ActiveChart.ChartTitle.Text = chname

ChDir "C:\Users\Owner\Desktop\株価"
ActiveWorkbook.SaveAs Filename:="C:\Users\Owner\Desktop\株価\" & chname & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False



End Sub