Příspěvky uživatele
< návrat zpět
Tipujem, že je to pre to, lebo "sviatky" je lokálny Definovaný názov pre list NEMAZAT. Nie pre celý zošit 
Skúste ešte to ADO.
Nie, PQ neumožňuje rozložiť dáta do buniek. PQ by urobilo bokom (na inom skrytom liste) maličkú výslednú tbl iba s vybranými info. A z nej by ste napr. cez INDEX alebo VLOOKUP dotiahli vzorcom do buniek tie info.
Ak bude treba, spravím a pošlem neskôr. Možno na večer...
Presne teraz keď čítam o UTF-8 ma napadlo PQ :) Čo si pamätám tak vo VBA je UTF-8 problém, a nešlo to tuším ani cez FSO a čarovalo sa tuším s ADO ...
Mám hotový základ. Načítanie zoznamu kont a výber konta v Outlooku, nájdenie adresára Doručenej pošty, zoznam adresárov v nej, výber adresára a čítam maily. A čo teraz? Nejak ďalej nerozumiem. Vy potrebujete testovať, či predmet začína na "ANO_*"? Ale veď ste písal, že triedenie zabezpečuje pravidlo. Takže v tej zložke sú iba maily s "ANO_*".
Príznak emailu sa zmení na fajku? Neviem čo tým myslíte. Toto nepoužívam. Každopádne ak čachrujem s vlastnosťami FlagIcon a FlagStatus chová sa to divne. Niekedy to nastaví červenú vlajku a inokedy nie. Toto skúste upresniť, ja si musím nájsť čas na googlenie ako to funguje.
Samotný zápis do buniek už je prkotina.
Tak teda jeden hókus-pókus
Tou sumou som myslel SUM - súčet - spolu. Pardon za nevhodný výraz.
Hmm, snáď to niekto pochopil, no za seba poviem, že ani náhodou.
Akým pomerom to rozdeliť? Podľa čoho? Zoberiem Košice 0, a keď má dole 2 časti, tak to seknem na polku? Prečo dole nie je Košice III.? Rozdeliť sumu??? Teda na základe súm jednotlivých častí, rozdeliť byty? Takže pri Košice 0. sa bude deliť 500 bytov? Na základe % podielu častí? Ale odkiaľ ho zoberiem?
Skúste uviesť jeden taký vypočítaný príklad ako to má vyzerať. A niekto Vám snáď na to spraví vzorec...
Môžete to prípadne upraviť aj na verziu s klasickým Array namiesto ArrayListu. +- autobus...
Sub kopiruj()
Dim Bunka As Range
Dim Radku As Long
Dim Sloupcu As Integer
Dim ArrList() As String
Dim Q As Range
On Error Resume Next
Set Q = Application.InputBox("Zadejte nebo vyberte myší cílovou buňku", "Cílová buňka", Type:=8)
If Q Is Nothing Then Exit Sub
On Error GoTo 0
For Each Bunka In Selection
Radku = Radku + 1
ReDim Preserve ArrList(1 To Radku)
ArrList(Radku) = Bunka.Text
Next Bunka
Q.Resize(Radku).Value = Application.Transpose(ArrList)
Set Q = Nothing
End Sub
Tak použite vzorec čo som tam dal, len ako "skok" nedávajte to VLOOKUP ale Vami želanú hodnotu "skoku", napr. 10, alebo 500 ...
=CEILING(A2;10)+1-10&"-"&CEILING(A2;10)
=ZAOKR.NAHORU(A2;10)+1-10&"-"&ZAOKR.NAHORU(A2;10)
Na to by som odporučil asi Rýchly Filter. K tomu aj pomocnú Tabuľku na rýchlu zmenu rozsahov. Niečo ako toto???
Funkčnosť približnú k popisu má iba ActiveX ComboBox.
Ano, len pozor, vzorec musí byť EN aj s EN oddeľovačmi. Teda nie CZ.
Preklad napr. tu.
V niektorých prípadoch môžete navyše použiť na vykonanie vzorcov EVALUATE("=vzorec")
Aha, to je myslené tak, že zdroj je vybraný pred makrom. V makre sa vyberá cieľ... Som to pochopl opačne, že InputBox vyberá zdroj, a cieľ je vedľa. Preto som písal.
Sorry... 
Namiesto
For Each Bunka In Selection
musí byť
For Each Bunka In Q
a namiesto
Q.Resize(ArrList.Count).Value = ...
zase
Q.Offset(0, 1).Value = ...
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