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

Příspěvky uživatele

Zdravim,
nenapadlo me reseni vzorcem na jednu bunku, takze jsem si musel udelat pomocny sloupec (sloupec F).
Ve sloupci C je hledana matice.

V bunce H2 je pak pozadovany pocet

zdravim,
trochu jsem to musel upravit...
Hlavne zapsani tel cisla do bunky, protoze jestli se v nem ma vyhledavat jako v textu, musi byt ulozeno jako text a to uz formatem udelat nejde.
Pokud jde o vyhledavani v castkach, tak tam si budete muset vybrat, jak chcete vyhledavat (jde o cislo), jestli vetsi nez, mensi nez..atd...

ahoj,
identifikoval jsem tam podivne Komentare (asi pozustatky, ale jsou to ty vlajecky).
Kdyz jsem smazal (makrem) komentare Comment 212 - Comment 222, slo to normalne.
Nemam ale tuseni, co to udela s tvym normalnim souborem - zkusit se to ale da
Sub smazat()
For i = 212 To 222
ActiveSheet.Shapes("Comment " & i).Delete
Next i
End Sub

1) nejjednodussi je asi pouzit metodu 'Najít a nahradit: CTRL+ H)
Najit: '.' (tecka)
nahradit: '' (nic)
mozna bude jeste potrebat prevest format hodnoty na cisla (nebo obecny)

2)Druha varianta je pouzit funkci
pokud je vas text v bunce A2, tak muzete do jine bunky vlozit vzorec =HODNOTA(DOSADIT(A2;".";""))...

O tomhle moc nevim, ale staci trosku googlit a lze najit spoustu linku, ktere vysvetluji, jak na to ´(bohuzel v anglictine) - jeden napr. tady: http://www.pencomdesign.com/support/relay_software/vba_software_example.htm

Proceduru jsem navazal na tlacitko 'Prenest do skladu'
Jen chci podotknout, ze jestli budete chtit prejmenovat list 'Objednavka' na 'Prijemka, musite tyto nazvy nahradit v kodu...

Tohleto (aspon podle toho, co ja vim) nejde...
Lze menit pozici tvaru pri udalosti, co excel nabizi (a scrolovani to neni), tedy napr. zmena vyberu - uzivatel by tedy musel kliknout do bunek, aby se tvar opet dostal do puvodni pozice na obrazovce.
Nebo lze udelat uzivatelsky formular, ktery by byl spusten NEmodalne, coz mi prijde nejlehci (otazka ale je, na co to vlastne potrebujete)

taky trosku prispeju do mlyna:
Private Sub TextBox2_Change()
If IsNumeric(Me.TextBox2.Text) And Len(Me.TextBox2.Text) > 0 And Len(Me.TextBox3.Text) > 0 Then
Me.TextBox4.Text = Me.TextBox2.Text * Me.TextBox3.Text
Else
Me.TextBox4.Text = ""
End If
End Sub

Private Sub TextBox3_Change()
If IsNumeric(Me.TextBox2.Text) And Len(Me.TextBox2.Text) > 0 And Len(Me.TextBox3.Text) > 0 Then
Me.TextBox4.Text = Me.TextBox2.Text * Me.TextBox3.Text
Else
Me.TextBox4.Text = ""
End If
End Sub

aha, tak na to musite uplne jinak:
Pokud v bunce H23 mate ono cislo 13 a v bunce napr. I23 se ma zobrazit 13/13, tak proste jen do bunky I23 zadejte vzorec:
=H23 & "/" & H23

Jestli vam jde o sablonu ulozenou zde na wall.cz, tak zadne heslo ke generatoru hesel nepotrebujete.
Musite povolit makra a tlaticko 'Generuj' vam vygeneruje unikatni karticku, kterou muzete pouzit pro tvorbu (a zapamatovani) hesel...

Zkuste formatovat vlastnim formatem takto:
@"/"@

V listu objednavka jsem pripravil smazani radku (nejsou tam kontroly, jestli se nahodou nepokousite smazat radek mimo oblast polozek - nechtelo se mi) a vsech polozek.
+ na listu sklad je na dvojklik pripraven export do objednavky (nevedel jsem, jakou cenu tam potrebujete dostat...)

skryt se da takto:
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

zobrazit takto:
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"

Jedine makrem, ktere by se spustilo vzdy, kdyz by byl aktivovan konkretni list (nekam by se zapsalo jmeno a cas).
Bohuzel, pokud by uzivatel makra nepovolil, tak by nic zapsano nebylo...

Dival jsem se na vas soubor, ale vubec mi nejde dohromady s popisem.
Bunka B2 obsahuje "PRACOVIŠTĚ" a bunka A2 rozhodne neni ciselna...
= jsem z toho zmaten a nechapu to...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje