Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #15831 Delila_1 veterán Vladek83 #15830
    Új Válasz #15831
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz Vladek83 #15830 üzenetére

    Érvényesítésben add meg a diagramok nevét, innen választhatod ki, melyiket szeretnéd látni. Nálam ez az A14 cellában van.

    Sub diagram()
    Dim nev$, d As Integer, dnev
    nev$ = Range("A14")

    For d = 1 To ActiveSheet.ChartObjects.Count
    dnev = "Diagram " & d
    If dnev = nev$ Then
    ActiveSheet.ChartObjects(dnev).Visible = True
    Else
    ActiveSheet.ChartObjects(dnev).Visible = False
    End If
    Next
    End Sub

    Megteheted, hogy egy eseményvezérlésbe teszed be a makrót, akkor a választás után nem kell külön indítani, azonnal a kedvenc diagramod lesz látható. Ezt a makrót a laphoz kell rendelned.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$14" Then
    Dim nev$, d As Integer, dnev
    nev$ = Range("A14")

    For d = 1 To ActiveSheet.ChartObjects.Count
    dnev = "Diagram " & d
    If dnev = nev$ Then
    ActiveSheet.ChartObjects(dnev).Visible = True
    Else
    ActiveSheet.ChartObjects(dnev).Visible = False
    End If
    Next
    End If
    End Sub

    Mindkét makrónál figyelj arra, hogy az Excel milyen nevet adott a diagramjaidnak. Nálam 'Diagram 1', 'Diagram 2', stb. Érdemes megtartani (ebben az esetben) ezeket az automatikusan generált neveket, hogy a for-next ciklusban egyszerűen utalhass rájuk.

Új hozzászólás Aktív témák