• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Odkaz na vybraná data v grafu

Zaslal/a Geoffrey 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

Zaslat odpověď >

---

Pavlus(5.2.2014 19:40)#017689

Nahraj přílohu...
P.citovat

a.mlady(6.2.2014 9:17)#017698

Nepomohl by ti dynamický graf?
Viz. příloha.

Příloha: 17698_dynamicky-graf.rar (33kB, staženo 23x)

citovat

lubo(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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse