Příspěvky uživatele
< návrat zpět
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
Zdeno-Frano napsal/a:
Ďakujem.
Skúšal som oboje, ale nech som robil čo som robil, to 1.riešenie mi nechcelo fungovať. Asi sa mám čo učiť ešte :-).
Ale ešte som to nevzdal, prídem na to!!!
možno si si nevšimol, že Hárok1 nie je to isté ako List1.
Ak to nebude viac ako mesiac, tak asi takto.
Ako si prestavuješ to "ohlídaní" netuším.
Sumavak napsal/a:
Už to jde :) teď už to jen použít na více řádků v jednom listě.
Neviem, čo ti ide.
A ako si predstavuješ tých viac riadkov? Takto nejako?
@elninoslov
Bavíš sa s "odborníkmi". Ak je v C1 5, tak je to málo. Ak je tam 2 tak je to OK.
Len mi nie je jasné prečo pcháš tie procedúry(aktualní a dochází) do hárkov a nie do modulu.
A keď bude hodnota "3" tak sa žiadne makro nespustí? Fakt to bolo "zrozumiteľne" napísané. 
Sumavak napsal/a:
Asi jsem fakt blbej a stále my to nejde :( a nejde my přiložit přílohaPříloha: 42215_pokus1.xlsx (21kB, staženo 1x)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Range("C1")
Case 0: Call Makro1
Case 1 To 5: Call Makro2
End Select
End If
End Sub
=SOUČIN.SKALÁRNÍ(--(DENTÝDNE(A1:A14;2)>5);C1:C14)
Je nejaký rozdiel spustiť *.xls a *.xlsx?
Uživatelské menu
\nMenu
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.
RSS nejnovější články