|
以下の4つの作業について、マクロを使って自動化したいのですが、どなたかわかる方、教えて下さい。
※下記マクロ1は、135行目を全部選択して、そこに1行挿入した自動実行のプログラム。
これを改造して、次にマクロを実行した時に、次の行の136行目が自動選択されて,1行挿入されるようにしたい。
' Macro1 Macro
Rows("135:135").Select
Selection.Insert Shift:=xlDown
End Sub
※下記マクロ2は、D129セルを選択して、1行下にドラッグコピーした自動実行のプログラム。
これを改造して、次にマクロを実行した時に、その下のD130セルが自動選択されて、1行下にドラッグコピーされるようにしたい。
Sub Macro2()
' Macro2 Macro
Range("D129").Select
Selection.AutoFill Destination:=Range("D129:D130"), Type:=xlFillDefault
Range("D129:D130").Select
End Sub
※下記マクロ3は、C131〜Q131までの連続したセルを選択して、1行下にドラッグコピーした自動実行のプログラム。
これを改造して、次にマクロを実行した時に、その下のC132〜Q132までの連続したセルが自動選択されて、1行下にドラッグコピーされるようにしたい。
Sub Macro3()
' Macro3 Macro
Range("C131:Q131").Select
Selection.AutoFill Destination:=Range("C131:Q132"), Type:=xlFillDefault
Range("C131:Q132").Select
End Sub
※下記マクロ4は、グラフ810を選択した時に表示されたグラフ範囲に対して、1行下にドラッグして、グラフ範囲を1行広げた自動実行のプログラム。
これを改造して、次にマクロを実行した時に、このグラフ範囲が更に1行下に広がるようししたい。
Sub Macro4()
' Macro4 Macro
ActiveSheet.ChartObjects("グラフ 810").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("<指 標>").Range("C40:C130,K40:K130") _
, PlotBy:=xlColumns
End SubEnd Sub
以上、よろしくお願い致します。
|
|