Excel VBA質問箱 IV

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

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


43744 / 76736 ←次へ | 前へ→

【38020】Re:Excelにてグラフを作成するには
回答  Kein  - 06/5/25(木) 10:59 -

引用なし
パスワード
   それでは、現在シートモジュールに入れているマクロを削除し、
あらたに ThisWorkbookモジュール に以下のマクロを入れて下さい。

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
  Dim XVR As Range, VR As Range
  Dim MyCh As ChartObject
  Dim Nm As String
 
  If Target.Address = "$A$1" Then
   With Sh.ChartObjects
     If .Count > 0 Then
      .Item(1).Visible = IIf(.Item(1).Visible, False, True)
     End If
   End With
   Cancel = True: Exit Sub
  End If
  If Intersect(Target, Range("A2", Range("A65536").End(xlUp))) Is _
  Nothing Then Exit Sub
  Cancel = True
  Set XVR = Range("C1", Range("IV1").End(xlToLeft))
  Set VR = XVR.Offset(Target.Row - 1)
  Nm = Target.Offset(, 1).Text
  Application.ScreenUpdating = False
  If Sh.ChartObjects.Count > 0 Then
   Set MyCh = Sh.ChartObjects(1)
   If MyCh.Visible = False Then MyCh.Visible = True
   MyCh.Chart.SeriesCollection(1).Delete
  Else
   With Sh.Range("C2:I22")
     Set MyCh = Sh.ChartObjects.Add(.Left, .Top, .Width, .Height)
   End With
  End If
  MyCh.Chart.ChartWizard VR, xlLine, 4, xlRows, , , 0, Nm
  MyCh.Chart.SeriesCollection(1).XValues = XVR
  Application.ScreenUpdating = True
  Set XVR = Nothing: Set VR = Nothing
End Sub

このマクロの機能は
>ワークシート全体に対して、共通
になります。
>グラフの表示区域
は、アクティブシートの C2:I22 のセル範囲と同じ位置・大きさになります。
>製造コードを選択したら、前のグラフをクリア
そして新しくダブルクリックした行のデータをプロットします。
グラフタイトルは、常に"ダブルクリックしたセルの右隣り(B列)の値"です。
あと、既にグラフを表示している場合、データの入力範囲がグラフに隠れて
見えなくなりますから、その場合は A1 をダブルクリックして下さい。
一時的にグラフを非表示に出来ます。もう一度 A1 をダブルクリックすると
表示します。つまり交互に表示状態を切り替えられる、というわけです。
試してみて下さい。
1 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 お礼

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