Makro, které zadává parametry výpočtu a vrací výsledky Vyřešeno
Makro, které zadává parametry výpočtu a vrací výsledky Vyřešeno
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
- Přílohy
-
- PC help.xls
- (18.5 KiB) Staženo 10 x
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Makro, které zadává parametry výpočtu a vrací výsledky
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
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
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
Tak už i na to jsem přišel.
ještě jednou díky za pomoc
ještě jednou díky za pomoc
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9
- 1186
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 19 hostů