| |
▼ねこ さん：
おはようございます。
>
>縦「件数」横「氏名」の棒グラフがあり、そのグラフの棒の部分をクリックすると
>その棒の詳細データを表示するようにしたいのですが。（説明が悪いですかね？）
私が試した限りでは、クリックより、ダブルクリックの方が良さそうですよ！！
（後述のサンプルは、ダブルクリックによる例です）
>例）Aさんの件数が「5件」。Aさんのところの棒をクリックすると、5件のデータの詳細が表示される。
>
>としたいのです。
>たぶん、棒をクリックするとオートフィルタで表示するようにしたら良いのだと
>思うのですが、キーとなる、グラフの「氏名」の部分と「棒」の部分を
>どう記述したらよいのかがどうしてもわかりません。
質問者と回答投稿者及び、閲覧者の同期が取れるような質問投稿を心がけてください
（例えば、グラフのサンプルデータは提示する）
新規ブックの標準モジュールに
'==================================
Sub mk_sample()
With Worksheets(1)
.Cells.ClearContents
.Range("a1:b7").Value = _
[{"項目","KOUMOKU";"a", 100;"b", 200;"c",300;"d", 300;"e", 500;"f", 200}]
End With
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Worksheets(1).Range("A1:B7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=Worksheets(1).Name
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "TEST GRAPH"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Parent.Left = Range("d2").Left
.Parent.Top = Range("d2").Top
End With
End Sub
上記のコードで作成される表及び、グラフで考えます。
表及び、グラフが作成されたシートのモジュールに
'===================================
Private WithEvents cht As Chart
'===================================
Sub set_obj()
Set cht = Me.ChartObjects(1).Chart
End Sub
'===================================
Sub reset_obj()
Set cht = Nothing
End Sub
'===================================
Private Sub cht_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
Dim ans As Series
Dim pt As Point
If ElementID = xlSeries Then
If Arg2 > 0 Then
Set ans = cht.SeriesCollection(Arg1)
MsgBox ans.XValues(Arg2) & " = " & ans.Values(Arg2)
End If
Cancel = True
Else
Cancel = True
End If
End Sub
'===================================
Private Sub cht_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
If ElementID = 3 And Arg2 < 0 Then
cht.SeriesCollection(Arg1).Points(1).Select
End If
End Sub
これで一度だけset_objを実行した後、
当該グラグのデータ棒をダブルクリックしてみてください。
（グラフの最初の選択時は、系列全体を選択してしまうため、
最初のポイントに強制的に選択させています）
それぞれの 項目 = ＫＯＵＭＯＫＵ が表示されます。
|
|
ichinose
- 07/10/18(木) 10:24 -
