Příspěvky uživatele
< návrat zpět
a když nic, zvládne někdo udělat univerzální makro / vzorec?
z textového řetězce vybere všechny znaky mezi <v> a </v> tyto spočte a výsledek budou opět tyto znaky a jejich vypočtená hodnota? Mezi to nějak zakomponovat i zbytek <t> = text; apod.
konkrétně např. zadání:
<vv><r><v>26/4 </v><t>15min na pakr-primární injektáž</t><vy>A</vy></r><r><v>26/4 </v><t>sekundární injektáž</t><vy>B</vy></r><r><v/><t>Celkem: </t><v>A+B</v><vy>C</vy></r></vv>
a výsledek:
174/4 15min na pakr-primární injektáž=43,50 [A] 174/4 sekundární injektáž=43,50 Celkem: A+B=87,00
ještě dolním, že se jedná o XC4.cz "šifrování"
Zdravím,
prosím jak se dá konvertovat XML např do excelu, když je jeden sloupec definován pomocí znaků
myšleno:
výsledek: 26*0.8 primární injektáž=20,80 [A]
v XML zdroji:
<vv><r><v>(26*0.4)/2*2.07 </v><t>sekundární injektáž</t><vy>A</vy></r></vv>
i chápu, co které znaky znamenají, ale udělat univerzální makro (fci) pro to, aby mi to fungovalo a finálně hodilo nějakou activecell.formula se mi nepodařilo...
jsou zde i složitější případy
<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>
mno, ani tato verze dokumentu mi nepracuje, se stejným výsledkem jako ta první...
ne, že bych osobně o tento soubor stál, chápu princip i makro, ale jsem zklamán z toho, že soubor se jeví jako vadný..
je to zvláštní, ale řešení dle Jezi.m mi nefunguje v excel 2013, vypadá to, že tomu vadí nedeklarování proměnných "c", cells, přitom chyba ale je na knihovnu: Can't find project or library...
co mám špatně?
dá se to nastavit přímo v excelu
v OFF 2013 to je v tisku názvů - okraje - zápatí, tam si můžeš zápatí zvětšit dle potřeby, aby to nebylo jen to klasické dvouřádkové
jinak pokud Tě pak omezuje počet znaků, pak nevím, asi jen obrázek
Private Sub CommandButton1_Click()
Dim doklad As String, x As Integer
a = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(a, 1).Select
Columns(2).NumberFormat = "@"
ActiveCell.Value = Format$(Now, "dd/mm/yyyy")
If ActiveCell.Offset(-1, 1).Value = "Číslo dokladu" Then
GoTo skok
End If
If Month(ActiveCell.Offset(-1, 0).Value) = Month(Now) Then
On Error GoTo skok
x = Right(ActiveCell.Offset(-1, 1), 4)
x = x + 1
Else
skok:
x = 1
End If
doklad = Format$(Now, "yyyymmdd") & Format$(x, "0000")
ActiveCell.Offset(0, 1).Value = doklad
End Sub
ale taky nejsem žádný guru excel master :-) na to jsou tu jiní...
pro KT je nutné aktualizovat tabulky při vyplnění dalšího vybavení
pozor na zadávání dat do taublky - zadáváš tam "Lano " a "lano ", pokud bys zadal např. "Lano" (bez mezery), nebude vzorec fungovat, bylo by nutné upravit
i když moc nechápu, jaktože excel nedělá rozdíl mezi Lano a lano
Bez přílohy těžko říct...
zpracováno pomocí vzorce (ověření kategorie - "lano") nebo pomocí KT..
a přílohu máš?
Postup máš dobrej, ale jestli chceš aby to bylo podle aktuální buňky, musíš na to mít nějakou proměnnou.. nejsem specialista, ale asi takto:
Sub Makro1()
Dim hledej As String
hledej = ActiveCell.Value
Sheets("SUM1").Select
Cells.Find(What:=hledej, After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
směrové šipky taktéž fungují...
jen nesmíš zadávat to co je tam napsáno :-)
v makru je popsáno nahrazení pro směrové šipky s diakritikou... čili ne sz, ale šz, což ale když se koukneš do makra nebo do automatických oprav, tak uvidíš...
moc pěkná věcička, díky
¨šz|¨šs|¨šv|¨šj|¨švz|¨šzv|¨šsj|¨šjs|¨šsz|¨šsv|¨šjv|¨šjz
ještě při testu možná námět, i když to by se asi nedalo zautoamtiozovat... pokud chci horní index vícero znakový, musí se každý psát se speciálním znakem.. .
např. horní index 1234 = ´1´2´3´4
co tohle?
převzato z webu:
http://www.cpearson.com/excel/CFColors.htm
já teda nevím, co Ti tam přesně nefunguje, ale jestli jde čistě o odeslání emailu pro všechny verze, pak v popisu tohoto makra to je:
http://www.rondebruin.nl/win/s1/outlook/bmail10.htm
Ty indexy jsou dobrý, možná se to využije :-)
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