< návrat zpět

MS Excel


Téma: vytvorenie pivotu makrom rss

Zaslal/a 8.6.2015 14:24

ahojte
moja prva pivot table a rovno ju potrebujem vytvarat makrom (alebo len nejako makrom pripravit data pre tabulku - neviem co by bolo lepsie, jednoduhsie ...). ide mi hlavne o to ze prve tri polozky (den, kod zmeny, a vyrobok) budu furt rovnake, zatial co dalsie (A1 Chyby.., A2 Deformacie... atd ) sa budu menit (v buducich datach bude mozno A5 ...., A10 .... V prilohe je nahrane makro ako robim tu pivot a su v nom napevno dane A1..., A2.... . Potrebujem poradit cim to nahradit aby to nabuduce tiez spravilo to co hcem, alebo ako to cele riesit (data ktore su na sheete "Produkcia" si pripravujem makrom , takze nejaka zmena nebude problem).
vopred dakujem za pomoc.

Příloha: zip25376_pivot.zip (21kB, staženo 28x)
Zaslat odpověď >

#025404
avatar
od vcera som sa stym este trochu trapil ale tvrdo som sa zasekol na tomto
Dim ok_kusy As String
chyby1 = Cells(2, 4) 'v tejto bunke sa nachadza text A1 Chyby pri rozjazde
'tu sa nachadza vlozenie pivot, je to dlhsie tak to tu nedavam
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields(chyby1), _
chyby1, xlCount ' co mam napisat tu, to chyby1 v tomto riadku nebere
With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"Count of A1 Chyby pri rozjazde ")
.Caption = "Sum of A1 Chyby pri rozjazde "
.Function = xlSum
End With

problem je v riadku 6 ak v nom necham povodny text tak sa mi problem zopakuje v riadku 9 (ak tam dam to chyby1)
vie mi niekto pomoct aspon s tymto?
vopred dikcitovat
#025406
avatar
vyriesene , stacilo pridat Sum of, a Count of do textoveho retazca, nevedel som ze je to pre funkciu take dolezite
ok_kusy = Cells(2, 4)
count_ok_kusy = "Count of " + ok_kusy
sum_ok_kusy = "Sum of " + ok_kusy

ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields(ok_kusy), count_ok_kusy, xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields(count_ok_kusy)
.Caption = sum_ok_kusy
.Function = xlSum
End With
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09