MS Excel

Dobrý den, snažím se smrsknout soubor za použití VBA, kdy mi místo vzorce do polí budou dány pouze hodnoty s tím že kliknu na tlačítko přepočítat prázdné pole a nebo tlačítko přepočítat vše.

V řádku A:A je vzorec
Pro A1
=COUNTIFS(wins!R:R;$C$1;wins!R:R;$B$1)
Pro A2
=COUNTIFS(wins!S:S;$C$1;wins!S:S;$B$1)
Atd... sloupce se posouvají. :)
délka pro výčet je poslední vyplněný sloupec v řádku 2:2

V podstatě využívám i vzorce, Index(pozvyhledat;Pozvyhledat). Prosím o excelovský file, abych se přiučil funkčnosti a pochopil logiku. Děkuji moc

Zaslat odpověď >

xlnc(15.6.2018 12:36)#040698

Budu hnusný, ale vy se učit nechcete..

V řádku A:A je vzorec

V podstatě tři chyby v pár prvních slovech? Nemáte chuť si ani po sobě přečíst zadání. Ale jo, někdo se tu najde.citovat

eLCHa(15.6.2018 12:57)#040702

Prosím o excelovský file, abych se přiučil funkčnosti a pochopil logiku.

Tohle vážně nemá chybu. Já doufám, že jste napsal něco jiného, než jste myslel. Protože jestli ne, tak si tento web pletete s něčím jiným. Toto není školící server a neuvěříte, za školení se platí.citovat

Dejwing(15.6.2018 13:57)#040703

Špatně jsem to napsal...

Ve sloupci A:A je vzorec
Pro buňku A1
=COUNTIFS(wins!R:R;$C$1;wins!R:R;$B$1)
Pro buňku B1
=COUNTIFS(wins!S:S;$C$1;wins!S:S;$B$1)
Atd... :)

poslední vzorec se zapisuje podle řádku 2:2 podle poslední hodnoty "což určuje sloupec" kam až se budou hodnoty počítat.

Už jsem na řešeni přišel, bylo jednodušší, než jsem původně myslel, děkuji za nabuzení k dalšímu snažení, příště si to po sobě přečtu. :)citovat

elninoslov(16.6.2018 2:52)#040714

Máte tam už vzorce, a chcete ich nahradiť hodnotami ?
Označte oblasť, Ctrl+C, pklik, Možnosti prilepenia - Hodnoty. Na to nieje treba makro.

Nemáte tam vzorce, a chcete ich vložiť do stĺpca A:A toľko, koľko je v riadku 2:2 hodnôt, a následne previesť na hodnoty ? Na to sa dá makro urobiť, ale vložte prílohu ako to vyzerá, nech vieme ako sú dáta umiestnené, odsadené, typ dát, či je pod tabuľkou niečo iné na čo treba brať ohľad pri zisťovaní počtu riadkov, či sú tam medzery a pod ...citovat

marjankaj(16.6.2018 7:29)#040715

@elninoslov
Myslím, že si nepochopil zadanie. Prílohu nebude dávať zadávateľ, ale ju máme dodať my.

citovat

elninoslov(16.6.2018 11:18)#040716

Jáj :)

Ale okrem zámeny "řádku A:A" s "sloupcem A:A" mi tam do očí bije ešte to, že treba vkladať vzorce do A1, A2, A3, ... na základe riadku 2:2. Čo ale koliduje s vkladaním do A2, keďže je to 1. bunka 2. riadku, ktorý je referenčný pre počet vzorcov.

Alebo podľa druhého príspevku je vraj v sloupci A:A v bunke A1 vzorec X, v bunke B1 vzorec Y, ... Lenže problém je, že bunka B1 nieje v sloupci A:A.

No a do tretice mi neštimuje v B1 vzorec =COUNTIFS(wins!S:S;$C$1;wins!S:S;$B$1), ktorý odkazuje ako kritérium sám na seba, teda B1. A rovnaké to bude v bunke C1 keď bude zase prvé kritérium C1.

Teda ja predpokladám, že keď si dopletiete tie jablkohrušky, tak nám ukážete niečo v tom zmysle, že máte v riadku 2:2 (A2:Axxx) hodnoty, ktoré určujú počet vzorcov v riadku 1:1 (A1:Axxx). A tie vzorce do 1:1 (A1:Axxx) chcete vložiť, pričom ako kritérium bude odpovedajúca hodnota napr. z 2:2 (A2:Axxx). A pod. Proste niečo, čo nebude kolidovať navzájom. :)

Takže Dejwing, šup sem prílohu...citovat

xlnc(16.6.2018 14:15)#040717

marjankaj napsal/a:

@elninoslov
Myslím, že si nepochopil zadanie. Prílohu nebude dávať zadávateľ, ale ju máme dodať my.

Nová doba, řešitelé musí dodat řešení pro cokoliv do 30 minut bez ohledu na to, jestli existuje zadání, jestli se jim chce nebo je víkend :-D Tazatel má právo dožadovat se lahve značkového alkoholu, v případě, že by řešení nepochopil. A běda, jestli se o tazateli vyjádří nelichotivě, naruší tak jeho psychiku nebo je "emo auru". Prosím moderátory, aby upravili pravidla :-)citovat

Dejwing(18.6.2018 10:20)#040732

Člověk se může vyjádřit blbě, když je unavený a fakt jsem toho ten den měl dost, zde přikládám přílohu i s řešením, lépe to nevymyslím, ale funguje mi to. :)

Snad z přílohy je již zadání jasné.

Příloha: zip

40732_automatvzorce.zip (22kB, staženo 25x)

citovat

elninoslov(18.6.2018 11:34)#040734

Načo je tam to "Ano" v A1 ?
Počítate určite hodnoty od A1 ? Nie náhodou až od B1 ?
Načo slúži v makre Dim AnoNe() ?
Ak si ujasníte absolútne a relatívne adresovanie buniek, nepotrebujete podľa mňa žiadny cyklus.
Napr.
Sub pokus()
With Range(Cells(2, 1), Cells(1, Columns.Count).End(xlToLeft).Offset(1, 0))
.Formula = "=COUNTIFS(WINS!$R:$R,A$1,WINS!$S:$S,B$1)"
.Value = .Value
End With
End Subcitovat

Dejwing(18.6.2018 13:08)#040735

elninoslov napsal/a:

Načo je tam to "Ano" v A1 ?
Počítate určite hodnoty od A1 ? Nie náhodou až od B1 ?
Načo slúži v makre Dim AnoNe() ?
Ak si ujasníte absolútne a relatívne adresovanie buniek, nepotrebujete podľa mňa žiadny cyklus.
Napr.
Sub pokus()
With Range(Cells(2, 1), Cells(1, Columns.Count).End(xlToLeft).Offset(1, 0))
.Formula = "=COUNTIFS(WINS!$R:$R,A$1,WINS!$S:$S,B$1)"
.Value = .Value
End With
End Sub

Dim AnoNe() mělo sloužit k tomu, jestli přepočítat všechno, nebo jen prázdné hodnoty, ale s tím jsem si zatím neporadil, ještě nad tím pracuji, tak jsem poslal jen tu část, která mi funguje. No upřímně jsem zatím do tématu absolútne a relatívne adresovanie buniek nezabrousil, děkuji za radu. Jinak počítám od hodnoty A1. Ještě jednou děkuji.

citovat

Téma: VBA výpočet hodnoty místo vzorce po sloupci řádk

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query