Stránka 1 z 1
Makro, které zadává parametry výpočtu a vrací výsledky Vyřešeno
Napsal: 23 zář 2010 16:57
od min
Neví někdo, jak mi pomoci? Potřebuji, aby mi Makro zadalo vzdy číslo1 a číslo2 ze stejného řádku z listu "zadání" do listu "výpočet" a výsledek výpočtu aby byl zkopírován zpět do listu "zadání" k daným číslům. Potřebuji, aby makro takto postupně zadalo čísla ze všech řádků listu "zadání" do listu "výpočet" a doplnilo výsledky do listu "zadání" ke správným číslům. Pro jistotu přikládám příklad. Vím, že na toto nepotřebuji makro, ale toto je jen zjednodušení mého zadání. Děkuji
Re: Makro, které zadává parametry výpočtu a vrací výsledky
Napsal: 23 zář 2010 17:29
od navstevnik
Zanalyzuj si prilozenou proceduru a uprav dle potreby (predpokladam, ze se jedna o skolni zadani):
Kód: Vybrat vše
Option Explicit
Sub VlozitHodnotyAZapsatVysledek()
Dim BlokHodnot As Range, Bunka As Range
Dim Vzorec As Range
Set BlokHodnot = Worksheets("zadání").Range("a2:a23") ' prvni sloupec zadani
Set Vzorec = Worksheets("výpočet").Range("a2") ' prvni bunka vypoctu
' smycka vklada hodnoty do bunek vypoctu a uklada vysledek
For Each Bunka In BlokHodnot.Cells
' vlozit hodnoty do vypoctu
Vzorec.Value = Bunka.Value
Vzorec.Offset(0, 1).Value = Bunka.Offset(0, 1).Value
' ulozit vysledek k zadani hodnot
Bunka.Offset(0, 2).Value = Vzorec.Offset(0, 2).Value
Next Bunka
' odstranit objektove promenne
Set BlokHodnot = Nothing
Set Bunka = Nothing
Set Vzorec = Nothing
End Sub
Re: Makro, které zadává parametry výpočtu a vrací výsledky
Napsal: 30 zář 2010 15:11
od min
Díky funguje, velice mi to pomohlo. Jsem samouk a makra moc nevyužívám/neumím, pouze když je mohu nahrávat.
Když už nějaké objevím, tak se ho snažím pochopit - zaměňuji proměnné a sleduji jak pracuje.
K mému příkladu mám ještě jeden dotaz - kdyby se výpočet prováděl v listu "výpočet" na jiném řádku než se zadávají proměnné a kdybych chtěl výsledky zobrazit opět v listu "zadání", ale třeba o 20 řádků níže? Lze toto definovat změnou parametrů Vzorec.Offset a Bunka.Offset (???).Value? Nebo to už je vyšší dívčí?
Děkuji
Re: Makro, které zadává parametry výpočtu a vrací výsledky
Napsal: 30 zář 2010 16:06
od min
Tak už i na to jsem přišel.
ještě jednou díky za pomoc