Příspěvky uživatele
< návrat zpět
@elninoslov
Myslím, že by sa mal venovať niečomu inému-jednoduchšiemu.
Alebo nech si pozrie knihu o programovaní VBA pre excel. Tam sa možno niečomu priučí.
Na to sa nedá ani pozerať.
Napríklad, čo je toto za vzorec?
=B3*VLOOKUP(A3;tblData;4;FALSE)-(B3*VLOOKUP(A3;tblData;4;FALSE))*G3
Prečo nie takto?
=B3*VLOOKUP(A3;tblData;4;FALSE)*(1-G3)
Do bunky D3 daj vzorec a skopíruj ho dolu
=IF(B3<>"";"B"&COUNTA($B$3:B3);IF(C3<>"";"C"&COUNTA($C$3:C3);""))
Do češtiny si to snáď preložíš.
IF=KDYŽ
COUNTA=POčet2
@xlnc
On nepotrebuje vyskočiť z cyklu. On sa iba takto "zrozumiteľne" vyjadruje.
On potrebuje iba preskočiť tých 5 riadkov za LOOP
Inak ten cyklus je naozaj úžasný. Toto by som určite ani nevygooglil.
A tá podmienka tb.leght < 199 je naozaj intuitívna.
Ale hlavne že mu to funguje. 
Neviem, načo si tam skopíroval zbytočnosti.
toto skopíruje z hárku2 do hárku1
Public Sub kopy()
Dim oblast As Range
Set oblast = Worksheets("hárok2").UsedRange
oblast.Copy Worksheets("hárok1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
StavrosJorgos napsal/a:
Zajímavé, používám vrzi ex.2017,...
2017? To už budú každý rok dávať novú verziu excelu?
mepexg napsal/a:
netypujem
=OFFSET(List1!$A$1;(COLUMN()+1)*5-6;IF(ROW()=1;0;(ROW()-1)*7))
Ešte by sa dalo údaje transponovať a nepotrebné stĺpce (1.-4. = A-D,6-9,...) zmazať; vyfiltrovať prvý a každý 8. riadok.
A načo je tam ten IF?
IF(ROW()=1;0;(ROW()-1)*7)
veď stačí
ROW()-1)*7
Inak "páčia" sa mi takéto zadania.
Vraj každá ôsma bunka. Ale nenapíše kde sa začína prvá bunka, či v prvom stlpci alebo ôsmom. Aby pridal prílohu to ho samozrejme ani nenapadne. Nemáme čarovné gule, iba obyčajné
@AL
Prečo blbosť? Uzol za hodinu je predsa zrýchlenie. Aj keď netuším, načo mu to bude. Možno čuchol k niečomu inému.
Sub knot()
Dim bunka As Range
On Error Resume Next
For Each bunka In Selection
If bunka <> "" Then bunka = bunka * 1.852
Next
End Sub
Toto ti prípadne prepočíta aj dátum na km/hod. Predpokladám, že sám vieš na čo sa pýtaš. A tiež vieš ako priradiť k tlačítku makro.
námorná míľa=1,852km
anglická míľa=1,609344 km
rímska míľa ≈ 1,480 km
rakúsko-uhorská míľa ≈ 7,586 km
uzol=námorná míľa /hodina ?????
Tak som to aj ja upravil.
@jiri-komarek
Ďakujem, ale ja som si už excel kúpil od microsoftu
A čo tak zlúčiť bunky A1 a A2 do jednej?
Rostislav napsal/a:
No, to není úplně ono.
Já naopak přesně vím, jak ty tabulky ke sloučení vypadají (budou všechny na chlup stejné), budou se lišit jen obsahem...
Tak to si potom chytrejší ako všetci ostatní na tomto fóre. Nikto z nás nemá predstavu, ako tie tabuľky majú vyzerať.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target,Range("b13:o199"))Is Nothing Then
Targetl.Interior.ColorIndex = 5
End If
End Sub
Googel
"makra v excelu"
určite si niečo vyberieš.
A tiež
"funkcie excel česky"
@xlnc
No pomaly ma už nebaví každému druhému opakovať, že má dať prílohu. Niekedy tá príloha aj tak odporuje pôvodnému zadaniu. A v tomto prípade tá príloha bola pridaná až neskôr.
K tomu C7:A350. Zistil som, že VBA cyklus funguje aj s takouto oblasťou. Ale Podľa prílohy asi malo byť C7:C350.
A rada typu "Vemte mu ten počítač" je niekedy síce lákavá, ale jej časté opakovanie je skôr na škodu.
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