Zsolti napsal/a:
Jen mě napadlo zda by to nešlo udělat automaticky, abych nemusel mačkat tlačítko vždy když budu chtít přidat řádek, ale aby se vytvořil automaticky, když v tom posledním bude nějaký záznam.
To v akej reči píšeš? Lebo som to akosi nepochopil.
A predsa až také nezmyselné to slovo KEYPRESSED nie je.
Síce to nefunguje na hociktorú klávesu, ale ENTER alebo smerové šípky zaberajú.
Sub Pokus()
Dim keypressed As Boolean
Cells(3, 3).Select
Do
DoEvents
keypressed = ActiveCell.Address(, , xlR1C1) <> "R3C3"
If keypressed Then Exit Do
Loop
MsgBox "konec"
End Sub
@kp57 Snáď ma nezabiješ, že som použil tvoj nápad.
@mike55.
Presne to som si myslel, že splietaš dva jazyky dohromady.
To je ako keby si češtinu prepletal s čínštinou. Tiež by to bolo každému jasné.
cmuch1 napsal/a:
"keypressed" je stisk klávesy, ale neví jak to tam dosadit.
keypressed je nejaká premenná a asi tam nebola priradená nijaká hodnota.
Skús použiť "OnKey"
Čo je to "keypressed"?
Čo si sa odtrhol? Nestačí ti na ukážku pár riadkov?????
Tak aj ja pridám. Požičal som si súbor od Dinga.
Tretí riadok má byť prázdny. Iba vybrané stlpce obsahujú text. V mojom prípade "x".
Z toho, čo uviedol zadávateľ, mi vychádza, že počíta s rokom, ktorý má 360 dní, Teda 12 mesiacov po 30 dní. Aspoň tá uvedená funkcia ROK360 (DAYS360) to naznačuje.
Teda asi by bolo dobré vedieť, na aký účel to potrebuje.
Tak prikladám svoje riešenie
=DATEDIF(A1;B1;"y")&"R-"&DATEDIF(A1;B1;"ym")&"M-"&DAY(B1)-DAY(A1)+DAY(EOMONTH(DATE(YEAR(B1);1;1);MONTH(B1)-1))*(DAY(B1)-DAY(A1)<0)&"D"
takto?
Klikni tam pravým tlačítkom a daj vymazať komentár.
SUMPRODUCT(C2:C10;H2:H10)
=SUMIF(D6:D15;"doprava";C6:C15)+SUMIF(D6:D15;"nákup";C6:C15)
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.