Excel VBA質問箱 IV

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

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


43762 / 76732 ←次へ | 前へ→

【37998】Re:Excelにてグラフを作成するには
回答  Kein  - 06/5/24(水) 22:10 -

引用なし
パスワード
   A2 以下の製造コードをダブルクリックするだけで、折れ線グラフを作る
というのはどうかな ?
以下のイベントマクロをシートモジュールに入れて下さい。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
  Dim XVR As Range, VR As Range
  Dim Nm As String
 
  If Intersect(Target, Range("A2", Range("A65536").End(xlUp))) Is _
  Nothing Then Exit Sub
  Set XVR = Range("C1", Range("IV1").End(xlToLeft))
  Set VR = XVR.Offset(Target.Row - 1)
  Nm = Target.Offset(, 1).Text
  Application.ScreenUpdating = False
  With Charts.Add(After:=ActiveSheet)
   .ChartType = xlLineMarkers
   .HasLegend = False
   With .SeriesCollection.NewSeries
     .XValues = XVR
     .Values = VR
   End With
   .SizeWithWindow = True
   .Deselect
   .Name = Nm
  End With
  Application.ScreenUpdating = True
  Set XVR = Nothing: Set VR = Nothing
End Sub

0 hits

【37996】Excelにてグラフを作成するには 一年生 06/5/24(水) 21:39 質問
【37998】Re:Excelにてグラフを作成するには Kein 06/5/24(水) 22:10 回答
【37999】Re:Excelにてグラフを作成するには 一年生 06/5/24(水) 22:31 質問
【38000】Re:Excelにてグラフを作成するには Kein 06/5/24(水) 23:14 発言
【38005】Re:Excelにてグラフを作成するには 一年生 06/5/25(木) 5:46 質問
【38020】Re:Excelにてグラフを作成するには Kein 06/5/25(木) 10:59 回答
【38021】Re:Excelにてグラフを作成するには Kein 06/5/25(木) 11:04 発言
【38066】Re:Excelにてグラフを作成するには 一年生 06/5/25(木) 21:21 質問
【38070】Re:Excelにてグラフを作成するには Kein 06/5/25(木) 22:52 回答
【38176】Re:Excelにてグラフを作成するには 一年生 06/5/28(日) 17:20 お礼

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