Příspěvky uživatele

Najskôr asi pomocou funkcie HOUR (HODINA)...

@marjankaj: hm, máš recht, nesledujem dátumy príspevkov..

@Lano: Stále sa nemôžem ubrániť dojmu, že funkcia CONCATENATE od doby, čo existuje ampersand, je v exceli pomerne zbytočná

@Thoms:"nemusím definovat názvy"
definovať názvy je každopádne dobrá prax

@Roman: je možné, že nesprávne chápem, čo popisuješ, domnievam sa však, že SVYHLEDAT sa v tomto prípade bez pomocného stĺpca nebude dať použiť

Tento typ úlohy sa dá riešiť (pokiaľ k tomu niekto nemá odpor) maticovým vzorcom:
Zápis v K4: =INDEX(D:D;MATCH(I4&J4;B:B&C:C;0))

@spetko: Tvarom myslím toto:

no, tak v tom prípade, ako som zmienil, vytvoriť podmienku, a do nej vložiť:

Shapes("nazov shape").Visible = True

Shapes("nazov shape").Visible = False

A tvarom myslíš, prosím, čo? Objekt shape vo VBA?

Zobrazenie alebo skrývanie shape sa riadi pomocou vlastnosti (alebo metódy?) visible.

To podľa môjho názoru s tou zrozumiteľnosťou dúfaš špatne, páč pokiaľ budem hovoriť za seba, tak nemám žiadnu istotu, o čo sa vlastne snažíš. Tipujem na funkciu SVYHLEDAT (VLOOKUP), ale pri tom zmätenom popise problému sa z mojej strany jedná skutočne iba o tip..

Ja vím vidim, snazim se to pochopit z for a googlu a zkousením no
pokiaľ môžem poradiť, tak na začiatok by to asi chcelo nejakú knihu o VBA. Z fór a googlu sa dá veľa naučiť, ale chce to mať už aspoň niečo málo naštudované, inak si pmn stratený...
Ten pocit dobre poznám, pred pár rokmi som na tom bol podobne, ako Ty...
Ozvať sa môžeš, toto fórum je tu od toho, pokiaľ budem mať čas, tak odpoviem (alebo niekto iný). Mail ani SZ neposielaj, dík.

Ešte ma napadlo, že to môžeš zjednodušiť tak, že miesto toho tučného riadku napíšeš rovno:ActiveCell.FormulaR1C1 = InputBox("Vloz pozadovanu hodnotu/text")

prípadne úplne osekať na:ActiveCell = InputBox("Vloz pozadovanu hodnotu/text")

pokiaľ by som chcel byť purista, tak:ActiveCell.Value = InputBox("Vloz pozadovanu hodnotu/text")

No jednoducho, na začiatku kódu (hneď za riadok sub) vložíš riadok:

Dim MyInput vlastne ani nemusíš, pokiaľ nemáš nastavenú povinnú deklaráciu premenných, a keď vidím ten kód, tak som si skoro istý, že nemáš

A potom, miesto tých tučných riadkov (uvediem príklad toho prvého tučného) napíšeš:

MyInput = InputBox("Vloz pozadovanu hodnotu/text")
ActiveCell.FormulaR1C1 = MyInput

toto napíšeš miesto každého vytučneného riadku.

Ten Tvoj kód vznikol záznamníkom makra, chcelo by to trochu prečistiť

Tak to by som musel najprv ja pochopiť, čo myslíš týmto:
nemohl bys te mi to prosim napsat tam je to Activ

Tu máš príklad, ako pracovať s InputboxomSub PouzitInputbox()
'priklad, ako v kode pracovat s Inputboxom
Dim MyInput As String
MyInput = InputBox("Vlozte text")
MsgBox ("Vlozili ste text:" & vbNewLine & MyInput) 'toto vyhod a miesto toho pouzi premennu MyInput v tom
'Tvojom kode na mieste, kde si pri zazname makra pisal rucne text
End Sub

Makro si nahraj a potom tú časť, kde si pri nahrávaní makra vpisoval texty, nahraď inputboxom. Jeho výstup ulož do premennej a tú potom použi v kóde.

Trebárs tak, ako je to popísané tuná:http://blog.contextures.com/archives/2010/04/16/how-to-create-an-excel-pivot-table-from-multiple-sheets/

Alebo pomocou Worksheet_Change procedúry, vzor:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then
MsgBox "blabla"
End If
End Sub

Dá sa uvažovať i o nejakej SQL konštrukcii za použitia UNION, využití powerpivotu atď. atp.

Takže áno, ide to, okrem hore uvedených existujú určite i mnohé ďalšie spôsoby

No, Kuba, asi to bude tým, že to nie je návod pre Excel, a pravdepodobne ani pre VBA

@opičák: brutálny kód, klobúk dolu, skutočne impozantné. Mám ale jednu poznámku - podľa môjho názoru sa upieraš k premise, že počet faktúr je známy. Takže, stále to riešenie, i keď veľmi robusné, nie je stopercentné. Pokiaľ existujú viaceré kombinácie, tak čo s tým potom? Aká je výhoda tohoto postupu voči jednoduchému modelu v riešiteľovi? Mne vytvoriť to trvalo asi 2 minúty celkom, koľko času si nad vytvorením svojho strávil Ty? Neber to ako nemiestnu kritiku, skutočne oceňujem Tvoju schopnosť dať dokopy niečo tak komplikované. Ešte jedna poznámka: v oboch prípadoch (Tvojom i mojom) je tu ďalšia vada na kráse: stačí, keď sa oberateľ uklepne a pošle o nejaký ten halier inú čiastku, než je súčet jednotlivých fa a je to počítanie celé v pytli. Pravdu má marjankaj

@Opičák, nie je problém do riešiteľa zadať ďalšie obmedzujúce podmienky, v Tebou uvádzanom príklade podmienku, aby počet jedničiek, t.j. súčet hodnôt v stĺpci C, bol rovný 3. Predstavovať si čokoľvek je zbytočné, stačilo by, pokiaľ by sem OP dal vzor..
Inak, čo sa týka počtu faktúr, ten asi nie je v zadaní známy, páč na účet príde od odberateľa platba a to je všetko. Pokiaľ by odberateľ poslal zároveň s platbou i zoznam faktúr, tak nie je čo riešiť

@opičák: domnievam sa, že počet faktúr nie je potrebné pre riešenie úlohy poznať. Stačí poznať množinu neuhradených faktúr a z nich nájsť kombináciu tých, ktorých súčet dá 80000. Jedným z nástrojov, ktorým sa dá takáto kombinácia určiť, je riešiteľ.
Síce mám 100 chutí do ďalej nerozvádzať, páč OP je lenivý sem dať vzor, ale to riešenie je natoľko triviálne, že ho sem dám na dátach, ktoré som si pre potrebu ilustrácie vytvoril sám.
Danú kombináciu (jednu z možných), predstavujú faktúry, u ktorých je v stĺpci c po spustení riešiteľa číslo 1. V súbore v prílohe sú parametre modelu nastavené, riešiteľa som ale zámerne nespustil.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje