ja mam nieco taketo este z mojich zaciatkou s makrami, pouzivam bez zmeny dodnes.
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
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 dik
a mozno by stacilo
Application.ScreenUpdating = False
alebo je fakt problem ze makro ma par riadkov naviac?
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.
zrejme am s v makre Option Explicit, preto ti nebere ziadne nezadefinovane premenne
niekde pred ten kusok od Paloo daj Dim x As Integer
ak Ti mozem poradit , tak graf si vytvor rucne a iba data pre graf upravuj makrom (osobna skusenost). stravis vela csu vytvaranim makra na vytvorenie grafu a nakoniec zistis ze je to na .....
dakujem pani
dlhsie som tu nebol
skusim teda nieco zosmolit a dam vediet
este raz dik za reakcie
a da sa aj nejako zistit ci subor uz bol ulozeny? nech nerobim zalohu z ulozeneho....
ahojte
riesim momentalne jednu vec s ukladanim zalohy. ide o to ze mam jeden subor v ktorom robim zmeny a obcas ich chcem ulozit , obcas nie (a samozrejme sa mi obcas stane ze som to mal ulozit a neulozim - mam otvorenych viacero suborov a pri zatvarani celeho excelu to nechtiac neulozim). chcel by som si teda ulozit zalohu zakazdym ked zatvaram ten moj kriticky subor bez ulozenia (chcem aby po tejto akcii ostal ten origo bez zmien, zaloha aby bola so zmenami, excel zatvoreny). viete mi poradit cez aku udalost by som to mal skusit? makra viem (kod si teda napisem, pripadne upravim) potrebujem len nakopnutie
vopred velmi pekne dakujem
sice si poriadne dokomolil nick ale, ak by som sa zajtra nudil tak Ti to doprogramujem ... (ked sa teda nenajde niekto rychlejsi)
tiez ma napadlo volat z procedury worksheetu nejake makro v module ale nevedel som narychlo ako sa to robi (uz som to dlho nepouzil a nechcelo sa mi hladat - to call)
kedze Ti nikto neradi tak som sa podujal ja
neviem sa vsak dostat na druhy list v udalostnej procedure listu a tak som Tvoju tabulku preniesol na prvy list.
osobne tiez nedoporucujem, ked uz tak cez dva operacne systemy
asi si nerozumieme (zas ta jazykova bariera ), z toho co pises som asi zle pochopil ze mas na pozadi obrazok na ktorom su nejake tvary (su sucastou toho brazka) a ty ich chces spojit
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.