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

Příspěvky uživatele

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

Dajte si niekam maticový vzorec (Ctrl+Shift+Enter), a natiahnite ho na rovnakú výšku.

=IFERROR(INDEX(STATY;SMALL(IF(VITAZSTVA>ZAPASY/2;ROW(STATY)-MIN(ROW(STATY)-1));ROW(A1)));"")
=IFERROR(INDEX(STATY;SMALL(KDYŽ(VITAZSTVA>ZAPASY/2;ŘÁDEK(STATY)-MIN(ŘÁDEK(STATY)-1));ŘÁDEK(A1)));"")
Definované názvy pre zjednodusenie:
STATY
=OFFSET(Hárok1!$A$2;;;COUNTIF(Hárok1!$A$2:$A$100;"<>"))
=POSUN(Hárok1!$A$2;;;COUNTIF(Hárok1!$A$2:$A$100;"<>"))
VITAZSTVA
=OFFSET(STATY;;3)
=POSUN(STATY;;3)
ZAPASY
=OFFSET(STATY;;2)
=POSUN(STATY;;2)
Alebo KT + dátový model.

Príklad

Som len na mobile. Tak len zbežne. PF je Podmienené formátovanie. Milión radkov som si všimol tuším na posuvníku. Normálne sa tam posuvníkom nedostanete. Ako potvrdenie je veľkosť suboru. Kameň úrazu nieje Definovaný názov, ale ten maticový vzorec v stĺpci A.

Odpoveď môže byť všeličo. Luu sa neunúva upresniť, čo tým myslela.
AB a BA sú rôzne alebo je to to isté? Ak budem robiť Športku, tak kombinácia 6,16,26,36,46 je predsa to isté ako 36,6,46,16,26. Ale heslo je predsa niečo úplne iné.
Je viac členov ako miest? Teda napr. na 3 miesta vylúskať 26 písmen? Alebo len 3?
Za výsledok je považovaný až vtedy ak dosiahne max počet? (A vs ABC pri maxime 3)
"bez opakování" znamená čo? Že nemôže byť AA? Alebo AB, BA?

Podľa toho čo potrebujete, sú rozdiely totiž veľké.
A       A       A
B       B       B
C       C       C
AA     AB     AB
AB     AC     AC
AC     BA     BC
BA     BC     ABC
BB     CA
BC     CB
CA     ABC
CB     ACB
CC     BAC
AAA   BCA
AAB   CAB
AAC   CBA
ABA
ABB
ABC
ACA
ACB
ACC
BAA
BAB
BAC
BBA
BBB
BBC
BCA
BCB
BCC
CAA
CAB
CAC
CBA
CBB
CBC
CCA
CCB
CCC

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje