< návrat zpět

MS Excel


Téma: graf sumy dynamicky pocitaneho sloupce rss

Zaslal/a 14.6.2013 19:47

Ahoj. Mam sloupec s cislama a vedle nebo vzorec, ktery cislo nasobi promennou.

Kdyz je prumenna treba 0,5, tabulka by vapadala asi takhle:
5|2,5
8|4
1|0,5
0|0
10|5
Ja potrebuju data pro graf, kde Y bude ta promenna a X bude suma druheho sloupce. Vite jak to jednoduse udelat? Diky.

Zaslat odpověď >

Strana:  « předchozí  1 2
icon #014171
eLCHa
Řeknu to takto:

Přes COUNTIFS to nejde.

A ještě doplním, že to určitě půjde přes vzorce, ale studium toho souboru mi zabralo skoro hodinu a ještě jsem je nezačal dělat (je to děsně provázané). Kdybych ten soubor vytvářel od začátku, tak bych to tam asi měl, teď mi nezbývá než poradit - napište (nahrajte) si makrocitovat
#014176
avatar
Makro jako script ve visual basicu nebo makro jako nahravani toho, co delam?
Jestli to ma bejt nahravani, tak jak ho naucim zvysit hodnotu jedny bunky o jeden krok (0,001) a jinde pod sebe zapisovat hodnotu jiny bunky jako data pro graf?
Je na to nekde navod nebo pod cim to mam hledat? Diky.citovat
icon #014178
eLCHa
Nahrajte makro - stačí tak 3, 4 kroky a dejte ho sem - on to už pak někdo upraví na těch 400 ;)citovat
#014181
avatar
Jak jsem se koukal na ten kod, trochu jsem tomu porozumel a pokusil jsem se si to napsat nejak sam. Problem nastal na radkach typu: Range("BD" + i).Select, kde chci, aby vyber u kazdyho kroku cyklu byl BD0, BD1, BD2, ...

Cely makro:
Sub mojemakro()
krok = 0.001
aktualni = 0

For i = 0 To 10
Range("C94").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = aktualni + krok
Range("C94").Select
Selection.Copy
Range("BD" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Range("M97").Select
Application.CutCopyMode = False
Selection.Copy
Range("BE" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Range("O97").Select
Application.CutCopyMode = False
Selection.Copy
Range("BF" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Subcitovat
#014184
avatar
Tak uz jsem na to prisel. Po zjednoduseni to ma jen par radku. http://pastebin.com/fR6amQiP

Diky za rady.citovat

Strana:  « předchozí  1 2

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