Nahraj přílohu...
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Odkaz na vybraná data v grafu
MS Excel
Téma: Odkaz na vybraná data v grafu 
Zaslal/a 5.2.2014 9:02
Zdravím všechny,
mám tu dotaz na jednu zdánlivě primitivní záležitost, která mi ovšem dost komplikuje práci 
.
V Excelu 2007 mám na jednom listě tabulku s množstvím dat (cca 9000 záznamů), z dat vychází jednoduchý spojnicový graf. Vše je automaticky generováno z databáze.
Pracuji s grafem a když mě zaujme jeho určitá část, potřebuji se podívat na data která se k ní vztahují - nevíte někdo jak šikovně na data z potřebné části grafu přejít a nemuset hledat v tabulce? Hledám něco ve stylu označení potřebného bodu v grafu => volba přechod na zdrojová data k bodu. Jenže takovou funkcionalitu jsem nějak nenašel. Dík
Nepomohl by ti dynamický graf?
Viz. příloha.
Viz. příloha.
Příloha: 
17698_dynamicky-graf.rar (33kB, staženo 24x)
citovat17698_dynamicky-graf.rar (33kB, staženo 24x)(6.2.2014 13:35)#017703
Pokud máš graf na samostatném list grafu, vlož do vba listu tohoto grafu následující kód.
Option Explicit
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, _
ByVal X As Long, ByVal Y As Long)
UkazatBod X, Y
End Sub
Private Sub UkazatBod(ByVal X As Long, ByVal Y As Long)
Dim ElementID As Long
Dim Arg1 As Long
Dim Arg2 As Long
Dim sData As String
Dim sFormula As String
Dim ix As Long
Dim rData As Range
Dim prejit As Integer
Me.GetChartElement X, Y, ElementID, Arg1, Arg2
If ElementID = xlSeries Then
sFormula = Me.SeriesCollection(Arg1).Formula
ix = InStr(1, sFormula, ",")
ix = InStr(ix + 1, sFormula, ",")
sData = Mid(sFormula, ix + 1, 1000)
ix = InStr(1, sData, ",")
sData = Mid(sData, 1, ix - 1)
Set rData = Range(sData)
If Arg2 > 0 Then Set rData = rData.Cells(Arg2)
prejit = MsgBox("Přejít na " & Me.SeriesCollection(Arg1).Name & "(" & Arg2 & ")?", vbYesNo)
If prejit = vbYes Then
rData.Worksheet.Activate
Application.Goto rData
End If
End If
End Sub
citovat
Option Explicit
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, _
ByVal X As Long, ByVal Y As Long)
UkazatBod X, Y
End Sub
Private Sub UkazatBod(ByVal X As Long, ByVal Y As Long)
Dim ElementID As Long
Dim Arg1 As Long
Dim Arg2 As Long
Dim sData As String
Dim sFormula As String
Dim ix As Long
Dim rData As Range
Dim prejit As Integer
Me.GetChartElement X, Y, ElementID, Arg1, Arg2
If ElementID = xlSeries Then
sFormula = Me.SeriesCollection(Arg1).Formula
ix = InStr(1, sFormula, ",")
ix = InStr(ix + 1, sFormula, ",")
sData = Mid(sFormula, ix + 1, 1000)
ix = InStr(1, sData, ",")
sData = Mid(sData, 1, ix - 1)
Set rData = Range(sData)
If Arg2 > 0 Then Set rData = rData.Cells(Arg2)
prejit = MsgBox("Přejít na " & Me.SeriesCollection(Arg1).Name & "(" & Arg2 & ")?", vbYesNo)
If prejit = vbYes Then
rData.Worksheet.Activate
Application.Goto rData
End If
End If
End Sub
citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články