Jak psal Pavlus na začátku, jednou z možností je text "rozložit" na číslo před dvojtečkou x 60 a přičíst to co je za dvojtečkou. Jde to třeba takto:
Private Sub CommandButton2_Click()
tx = TextBox1.Value
txt = Split(tx, ":")
cas = (txt(0) * 60) + txt(1)
TextBox1.Text = cas
End Sub
předpokládám, že existuje i jiný způsob, třeba to tu někdo napíše líp.
Pokud chceš do buněk vzorce, které budou zobrazovat to co je na ostatních listech v B3 a nevadí makro, tak to jde třeba takto:
Sub vzorce()
For lin = 1 To Sheets.Count - 1
jmenoListu = Sheets(lin + 1).Name
Cells(lin, 4).FormulaR1C1 = "=" & jmenoListu & "!R3C2"
Next
End Sub
zkus tohle
Sub otevři()
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "\\sítovýdisk\složka\podsložka\"
.Title = "Vyber adresar"
.Show
sxs = .SelectedItems(1)
Workbooks.Open Filename:=sxs
End With
End Sub
stačí vynásobit x 86400 a hodnota v obecném formátu je ve vteřinách.
Tady je funkce upravená s možností (nutností) stanovit argumnty fce a to navýšení (po 10000), minimální procenta (60), maximální procenta (80) a skok (5 procent).
Je třeba stanovit maximální mez provize ! Funkce toto omezení nemá!
20001-30000 Kč = 70% (atd.)
právě v tom atd. je problém, po určitém přičítání 5 procent se dostanete nad 100 procent provize, což je nesmysl.
Řešení funkcí ??
http://www.softpedia.com/get/System/Back-Up-and-Recovery/File-Repair.shtml
Jedna z možností.
Bold + svátky takhle ??
Nějak moc jsem to nezkoumal. Na listu Jídelníček zadání je skrytý sloupec F do kterého označuji co je zaškrtnuté.Pak to načte do seznamu. Je tam makro mazání sl. F při otevření Formuláře.
Nevím, jak má seznam objednávky vypadat, takže je to jen řádkový soupis všeho zaškrtnutého.
Takto?
Drobná úprava
Trochu jsem to upravil, co se týče výběru roku a měsíce. Použit je maticový vzorec (J.Walkenbach) a vše je na listu 2 (skrytý).
edit. opravené
to eLCHa
děkuji
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.