Telefonszámunk: 1-472-0679

PivotTableVersion

Kezdőlap › Fórumok › Excel programozás › PivotTableVersion

3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • 2016-11-22-11:47 #3197
    Titok
    Felhasználó

      Sziasztok!

      Hogyan lehetne kiolvasni, hogy az éppen adott excelbe futó makró felismerje, hogy milyen verziójú a kimutatésdiagramja?

      Egyik excel altt így:

      ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
      „Munka1!R1C1:R1048576C3″, Version:=xlPivotTableVersion14).CreatePivotTable _
      TableDestination:=”Munka2!R1C1″, TableName:=”Kimutatás1”, DefaultVersion _
      :=xlPivotTableVersion14

      Másik alatt így fut:

      ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
      „Munka1!R1C1:R1048576C3″, Version:=xlPivotTableVersion15).CreatePivotTable _
      TableDestination:=”Munka2!R1C1″, TableName:=”Kimutatás2”, DefaultVersion _
      :=xlPivotTableVersion15

      Kéásőbb többen futtatnák többféle környezetben, ezért lenne jó beállítani.

      Köszi!

      2016-11-22-13:54 #3199
      delila
      Felhasználó

        Msgbox Application.Version

        Az Excel verziójának a számát adja meg.

        • A hozzászólás módosításra került: 7 years, 5 months telt el-delila.
        2016-12-12-21:41 #3252
        vacip
        Felhasználó

          Szerintem jobban jársz, ha kihagyod a verzió megnevezését. Tökéletesen működik, egyszerűbb és olvashatóbb a kód:

          ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
          „Sheet1!R1C1:R9C3″).CreatePivotTable _
          TableDestination:=”Sheet3!R3C1″, TableName:=”PivotTable1”

          Mondjuk ilyenkor xlPivotTableVersion12-re áll be, ami a 2007-es Excel pivotja. Megadhatod a xlPivotTableVersion14-et, ami működik Excel 2010, 2013 és 2016 alatt is, és akkor nem kell bíbelődni verziókkal. Nem találtam még hátrányt a 2016-os Excelben PivotV12-vel dolgozva.

          Különben ne állj meg itt, a kevesebb több! 🙂

          Ha nem adsz meg TableDestinationt (pontosabban ha üres stringet adsz meg TableDestination-nek), akkor automatikusan egy új, üres lapra teszi a kimutatást.
          (A TableName paraméter is elhagyható, ekkor automatikusan nevezi el az Excel az új kimutatást, de ezzel nem sokat nyersz, mert amúgy is lehet két azonos nevű kimutatásod, feltéve, hogy nem ugyanazon a lapon vannak.)

          ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
          „Sheet1!R1C1:R9C3″).CreatePivotTable TableDestination:=””

          Sokkal szebb. 🙂

        • Szerző
          Bejegyzés
        3 bejegyzés megtekintése - 1-3 / 3
        • Be kell jelentkezni a hozzászóláshoz.