• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

To myslíte Vážne, že nemáte menu Údaje a Zoradiť ? Aký máte Excel ?

-A1:A5 máte dátumy
-B1 zadajte jeden zo vzorcov
-potiahnite B1 za jej pravý dolný roh, dole až po B5
-označte A1:B5
-menu Údaje - skupina Zoradiť a filtrovať - tlačítko Zoradiť - položku Zoradiť podľa nastavte na stĺpec B - OK

Nehovorte, že toto Vám nejde. Ak nie, priložte prílohu.

Heh, to by som nebol ja : Čo môžem, to si skomplikujem
Terazky sa tu tiež piplem s jedným kódom, čo tu mám poznačené, že som chcel dať príklad riešenia v nedávnom vlákne, ale stále iba pridávam zbytočnosti, toto by som tam chel, hento by tam mohlo byť, kód bobtná a zbytočne sa komplikuje, a neviem či sa na to nevyse... nevykašlem.

Naformátovať ako text je určo jednoduchšie a viac User-Friendly.

Skúste si urobiť vedľa pomocný stĺpec so vzorcom:
=MONTH(A1)*1000000+YEAR(A1)*100+DAY(A1)
=MĚSÍC(A1)*1000000+ROK(A1)*100+DEN(A1)
Označiť oba stĺpce - Údaje - Zoradiť - Zoradiť podľa - pomocný stĺpec - Hodnoty - Od najmenšieho po najväčšie

Ja by som to urobil určite cez polia:
Sub VyberKopiruj()
Dim Zdroj(), Ciel(), a As Long, Pocet As Long, PCiel As Long
Const Zaciatok = 5
Const Koniec = 41

Pocet = Koniec - Zaciatok + 1
ReDim Zdroj(1 To Pocet, 1 To 6)

With ActiveSheet
Zdroj = .Cells(Zaciatok, 2).Resize(Pocet, 6).Value2
.Cells(Zaciatok, 10).Resize(Pocet, 4).ClearContents

For a = 1 To Pocet
If Right$(Zdroj(a, 6), 1) = "0" Or Right$(Zdroj(a, 6), 1) = "5" Then
PCiel = PCiel + 1
ReDim Preserve Ciel(1 To 4, 1 To PCiel)
Ciel(1, PCiel) = Zdroj(a, 1): Ciel(2, PCiel) = Zdroj(a, 2)
Ciel(3, PCiel) = Zdroj(a, 5): Ciel(4, PCiel) = Zdroj(a, 6)
End If
Next a

If PCiel > 0 Then .Cells(Zaciatok, 10).Resize(PCiel, 4).Value2 = Application.Transpose(Ciel)
End With
End Sub
A ak nechcete rýchle polia, tak potom určo použite aspoň kopírovanie buniek naraz:
Sub VyberKopiruj2()
Dim a As Long, Oblast As Range
Const Zaciatok = 5
Const Koniec = 41

With ActiveSheet
.Cells(Zaciatok, 10).Resize(Koniec - Zaciatok + 1, 4).ClearContents

For a = Zaciatok To Koniec
If Right$(.Cells(a, 7), 1) = "0" Or Right$(.Cells(a, 7), 1) = "5" Then
If Oblast Is Nothing Then Set Oblast = Union(.Cells(a, 2).Resize(, 2), .Cells(a, 6).Resize(, 2)) Else Set Oblast = Union(Oblast, .Cells(a, 2).Resize(, 2), .Cells(a, 6).Resize(, 2))
End If
Next a

If Not Oblast Is Nothing Then Oblast.Copy: .Cells(Zaciatok, 10).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Cells(1, 1).Activate
End With
End Sub

Set Oblast = Union(Range("B" & a), Range("C4"), Range("F4"), Range("G4"))
Len z mobilu, snad som sa nepomylil. Kazdopadne ale myslim, ze viacnasobna oblast sa kopirovat tusim neda. Bude mozno treba po jednej podoblasti Area. Skuste, pripadne ked budem pri PC...

