Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8155 / 13644 ツリー ←次へ | 前へ→

【34876】マクロを使った自動化について ぷーちゃん 06/2/15(水) 17:37 質問[未読]
【34887】Re:マクロを使った自動化について kobasan 06/2/15(水) 21:57 発言[未読]
【34888】Re:マクロを使った自動化について ぷーちゃん 06/2/15(水) 22:09 お礼[未読]

【34876】マクロを使った自動化について
質問  ぷーちゃん  - 06/2/15(水) 17:37 -

引用なし
パスワード
   以下の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


以上、よろしくお願い致します。

【34887】Re:マクロを使った自動化について
発言  kobasan  - 06/2/15(水) 21:57 -

引用なし
パスワード
   ▼ぷーちゃん さん  今晩は。

>以下の4つの作業について

本サイトの基本方針で

できるだけ1トピック1質問にしてください
ひとつの投稿でいくつもの質問をされる方がいらっしゃいます。しかしそれはたいていの場合、望ましくありません。回答の焦点がぼけてしまい、質問者にとっても回答者にとっても思ったとおりのやりとりができない結果に終わることがあります。ひとつの投稿はひとつの質問に絞ったほうが、質問の趣旨がはっきりし、回答者も回答しやすくなります。 

とありますように、質問を分けてされると、回答がつきやすくなると思います。

【34888】Re:マクロを使った自動化について
お礼  ぷーちゃん  - 06/2/15(水) 22:09 -

引用なし
パスワード
   わかりました。
申し訳ありませんでした。

8155 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free