• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

;)
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

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse