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

Příspěvky uživatele

+ referencia

Ahojte poradaci,

Mam problem ako spustim referenciu MSHFLXGD.OCX. Ale office ju nesmie poznat aj ked to je z baliku office.

na pocitaci kde office pozna tu referenciu to ide bez problemov. Ale ked to skusam na pocitaci kde nieje ta referencia tak uz nemoze vytvorit dany object

.... jedna sa o jeden pekny GRID co chci pouzivat v svojom programe

nevie niekto poradit ako zapnem referenciu a zaroven vytvorim v userforme ten grid???

v prilohe som to prednastavil ale aj tak to nefunguje .... treba tam ale potom nastavit cestu k referencii

urobil by som to aj za vas ale teraz som na dovolenke a doma nemam na PC nainstalovany Office :)

tak len teoreticky

tu je link kde som sa aj ja zacinal ucit SQL (naucite sa to za 1den) prax trva ovsem dlhsie
http://www.sqlcourse.com/

tu je link ako ADODB prepojit excel + pisanie prikazov:
http://support.microsoft.com/kb/257819

hadam vam to postaci .... podla tem co som si od vas cital viem ze ste sikovny a urcite vas to bude zaujimat :)

riesil by som to s ADODB s vyuzitim SQL funkcii ... ked to chces najrychlejsie

a co tak to dat do jedneho cuplika .)

ked je list zamknuty bude sa cuplik volat odomknut inac sa bude volat zamknut..... + tie makra co su hore

ked nejde o krasu tak by to slo urobit takto:

prerobil som to na dane nastavenie .... tak isto constant bere uz z bunky A1

testovaciu prilohu :) nie firemne data

... tu casto natoto upozornujeme lebo pri kazdom dokumente co vytvorime sa s tymto zdrziavame a nikomu sa toto nechce predvytvarat

kedze ide len o 5minutove makro

prilozte prilohu

Skuste toto:

a vo filtre to zoradte podla "last save" datumu

Nebude tam stacit skicar?

takto:

tu je kod:
Sub aStart()
ActiveSheet.Shapes.Range(aArray(1)).Select
End Sub

Private Function aArray(ByVal aSheet As Variant) As Variant
Dim aValue() As Variant

For Each aR In Sheets(aSheet).Shapes
x = x + 1
ReDim Preserve aValue(x): aValue(x) = aR.Name
Next
aArray = aValue()
End Function

spravite jednoduchu pivot table

ako je napr. tu:

skuste toto:

mozte si spravit funkciu ktora to zavas prepise do spravneho tvaru

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje