Příspěvky uživatele
< návrat zpět
Nejlepší řešení je asi zapsat událost prvního otevření někam do buňky a následně testovat při každém otevření tohoto sešitu onu buňku, může být přece na skrytém listu toho sešitu někde dole... If active cell= "uzotevreno" then userform.show end if .... nebo podobně dle situace v makru , pochopil jsem problém správně ?
No dobre to heslo si niekde uložím. Ale ak pri druhom otvorení nebude zadávať heslo, tak s čím to uložené heslo chceš porovnať? 
Tak napíš ako si to predstavuješ?
Prvý zákazník si otvorí súbor zadá heslo a potom ten súbor uloží.
Pri druhom otvorení(hocikým) sa nebude pýtať na heslo. Teda ho otvorí hocikto.
No ak ten jeden pri druhom otvorení to heslo potrebovať nebude, tak ho predsa nebude potrebovať nikto. .
Takto, ale aby bylo zadání hesla ať jednoho, nebo druhého pouze jednorázové. Při dalším otevření sešitu až nesmí být zobrazena výzva k zadaní hesla, ale pouze se otevře UF
Tak načo tam to heslo chceš, keď po uložení to môže hocikto otvoriť?
Function zrataj(lcell As Range) As Double
' nastavi sa do bunky, kde chceme vlozit vzorec
zrataj = 0
For Each bunka In lcell
If bunka.Offset(0, 2) = "a" Then zrataj = zrataj + bunka
Next bunka
End Function
Asi si chcel niečo takéto?
Veď aj na posledný deň predchádzajúceho roka to funguje.
=C4-DATUM(ROK(C4)-1;12;31)
Alebo rozšíreným filtrom.
Odklikni presne podľa vzoru.
Ako píše misocko, tak je to najjednoduchšie. Len by som po zoradení použil funkciu OFFSET(POSUN) alebo INDEX.
Ale ak by si chcel iba funkciu, tak si môžeš naprogramovať vlastnú. Algoritmus na QUICKSORT alebo BUBLESORT si vygúgliš.
A vieš to dať do zip alebo rar?
Tu je makro pre jeden zošit.
Sub makro()
Dim rng As Range
Set rng = Range("A2:A" & ActiveSheet.UsedRange.Rows.Count)
Range("A2") = "1"
Range("A2").AutoFill Destination:=rng, Type:=xlLinearTrend
Columns("H:H").Delete Shift:=xlToLeft
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
' dorobil som hlavičku a pätu
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.CenterHeader = "&F"
.CenterFooter = "&F"
End With
Application.PrintCommunication = True
End Sub
Skúsim aj ja pridať.
Najlepšie je to vlastnou funkciou.
V prílohe sú dva spôsoby. S makrom a bez makra.
Bez makra je to iba na dvoch najlepších kandidátov.
Presne na toto je podmienené formátovanie.
A nestačilo by kliknúť na čísla riadkov v stlpci úplne vľavo?
=max(a-b;0)
alebo
=If(a-b>0;a-b;"")
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články