• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

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 = ...

Ale Vy si môžete určiť aj ktoré stĺpce sa majú ignorovať.
Ak chcete ešte k tomu aj selektovať na základe nejakých podmienok aj riadky, dá sa použiť PQ, kde bude výstupom už učesaná Tabuľka, alebo CSV rozobrať makrom v cykle a pomocou Split().

Áno dobrý postreh, elektromer sa mení celkom bežne. Tak ja neviem, napr. by sa mohol nový elektromer dať do zdroja do nových stĺpcov ale s rovnakou firmou a pokračovalo by sa v novom mesiaci. Konečné súčty by sa museli upraviť vzorce na nejaké maticové sčítanie. Ak to bude treba porozmýšľam nad tým...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje