Příspěvky uživatele

ahoj,
Pokud mas nazvy souboru ve sloupci A, jde to udelat takhle:
Sub hyperlinks()

Dim Cesta As String
Dim Pripona As String

Cesta = "C:\Documents and Settings\admin\Plocha\"
Pripona = ".dxf"

For i = 1 To Application.WorksheetFunction.CountA(Range("a:a"))

Cells(i, 2).Select
ActiveSheet.hyperlinks.Add Anchor:=Selection, Address:= _
Cesta & Cells(i, 1) & Pripona, TextToDisplay:=Cells(i, 1) & Pripona

Next

End Sub
Musis si nastavit Cestu a priponu podle toho, kde soubry mas a o jaky typ jde...

Si to nejak nedokazu predstavit, nemohl bys pripojit ukazku? diky

Koukam, ze tady mame nejakej nezodpovezenej dotaz :)
Zkusil jsem dat neco dohromady bez formulare, aby bylo na prvni pohled v bunkach videt, jakej filtr je aplikovanej...

Zdravím,
skyrývání a zobrazování BUNĚK zařídit nelze, co jde je skryvani a zobrazovani SLOUPCU nebo RADKU.
Pomoci VBA lze pouzit napr. tento kod, ktery skryje radek 8.
Rows("8:8").Hidden = True
Skryti nebo zobrazeni se da provest na zaklade ruznych podminek, tyto podminky je ovsem nutne znat :)

Zdravím,
zkus tohle:
Public Sub Find()

Cells.Find(Date - 1).OFFSET(0, 1).Select

End Sub

jsem rad, ze to funguje :)

Ohledne zacatku s VBA - zkus se podivat sem, uz mel nekdo podobnej dotaz: http://wall.cz/index.php?m=topic&id=1121

na fakturu jsem pridal tlacitko k zapsani do knihy faktur - snad bude navazana procedura dostacujici

Pokud je napr. v bunce A1 nezaokrouhlena hodnota, tak do bunky B1 lze vlozit vzorec =ZAOKR.NAHORU(A1;1)-A1
ktery vrati desetinne cislo, o ktere se pri zaokrouhleni cislo hodnota v A1 zvysi.

Zdravim,
v prilozenym souboru najdete reseni problemu.
V modulu kazdeho listu je ulozena procedura, ktera zajisti, ze se pozadovane informace ulozi do specialniho listu "info" - ten si muzete pro jistotu pred uzivateli skryt.
Do zmineneho listu "info" se ulozi informace o tom, kdo a kdy list aktivoval; kdo, kdy a v jake bunce list zmenil.
Snad je to to, co jste chtel...

Budeš tam muset udělat nějaký úpravy podle tech dat, kdyby neco, tak se ozvi.
VBA je takova podmnozina Visual Basicu. Visual Basic for Application, coz je visual basic upraveny pro potreby aplikaci MS Office

Zdravim,
myslim, ze jsem to pochopil.
Jen to neni uplne tak snadny, zalezi hodne na tom, kolik tam bude dat, kolik skupin atd... a jak budou data usporadana.
V priloze je priklad pracujici se tremi moznostmi v druhe skupine.
Pokud by bylo dat vice, uz by bylo na miste pouzit VBA (v priloze jen pomoci vzorcu, ackoliv jeden z nich je vlastni funkce)

Zdravím,
vzorec by mohl vypadat takto:
=KDYŽ(NEBO(MĚSÍC(A1)=11;MĚSÍC(A1)=12;MĚSÍC(A1)=1;MĚSÍC(A1)=2;MĚSÍC(A1)=3);"zima";"léto")

zdravim,
zkusil jsem neco udelat - soubor je v priloze.
Na listu 'vycetka stravenek' je potreba zadat kolik 60 a 30korunovych stravenek je k dispozici a na listu 'rozpis' je nutne zadat, kolik jaky zamestnanec ma dostat (hodnotu).
Stravenky se potom prirazuje tak, ze nejprve se spotrebují 60korunove a doplnuje se 30korunovymi (udelal jsem to takhle, protoze je snadnejsi davat (pokud to jde) jen jeden druh stravenek, protoze se nemusi tolik menit balicky - aspon myslim).
Muj priklad lze jednoduse predelat na vice zamestnancu. dulezite jsou vzorce v radku 3 a 4 (4. se da protahnout dale)

Jsou dve moznosti:
1) pouzit vzorec (pokud bys chtel zmenit prirazovane hodnoty, musel bys ty uz prirazene preulozit jako hodnoty (kopirovat a dat ulozit,jako hodnoty - je to jednoduchy)
2) makrem, kde by prirazovaly vzdy jen ty hodnoty, ktere budou aktualne zadane soupisu prirazovanych hodnot (pri zmene prirazovane hodnoty zustanou jiz prirazene takove, jak byly - neni nutnost preukladat)

Kazdopadne porad neco dopisovat, je opravdu doooost hrozny :)

Pokud zmenis hodnotu prirazovanych hodnot v soupisu, budou potom veskere prirazene hodnoty zmeneny na hodnotu novou (vsude tam, kde bude vzorec).
Tzn. Dokud nepreulozis vzorce na hodnoty, bude napr. prevezme se hodnota prirazeni z unoru i do ledna.
Mozna by nebylo spatne, kdybys prilozil nejaky soubor, s pozadavkem, co to ma delat, aby to bylo nazornejsi... :)

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje