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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.