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

• #15831 Delila_1 Topikgazda Vladek83 #15830

  Új Válasz 2012-12-17 12:12:27 #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

  Topikgazda

  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.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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