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

Příspěvky uživatele

uz natom pracujem ... uz len jedna otazka :P

hodnoty stlpca Label budu vzdy identicke?

trochu som sa s tym hral skontrolujte si to ci je to podla vasich predstav

chceto nejaku predlohu takto mozem len hadat co presne potrebujete a ako sa ma presne to makro spravat

takze odpoved je takato:
Private xl As Excel.Application
Private W As Workbook
Private W2 As Workbook
Private XlsName() As String

sub test()
Set xl = CreateObject("Excel.Application")
Set W2 = xl.Workbooks.Open(Application.ThisWorkbook.Path & "\Complet.XLSX")
For x = LBound(XlsxName) To UBound(XlsxName)
Set W = xl.Workbooks.Open(Application.ThisWorkbook.Path & "\TEST\" & aName)

'TU SA DOPISE PRESNE CO MA ROBIT s W2 a W
W.Close False
Next
Set xl = Nothing
end sub

Private Sub LoadNameXLSM()
MyFile = FileSystem.Dir(Application.ThisWorkbook.Path & "\TEST\" & "*.xlsm")
Do While MyFile <> ""
ReDim Preserve XlsxName(x)
XlsName(x) = MyFile
x = x + 1
MyFile = FileSystem.Dir
Loop
End Sub

otazky teraz zniu:
- bude sa tabulka vzdy nachadzat prvom sheete?
- stlpce v tabukach budu mat iste poradie alebo sa menia?
- ake dalsie zazraky chcete aby torobilo?

pozrel som si to :)

a zopar postrehou:
- zamiesto IF pouzit SELECT CASE
- potom ked zmenite hodnotu v comboboxe tak clearuje ostatne comboboxy bez moznosti zachvania hodnoty keby nahodov existovala
- mozno by bolo lepsie nie tam davat nafest data ale logicku postupnost

:) ale inac funkcne takze je to dobre

skusal som to u seba ako je to v tomto priklade a prebehlo to v poriadku. Chyba bude niekde v tvojom PC .P

a este jedna vec do tejto casti fora malo kto chodi treba to pisat do MS Excel :)

nebolo vobec potrebne vytvarat novy prispevok koli prilohe :)

ako Al uz spominal mali ste pouzit funkciu SVYHLEDAT/VLOOKUP

tu je popisane ako funguje:
http://office.microsoft.com/sk-sk/excel-help/vlookup-HP005209335.aspx

verim tomu ze ste to aj skusali ale nefungovala vam :)). Problem bol v tom ze hladane cislo nebolo naformatovane ako "Nummer" ale ako "String" takze porovnavalo textove pole s ciselnym polom a preto to nefungovalo .... jedine co stacilo upravit v tom dokumente bolo stringove udaje zmenit na nummer

v tejto prilohe je to opravene a taktiez doplnene o vzorec:

pri inicializacii userformu nemoze byt zaplneny combobox ked to tam nebolo doprogramovane :) takze hodnota value musi byt predom dana kukni si v properties ci si do value uz nejaku hodnotu nezapisal

:))) to je pekne ze nieje vyplnena ale z tohoto prikladu absolutne nemam sajnu co potrebujete :)

priloha by bodla

mozno ze len chcete pridat odkaz z listu1 na list2

a to urobit sposobom:
1. kliknete na bunku ktorej chcete priradit odkaz
2. napisete: =
3. prejdete na sheet a bunku ktorej hodnotu chcete zobrazit
4. zazrak je hotovi

ide to aj rovno zapisat
napr. "=Sheet1!E6"

Super dik :)) idem si to prerobit tu ten bug (co mam asi len ja :) ) sa neprejavuje

Ok ted skusam ActiveX prvky ale tam treba pri starte doprogramovat add items a value

alebo sa mylim?

ta ista priloha je to combo box jeden co vybera roky a druhy mesiace .... len je pomenovany ako drop down ... microsoft nevie uz ako pomenovavat :))

este jedna vec co ma dlhsie trapi a nedosiel som nato preco to robi :)))

ked si v objecte "Drop Down 1" alebo "Drop Down 2" vyberiete prvu polozku a savnete subor

potom ked ho zapnete tak sa nezobrazi .... preco to robi??

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje