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

Příspěvky uživatele

elninoslov, nejdem tvoje riešenie študovať, ale ak bukva preformuluje svoje zadanie, tak by to tak aj mohlo byť. Ako to robíš, že dáš riešenie skôr ako vznikne zadanie?

TAKTO?

INDEX(C:C;MATCH(F4;B:B;-1);1)
INDEX(C:C;POZVYHLEDAT(F4;B:B;-1);1)

=EOMONTH(B4;-1)+1

Tak to ma naozaj teší, že ti to funguje. Aj keď neviem čo...

Ja som z toho jeleň.

Alebo funkciu COUNTIFS

takto?

Aj ja mám problém u toho makra. Už iba jeho čítanie je utrpenie.

niekedy je to tu ako v tomto vtipe.

Na kongres ide vlakom skupina inžinierov a manažérov. Každý manažér má svoj cestovný lístok, inžinieri majú dohromady len jeden. Zrazu jeden z inžinierov volá:
- Ide sprievodca. - a všetci inžinieri sa natlačia do jedného WC. Sprievodca skontroluje cestovné lístky manažérom a keď uvidí zamknuté dvere na WC, zabúcha na nich:
- Cestovný lístok prosím.
Z WC sa spod dverí vysunie jeden lístok, sprievodca ho cvakne, prestrčí späť, poďakuje a spokojne odchádza.
Na spiatočnej ceste si manažéri kúpia jeden cestovný lístok a inžinieri dokonca nemajú žiadny. Jeden z manažérov zvolá:
- Ide sprievodca. - a všetci manažéri sa utekajú schovať na WC. Inžinieri trochu pomalšie odchádzajú na ďalšie WC.
Posledný z inžinierov ešte predtým ako sa schová, zabúcha u manažérov:
- Cestovný lístok prosím.

Ponaučenie:
Manažéri často používajú inžinierske riešenia, bez toho aby im rozumeli...

A čo tak bez makra?
Pri stlačenom CTRL kliknúť na bunky A, C, E a potom DELETE?

Alebo makrom
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Cells(Target.Row, 1).ClearContents
Cells(Target.Row, 3).ClearContents
Cells(Target.Row, 5).ClearContents
Application.EnableEvents = True
End If
End Sub

napríklad desaťkrát zmeníš hodnotu a dostaneš desať súborov xml?

daj tam písmo curier.

priložil som subor

Skus toto makro
koef je približný počet znakov v zlúčenej bunke.

Private Sub Worksheet_Change(ByVal Target As Range)
koef = 36
If Target.Column = 7 Then koef = 54
vyska = (Int(Len(Target) / koef) + 1) * 15
Target.RowHeight = WorksheetFunction.Max(Target.RowHeight, vyska)
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse