- bambano: Bambanő háza tája
- Luck Dragon: Asszociációs játék. :)
- sh4d0w: Netflix? Ugyan, VW előfizetés!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- Fire/SOUL/CD: INGYENES Clone és Backup-Restore alkalmazások tesztje [2024]
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- perge666: Anbernic kézikonzolok
-
LOGOUT
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
-
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 SubMegteheted, 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 SubMindké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
Hirdetés
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- One otthoni szolgáltatások (TV, internet, telefon)
- Milyen CPU léghűtést vegyek?
- bambano: Bambanő háza tája
- Opel topik
- Elektromos autók - motorok
- Luck Dragon: Asszociációs játék. :)
- Battlefield 6
- Xiaomi Mi 8 - így csinálunk csúcsmodellt Mi
- Nvidia GPU-k jövője - amit tudni vélünk
- További aktív témák...
- Huawei P20 64GB, Kártyafüggetlen, 1 Év Garanciával
- LG 27UL500-W - 27" IPS - 3840x2160 4K - 60Hz 5ms - HDR10 - AMD FreeSync - 300 Nits - sRGB 99%
- Általános igazgatóhelyettes tábla üvegből eladó
- GYÖNYÖRŰ iPhone 13 Pro 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS2980
- Apple iPhone 13 Kártyafüggetlen 1 év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest