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

Příspěvky uživatele

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

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse