Excel VBA質問箱 IV

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

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


46650 / 76732 ←次へ | 前へ→

【35050】Re:Sheets("ソニ")を、activesheet に換えると
発言  Jaka  - 06/2/20(月) 12:46 -

引用なし
パスワード
   手が空かないのであまり読んでいませんけど...。
こんな風にしてみたらどうでしょうか?
見本ですからシート名等他もろもろは修正してください。

Sub Macro1()
  Application.ScreenUpdating = False
  acb = ActiveSheet.Name
  Sheets("Sheet2").Select
  Columns("A:E").Select
  Charts.Add
  DoEvents
  ActiveChart.ChartType = xlStockVOHLC
  最終行 = Sheets("Sheet2").Range("A65536").End(xlUp).Row
  ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("A1:E" & 最終行)
  ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
  Range("a1").Select
  Sheets(acb).Select
  Application.ScreenUpdating = True
End Sub

8 hits

【35038】グラフの作図をマクロに登録すると miku02 06/2/19(日) 21:58 質問
【35039】Re:グラフの作図をマクロに登録すると 初心者 06/2/19(日) 23:45 発言
【35040】Re:グラフの作図をマクロに登録すると miku02 06/2/20(月) 0:09 質問
【35041】Re:グラフの作図をマクロに登録すると ponpon 06/2/20(月) 0:17 発言
【35042】Re:グラフの作図をマクロに登録すると 初心者 06/2/20(月) 0:19 発言
【35044】Sheets("ソニ")を、activesheet... miku02 06/2/20(月) 5:20 質問
【35046】Re:Sheets("ソニ")を、activesh... 初心者 06/2/20(月) 6:05 発言
【35050】Re:Sheets("ソニ")を、activesh... Jaka 06/2/20(月) 12:46 発言

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