Edit: Kym som to ja natukal, us to tu mate

Možno to pôjde aj jednoduchšie, no raz za 2 roky tú jednu minútu obetujete nie ? Popis v prílohe.

...nájsť a vypísať... :
Taký vyhľadávací formulár, kde vidíte hneď výsledok po každom znaku, som tu už dával niekoľkokrát, len ktorá besná sviňa to nájde ...

...ukázať slová... :
Ak myslíte ako v internetovom prehliadači, všetky zvýraznené, tak to si neviem v Exceli predstaviť. Môžete označiť všetky bunky, ale slová nie.

...rovnaké ako Ctrl+F... :
To som písal v príspevku nad Vašim. Toto makro priraďte tlačítku:
Sub ShowFindReplace()
Application.CommandBars.FindControl(ID:=1849).Execute
End Sub

Príkladov je veľa ...

OT: Ovládam len zlomok toho, čo miestni fachmani, o tom ani reči, ale prečo som si vyslúžil úvodzovky aj na "ochotný" ?

Staršie Office už nemám ani vo virtuálkach (okrem XP+Off2003), nemám na čom testovať. Na Office 2016 fungujú obe spomínané verzie (Recipients aj To).

PF - samozrejme že nefunguje, veď ho máte urobené tak, že sa odkazuje na hodnoty z listu Dochazka. Teda nový súbor u niekoho v maile nemá ani páru o takom liste u Vás v PC. Teda navrhujem, aby ste víkend zisťoval rovno v PF (nie odkazom na bunku), a sviatky si dajte vyrátavať rovno niekde v tej kopírovanej oblasti, napr. v skrytom stĺpci A:A, a potom kopírujte o jeden stĺpec posunutú tabuľku (oblasť). Potom bude fungovať PF aj u adresáta.

Hádať sa nebudem, Solver nepoužívam, len tam nikde nevidím príklad, ani zmienku o tom, že sa má uvádzať textová adresa oblasti/bunky či vzorec. Všade vidím Range. "B2*$B$1+C2*$C$1" , "=B2*$B$1+C2*$C$1", teda aj obsah premenných prom a prom2 aj keď sú Varianty, tak sú automaticky interpretované ako String, nie sú Range. Sú to všetko Stringy.

Ak je napriek tomuto nedorozumeniu takéto použitie Solveru správne, spĺňa výsledok "=B2*$B$1+C2*$C$1" podmienku Integer ?

Prípadne sa zaregistrujte, aby ste mohol priložiť nejakú prílohu s príkladom toho čo máte, a výsledku ktorý chcete dosiahnuť. Možno sa tu odborníci na Solver nájdu.

A nemá byť náhodou CellRef typu Range ? Nie String. Lebo keď si pozriem nejaké príklady na MSDN, tak všade sa uvádza príklad s Range.

"Zastaví sa" znamená že Outlook čaká na potvrdenie (to je normálne), alebo že vyhodí nejakú chybu (ak áno akú?) ?

Ak je presne daná štruktúra, že sú spájané bloky od seba oddelené pravidlom "prázdny/neprázdny/prázdny" a zároveň majú veľkosť od 3 do 6 riadkov, tak do C3:
=IF(AND(A2="";A3<>"";A4<>"";A5<>"");A3&"#"&A4&"#"&A5&IF(AND(A6<>"";A5<>"");"#"&A6;"")&IF(AND(A7<>"";A6<>"");"#"&A7;"")&IF(AND(A8<>"";A7<>"");"#"&A8;"");"")

=KDYŽ(A(A2="";A3<>"";A4<>"";A5<>"");A3&"#"&A4&"#"&A5&KDYŽ(A(A6<>"";A5<>"");"#"&A6;"")&KDYŽ(A(A7<>"";A6<>"");"#"&A7;"")&KDYŽ(A(A8<>"";A7<>"");"#"&A8;"");"")
a potiahnuť dole.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse