< návrat zpět

MS Excel

Téma: vytvorenie pivotu makrom rss

Zaslal/a misocko 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ěď >
misocko(9.6.2015 14:12)#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
misocko(9.6.2015 14:25)#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 Withcitovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje