Příspěvky uživatele
< návrat zpět
Vhodnejšie je ísť odzadu
for x = 666 to 1 step -1
if cells(x,1) <> "" then rows(x).delete
next
A kríž tam nie je?
riadok zelený a stlpec žltý.
A tlačítko CTRL ti inak funguje?
Skús pravé CTRL.
Když dám formát a upravit šířku buňky
Takéto niečo som v exceli 2010 nenašiel. Že by v exceli 2013 také zapracovali?
Čo myslíš pod vyfiltrovať?
Vylúčiť duplicity?
Alebo tie duplicity vypísať?
=IF(ISBLANK(A1);"";A1)
No je tam rekurzívne volanie, takže asi ten OLDPOINTER sa stále mení.
Možno by stačilo napríklad
Application.Cursor=xlNorthwestArrow
Neviem, musel by som skúšať. A teraz nemám čas.
Sub ukazovatko()
Application.Cursor = xlIBeam
Select Case Application.Cursor
Case 1
MsgBox "xlNorthwestArrow"
Case 2
MsgBox "xlwait"
Case 3
MsgBox "xlIbeam"
Case Else
MsgBox "xldefault"
End Select
Application.Cursor = xlDefault
End Sub
No môže si tam pridať riadok
Sheets("Nastavení").Cells(9, 17) = TextBox1*1
Sheets("Nastavení").Cells(9, 17).NumberFormat = "0000"
A bude to mať 0600
A mohol by si priložiť postup ako by si to riešil bez excelu?
Do excelu ti to potom hodí hocikto.
@opičák
Stačí testovať zmenu v stlpci A
$A1<>$A2
A čo tak automatický filter?
To by som asi riešil podmieneným formátovaním.
=KDYŽ(A(NYNÍ()-DNES())*24>6,5;(NYNÍ()-DNES())*24<=18,5);"DENNÍ";"NOČNÍ")
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