< návrat zpět

MS Excel

Téma: Přičítání hodnot pomocí VBA rss

Zaslal/a veny 19.4.2021 12:10

Zdravím
Chtěl bych požádat o pomoc s VBA.
Podrobněji jsem popsal v přiloženém souboru.
Děkuji V.

Příloha: zip50475_test-odpocet.zip (13kB, staženo 17x)
Zaslat odpověď >
veny(20.4.2021 8:20)#050490
avatar
Zjistil jsem že mám špatně popis.
Něco už jsem se snažil spáchat, nicméně moje znalosti na to nestačí. Snažím se vždy dohledat nějaký kód a alespoň trochu pochopit logiku, ne vždy úspěšně.
Skrytí sloupce na základě hodnoty už jsem pořešil.
Přičítání hodnoty mi nefunguje podle potřeby, protože nevím jak kód upravit. Makro se mi spouští až po návratu do buňky místo při opuštění a nevím jak od myConst (vlastní název pro konstantu kterou beru z buňky) odečíst 1.
Přikládám nový soubor kde jsem i doplnil jak by měl vypadat výsledek.
Příloha: zip50490_test-odpocet.zip (22kB, staženo 17x)
citovat
veny(20.4.2021 12:45)#050495
avatar
našel jsem tento kódPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And IsNumeric(Target.Value) = True Then
Cells(Target.Row, 2) = Cells(Target.Row, 2) + Target.Value
Target.Value = 0
End If

End Sub
který dělá podobnou věc kterou potřebuji
hodnoty ve sloupci A přičítá do sloupce B a nastaví nulu
neumím to předělat na můj souborcitovat
Jiří497(20.4.2021 12:58)#050498
avatar
Mám v plánu se na to mrknout, ale nejdříve odpoledne nebo večer - pokud to někdo neudělá dřív :)

Dotazy:
Jedná se opravdu jen o 4 sloupce? Nebude jich do budoucna více?
Budou skutečně umístěny ve sloupcích A - D?
Bude tam nadpis A,B,C,D v řádku 6?
Budou tam čísla 1 - 4 v řádku 5?citovat
veny(20.4.2021 13:40)#050501
avatar
ad1-2
budou to 3 případně 4 sloupce podle hodnoty buňky "B3" a budou to buď sloupce A:C nebo A:D , ne jiné.

ad3-4
ne, hodnoty v řádcích 5 a 6 budou jiné ale pokud je potřeba nějaký identifikátor, je možné využít jakékoliv řádky 9+ s tím, že je potom skryji.
případně je možné i využití celých sloupců F+

Díky V.citovat
Jiří497(20.4.2021 23:35)#050505
avatar
Mrkněte na to.
Není to moc odladěné, za chvilku mi dojde baterka a nemám nabíječku.
Např. není ošetřené zadání jiného znaku než čísla.
Kladná a záporná čísla jsou ošetřené v zavislosti na CheckBoxu
Příloha: zip50505_test-odpocet.zip (24kB, staženo 13x)
citovat
veny(21.4.2021 7:46)#050506
avatar
Zdravím Jiří
díky že jste se na to mrknul. Mohu požádat o úpravu?
Buňka A1 je pouze výchozí hodnota pro A7:D7 a tato hodnota by se měla načíst do A7:D7 při otevření sešitu nebo při její změně.
Potom už by na přepočty neměla mít vliv a přepočty by měly probíhat s hodnotami A7:D7
zkusím na příkladu:
načtená hodnota z A1=200
Do A8 zadám 5 a vyjedu jakkoliv z buňky, A7=215 ; B7:D7=195
do A8 zadám znovu 5 a opustím buňku, A7=230 ; B7:D7=190

teď to vlastně pořád bere v úvahu hodnotu A1

Děkujicitovat
Jiří497(21.4.2021 23:40)#050520
avatar
Že by snad takto?
Příloha: zip50520_50505_test-odpocet.zip (25kB, staženo 17x)
citovat
veny(22.4.2021 12:18)#050528
avatar
Ano to je přesně ono a díky moc.citovat

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