Příspěvky uživatele
< návrat zpět
;)
Do Prahy jezdím tak 2x za 10 let, takže se "brzy ozvu" a vyzvednu si to ;))
Pokud nepotřebujete žádná zvláštní pravidla zaokrouhlení, tak=ČAS(HODINA(A1);MIN(A1);SEKUNDA(A1))nebo=ČASHODN(HODNOTA.NA.TEXT(A1;"hh:mm:ss"))
Mno
Já používám něco takového With .QueryTables.Add(Connection:=sSource, Destination:=.Range("Data"), SQL:=sSQL)
.AdjustColumnWidth = False
.FieldNames = False
.Refresh BackgroundQuery:=False
.Delete
End With '.QueryTables.Add(Connection:=sSource, Destination:=Range("Data"), Sql:=sSQL)a čeká to na načtení (BackgroundQuery = False).
Zkus
Snad Vás navedu. Na to abych to řešil celé nemám čas a stejně úplně nechápu, co přesně chcete. Snad pomůže někdo jiný. Ten vzorec pro celkem byste měl zvládnout
V tom poslední případě (dneska přidané) máte <v/> a to je vyhodnoceno jako v. Pokud je to chyba - nevím - já to zatím ošetřil pomocí Replace. Také si musíte ošéfovat sám.
Sub test()
'Const csTEST As String = "<vv><r><v>(26*0.4)/2*2.07 </v><t>sekundární injektáž</t><vy>A</vy></r></vv>"
Const csTEST As String = "<vv><r><v/><t>'- vzorový řez B</t></r><r><v>0.26+1.13+0.28+0.79+0.87+0.28+0.28+2.46+1.36 </v><t>stěna nátoku</t><vy>A</vy></r><r><v>0.82+1.11+3.85+2.17+2.12+2.73+1.22+1.43+3.93+2.78+3.85+2.24+1.89 </v><t>LS</t><vy>B</vy></r><r><v>0.32+0.3+1.43+1.36+1.24+3.66+0.95+3.59+1.77+3.63+3.65 </v><t>stěna odtoku</t><vy>C</vy></r><r><v>2.49+0.3*3+2.89+2.82+1.88</v><t>PS</t><vy>D</vy></r><r><v/><t>Celkem: </t><v>A+B+C+D</v><vy>E</vy></r></vv>"
Dim xmlParser As Object
Set xmlParser = CreateObject("MSXML2.DOMDocument")
Dim bErr As Boolean
bErr = False
If Not xmlParser.LoadXML(Replace(csTEST, "<v/>", vbNullString)) Then
bErr = True
Err.Raise xmlParser.parseError.ErrorCode, , xmlParser.parseError.reason
End If
If Not bErr Then
Dim sText As String
Dim iChild As Integer, iChild2 As Integer
For iChild = 0 To xmlParser.ChildNodes.Length - 1
For iChild2 = 0 To xmlParser.ChildNodes.Item(iChild).ChildNodes.Length - 1
With xmlParser.ChildNodes.Item(iChild).ChildNodes.Item(iChild2)
sText = vbNullString
On Error Resume Next
sText = sText & .SelectSingleNode("t").Text & ": "
sText = sText & Format$(Evaluate(.SelectSingleNode("v").Text), "0.00")
sText = sText & " [" & .SelectSingleNode("vy").Text & "]"
On Error GoTo 0
End With 'xmlParser.ChildNodes.Item(iChild).ChildNodes.Item(iChild2)
Debug.Print sText
Next iChild2
Next iChild
End If
Set xmlParser = Nothing
End Sub
Na to stačí vzorec=COUNTIF($H$2:$H$73;"*"&O$1&"*")Pokud to musí být VBA, použijte Evaluate nebo vložte vzorec a pak převeďte na hodnoty
Moc formulářové prvky nepoužívám, ale na toto se pěkně hodí
Nerozumím tomu, že jedete přes Shapes. Proč?
Normálně mi funguje With ComboBox1
.Clear
.AddItem "1.1"
.List(.ListCount - 1, 1) = "1.2"
End With 'ComboBox1
@elninoslov
Je to možné a vlastně i pravděpodobné. Data jsem vůbec nekontroloval. Prostě jsem jen vyzkoušel cestu, kterou by to mohlo jít. Nic jsem neřadil, alespoň ne úmyslně ;)
Doladění už nechám na OP. Stejně je tam určitě spousta dalších ale.
Sám bych si ta data stejně asi nejdřív transformoval do přijatelnější podoby...
Kontingenční tabulka
Nejen, že to není vyloženě excelovina, ale s excelem to nemá nic společného ;)
Jen jsem něco zkusil a jede to, takže v excelu to jde rozchodit nějak takhleAppActivate Application.Caption 'excel
Application.Wait Now + TimeSerial(0, 0, 20)
AppActivate "Firefox"
'ej tý dýTa záhlaví si ale musíte zjistit sám
A nebo si uděat print screeny a hodit je do PP. A je to.
Mám to také prázdné. Možná je třeba volat to jako admin.
2 možnosti:
Sub sub1()
Application.Visible = False
MsgBox "Kuk", , "Kukacka"
ActiveWorkbook.Saved = True
Application.Quit
End Sub
A tahle se mi líbí ;)Sub sub2()
Call Shell("C:\windows\system32\mshta.exe ""javascript:var sh=new ActiveXObject('WScript.Shell'); sh.Popup('Kuk', 0, 'Kukacka', 64 ); close()""")
ActiveWorkbook.Saved = True
Application.Quit
End SubJe možné nastavit interval, kdy se MsgBox sám zavře ;) - to první číslo
Stačí vzorce, jen je třeba je pořádně doladit.
Odlaďte vzorce pro první středisko a pak je najednou zkopírujte pro všechna ostatní. Pokud používáte zaokrouhlení, vyberte si jedno středisko, které bude "dopočítávací" = rozdíl firma celkem mínus suma ostatních středisek
Datum se nepočítá, ale formátuje.
Klikněte na buňku a naformátujte ji na datum.
Nečetl jsem to, ale jen k zamyšlení.
Co podmíněné formátování v kombinaci z ověřením dat?
A k tomu pak Change.
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