Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  27 28 29 30 31 32 33 34 35   další » ... 156

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. 5 Aj keď neviem čo...

Ja som z toho jeleň. 8

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


Strana:  1 ... « předchozí  27 28 29 30 31 32 33 34 35   další » ... 156

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje