Příspěvky uživatele
< návrat zpět
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.
Č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é. 
Š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. :)
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
Krásná práce, ještě jsem tam musel udělat nějaké úpravy ohledně formátu času a funguje to! :)
Ještě bych měl dva dotazy, když bych chtěl po odeslání dotazu vždy zapsat čas odeslání a přidat přihlášení / odhlášení? Abych mohl nasimulovat, "kdo je online", abych si v excelu mohl dát dotaz kdo je online a co je důvodem.
Druhý dotaz je: Dá se excelem opravovat záznam v databázi přes VBA? Jak by měl takový kód vypadat?
Ještě jednou děkuji za předchozí pomoc!!!
Děkuji za příklad, bohužel mi to v excelu 2010 hodí tuto chybu:
Run time error 2147467259 (80004005)
Automation Error
Unspecified Error
V příloze přikládám jak mám databázi uspořádanou
Děkuji za radu, mohu poprosit o ukázku, teprve s tím začínám a není mi to úplně jasné, zkoušel jsem to rozchodit, ale neúspěšně.
Server: DOMA123\SQLEXPRESS
Databáze: Table
Uživatel: Dejwing
Heslo: test
Děkuji
Dobrý den, mám dotaz ohledně propojení, chtěl bych se zeptat, jak v excelu udělat VBA, aby se při spuštění data nahráli do databaze "Table" sloupec A = jméno; slouec B = čas; sloupec C = Důvod, pokud není prazdný
Jedná se rozpracovanou výrobu, napíšu číslo dílu a hned se mi načtou kusy, z rozpracovaného boxu do pole B3 kam dále dodávám kusy až do naplnění boxu.
1. zadám do pole B1 co chci hledat
2. na základě této hodnoty se změní buňka C10, pokud se změní, tak se vyhledává, jestli je někde rozpracovaný box "měl by tam být vždy maximálně jen jeden" protože nelze mít v poli C10 současnou výrobu a k tomu mít zásobník v boxu => musím vědět po načtení dílu, že už mám nějaké kusy hotovy.
Podle mě vaše makro funguje naprosto skvěle! Děkuji Ale pokud víte o nějaké profesionálnější variantě, moc rád se přiučím, je pro mě velmi zajímavé. 
Pak by mě ještě zajímalo, pokud bych chtěl zpětně získat pouze počet kusů a smazat danou buňku, viz VBA v příloze, které nevím jak zjednodušit již zmíněným postupem, abych opět nemusel rozepisovat a něco se přiučit. Děkuji moc, jste nejlepší. :))
Děkuji moc, to je přesně ono, co jsem myslel. :)
Dobrý den, přijde mi, že píšu vzorec hrozně složitě a další rozšíření vede ke značně dlouhému řetězci.
Prakticky se jedná o řadu, kde zkoumám jestli je pole volné a když ano, tak zapiš, ale aby to bralo postupně směrem doprava, jako vzorec v příloze.
If Cells(21, 2) <> "" And Cells(3, 1) <> "" And Cells(21, 3) <> "" And Cells(21, 4) = "" Then Call reseticek3
If Cells(21, 2) <> "" And Cells(3, 1) <> "" And Cells(21, 3) = "" Then Call reseticek2
If Cells(21, 2) = "" And Cells(3, 1) <> "" Then Call reseticek1
Sub reseticek1()
Cells(21, 2) = Cells(1, 1)
Cells(22, 2) = Cells(5, 1)
Cells(23, 2) = Cells(3, 1)
Cells(3, 1) = 0
End Sub
Sub reseticek2()
Cells(21, 3) = Cells(1, 1)
Cells(22, 3) = Cells(5, 1)
Cells(23, 3) = Cells(3, 1)
Cells(3, 1) = 0
End Sub
atd...
Děkuji moc za rady :)
Skvělá práce, teď ještě jak zrušit ten duplikát a chybné uložení? :) 
Nakonec jsem problém vyřešil kombinací VBA always on top a VBA které spustí kliknutí myši. :) cíl splněn, děkuji za pomoc. :)
Okno se tímto dostane do popředí, jako v předchozím případě, nicméně pokud použiji scanner, tak nefunguje. :(
Ještě nějaká jiná možnost, jak aktivovat excel?
Uživatelské menu
\nMenu
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.
RSS nejnovější články