PC-HELP.CZ

A snad už dnes naposled poprosil bych o další pomoc s makrem bo výpočet pomocí vzorců přímo v tabulce vytváří kruhový odkaz.
Do buňky K5 je buď ručně nebo pomocí funkce Data-Ověření-Seznam vkládána hodnota napětí tedy celé číslo
Do buňky L5 je ručně vkládána hodnota proudu v Ampérech Tedy číslo, které může obsahovat až 4 desetinná místa
Do buňky M5 je ručně vkládána hodnota příkonu ve Wattech tedy celé číslo.

Co má makro umět:
Automaticky provést výpočet a zapsat výsledek do příslušné buňky pokud hodnota vloženého napětí nepřesahuje 240 V a pokud jsou vloženy 2 ze 3 hodnot přičemž napětí musí být vloženo vždy. (pro výpočty ve 3 fázové soustavě (400V) platí jiné vzorce a pro moje účely je toto napětí vyjímečné)
Vloženo napětí a proud = výpočet a zápis příkonu = Pn[W] = Un[V] * In[V] (počítáme na celé zaokrouhlené číslo)
Vloženo napětí a příkon = výpočet a zápis proudu = In[A] = Pn[W] / Un[V] (počítáme na 4 desetiná místa)

Máte možnost, vytvořit pro výpočty proudu resp. příkonu dva oddělené vzorce, takže např.
V jednom řádku zadáte napětí a příkon a ono to v třetí buňce vypočítá proud
a na dalším řádku obdobně s napětím a proudem a do třetí buňky výpočet příkonu.

Nebo napsat makro podle vašich zadaných kritérií už není tak složité, stačí zapsat do podmínek co a kde má být zapsáno a kam napsat výsledek. V podstatě máte makro rozepsáno v zadání. Stačí to jen přepsat do VBA.

Ach pokusím se napsat makro jen času se nedostává. Téma nechávám zatím otevřené pro případné řešení chyb.

takhle jsem to stvořil:

Zápis vypadá dobře a složité to určitě nebylo :)
Jen bych upravila v prvních dvou podmínkách to samotný "Range("R2")" tak jak je je výsledek TRUE. Buď aby se to testovalo na přítomnost něčeho a nebo to smazat protože je podle mě takhle bez funkce. Nejspíš jde o překlep?

Buňka R2 nabývá hodnot Pravda, nepravda pro činnost Smazáno, Nesmazáno je tedy funkcí

Každopádně když je tam napsáno jen "Range("R2")" tak je výsledek pokaždé TRUE protože to asi testuje buňku na přítomnost, tím pádem tam chybí třeba Range("R2") = "text co má být v buňce" nebo Range("R2") <> "text co má být v buňce". Jsou to řádky v kódu 2 a 4 zbytek je OK.

Pokud jsem dobře pochopil to co tvrdíš tak bohužel opak je pravdou dal sem si tu práci a napsal soubor k otestování. Pokud buňka nabývá logickou hodnotu je možné se v podmínce na ni odkazovat přímo a logická hodnota v této buňce ovlivňuje splnění podmínky v makru.

To je nějaké složité, já to řešil jinak:
viz dole http://www.eldiablo.webz.cz/pages/elektronika.html

To El Diablo Přečti si úvodní zadání ... uvědom si že podle toho které hodnoty jsou vloženy se vybírá výpočet a dále pokud je vložena hodnota nad 241V výpočty nesmí být provedeny.
Pokud se v tom chceš hlouběji šťourat zpracovávám tabulku pro vedení revizí El.spotřebičů během užívání dle ČSN 33 1600 ed.2 pomocí PC. a jsem ochoten ti rozpracovaný soubor někam upnout na PC help se to nevejde. Konec konců víc hlav víc ví a třeba mi někam postrčíš.

Ano, dobře, pokud je v buňce logická hodnota pravda/nepravda (true/false) tak to funguje. I tak bych si to vždy pojistila kompletní podmínkou čímž se vyvaruji případných chyb v běhu makra.

Hlavně když je v buňce něco jiného než logická hodnota (pravda/nepravda nebo true/false) tzn. text = makro hodí chybu "Type mismatch" a pokud tam je číslo 0 = NEPRAVDA a jakékoliv číslo větší než 0 tak je vždy PRAVDA.

Taky jsem takové výpočty řešila pomocí vzorců jako El Diablo, nezáleželo mi na tom jestli tam je pár buněk navíc nebo ne a bylo to jednodušší i když to vyžadovalo víc místa.

Jan Pašek píše:To El Diablo Přečti si úvodní zadání ... uvědom si že podle toho které hodnoty jsou vloženy se vybírá výpočet a dále pokud je vložena hodnota nad 241V výpočty nesmí být provedeny.
Pokud se v tom chceš hlouběji šťourat zpracovávám tabulku pro vedení revizí El.spotřebičů během užívání dle ČSN 33 1600 ed.2 pomocí PC. a jsem ochoten ti rozpracovaný soubor někam upnout na PC help se to nevejde. Konec konců víc hlav víc ví a třeba mi někam postrčíš.

Bohužel se mi v tom šťourat nechce, nemám na to čas ani znalosti...