A nebo ještě jinak:
Tak jsem si dovolil nahlédnout
A Bohužel se mi také zobrazuje chyba (Excel 2007)
Method 'Select' of object 'Shape' failed
Chvilku sem si s tím hrál a dopadlo to takto viz soubor. Po přidání řádku (označen vykřičníky se chyba již nezobrazuje.
Vlastní fce mi moc nejdou
Jediný co se mi podařilo s tím udělat je, že ti fce vrátí počet buněk s komentářem v celým listu.
Snad sem koukne někdo zdatnější
Pomocí vzorečku to nepůjde - nebo o takové fci nemám páru, ale vyzkoušej makro v souboru
Jestli chceš to makro spouštět automaticky při otevření sešitu, tak ho musíš vložit do modulu sešitu (ThisWorkbook) né listu, jako Private Sub Workbook_Open()
Jeden malý maticový
Co takhle:
Sub secti()
'sečte hodnoty v buňkých A1 a B2
Soucet = Range("A1").Value + Range("B2").Value
'do buňky A1 zapíše součet buněk A1 a B2
Range("A1").Value = Soucet
'vymaže hodnotu v buňce B2
Range("B2").ClearContents
End Sub
Na toto řešení by snad stačili obyčejné vzorce viz příklad
Edit
pokud hodnota v buňce A1 má tvar a=12,6
tak stačí upravit vzorec
=HODNOTA(ČÁST(A1;NAJÍT("=";A1;1)+1;DÉLKA(A1)))
druhý pokus:
Tak to opět nejde
Stáhni si to zde
http://leteckaposta.cz/938494064
Tak ten předchozí MsgBox mi taky jede bez problému. Co se týče toho druhého můžeš si ho nastavit stejně jako ten první.
MsgBox "Registrační kód a informace byly uloženy do souboru:" & vbCrLf & """" & Jmeno_souboru & """" & _
vbCrLf & "v adresáři:" & vbCrLf & """" & Adresa & """" & vbCrLf & _
"Pro pokračování klikněte na " & """" & "Ok" & """" & " a " & """" & "Dokončit" & """", _
vbOKOnly + vbInformation, "Uložení souboru ..."
Jestli těmi mezerami myslíš mezeru mezi uvozovkami tak se koukni na toto:
MsgBox "Registrační kód a informace byly uloženy do souboru:" & vbCrLf & """ " & Jmeno_souboru & " """ & _
vbCrLf & "v adresáři:" & vbCrLf & """ " & Adresa & " """ & vbCrLf & _
"Pro pokračování klikněte na " & """" & "Ok" & """" & " a " & """" & "Dokončit" & """", _
vbOKOnly + vbInformation, "Uložení souboru ..."
COUNTIF
COUNTIFS
Jen taková střela od boku
TextBox2.Text = Format$(Time, "hh:mm")
Ahoj, jelikož máš přístup do VBA v souboru "Opravy lokomotiv...." chráněn heslem, tudíž se tam nedostanu. Tak sem upravil makro v původním souboru "spočítej", tak se na to mrkni.
PS: Když budeš chtít, je možnost nezapisovat nulový počet (nulu) do buněk ve sloupcích AK a AL nebo ji nahradit jiným znakem.
Ahoj, Tvůj soubor žádná makra neobsahuje, tak sem zkusil narychlo jedno slepit.
Jelikož mi soubor nejde vložit, tak si ho stáhni zde:
http://leteckaposta.cz/282163487
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.