Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  76 77 78 79 80 81 82 83 84   další »

Zdravím,
tohle je klasickej problém, jediné východisko z něj je takové, že se vše bude počítat v kladných číslech, tedy 168 - "počet odpracovaných hodin" a v popisu tohoto čísla uvést, že jde o počet, který zbývá k naplnění normy; popřípadě lze neužít formátu času, pak lze užít i záporných hodnot

Průměr z nenulových hodnot lze spočítat tímto vzorcem - jen chci podotknout, že je to maticový vzorec, takže jeho ukončení musí být pomocí kláves SHIFT+CTRL+ENTER
=PRŮMĚR(KDYŽ($B$1:$B$7<>0;$B$1:$B$7))

zdravim,
soubor jsem otevrel ve Wordu2007 a obrazek je ulne v poradku, tabulku v rezimu "za textem" vubec nerozhodi a vsechno je v poradku...

Zdravím,
pokud máš kompletní soupis spárovaných hodnot (když v A napíšeš 1, tak v B bude 10001, když v A bude 2. tal v B bide 10002,...), tak bych použil SVYHLEDAT - zaroven ale musí byt splněna podmínka, že se každé hodnotě přiřazuje právě jedna hodnota (nikoliv více).
I vzorcem lze vyřešit více podmínek a pokud jde něco vzorcem, je to lepší než psát hned makro, ale asi by bylo dobré znát kompletní zadání.
Makro určitě v počtu podmínek omezeno není...

Zdravim,
pokud je vybrana hodnota v rozbalovacim seznamu unikatni, lze pouzit funkci SVYHLEDAT

Hm, tak to takhle z hlavy nevim, bylo by mozne prilozit inkriminovane soubory?

Vyzkousel jsem to a jedine, co me napada je, ze soubor Dva nemate ulozeny (je to jen nove otevreny sesit, např. Sešit2), protoze jinak to funguje vyborne :)

Zdravím,
pokud jde o identifikátory, tak ty budou mít asi stejný počet znaků, takže by šlo je převést na číslo s vlasntím formátem, kde určíte, že má mít např. 10 znaků, potom se třeba číslo 13 zobrazí jako '0000000013'.
Formát buňky/Číslo - Vlastní 0000000000

Zdravím,
v prilozenem souboru jsem zmenil jen sesit Tisk...,

- TISKOPIS, bunka E5 (vyberova bunka) - kliknutim do ni se ukaze rozeviraci seznam, kde muzete vybrat suplujiciho ucitele, tím se ukáží jeho identifikační údaje (cislo, bydliste) a zaroven se vypisi odsuplovane hodiny to pripravene tabulky (je to udelane makrem (umistene v listu Tiskopis), protoze hodin muze byt vice a nelze tedy pouzit svyhledat)

- Zaměstnanci-údaje - prehodil jsem poradi sloupcu kvuli funkci svyhledat (aby se dalo vybrat dle jmena). Jen chci podotknout, ze rozeviraci seznam v bunce (tiskopis E5) je napojeny na seznam zamestancu na liste Zaměstnanci-údaje, takze půjde prohlizet pouze ty zamestnance, kteri jsou v seznamu a jejich cislo musi odpovidat cislum v sesitu Suplovani.

Jeste bych rad podotknul, ze funkce SVYHLEDAT nepotrebuje mit serazene hodnoty vzestupne, pokud hledate konkretni hodnotu PRESNE - v takovem pripade pouzijete posledni parametr 'nepravda' = svyhledat(co;kde;sloupec;NEPRAVDA).
Pokud totiz do posledního parametru nezadate nic - funkce predpoklada parametr PRAVDA a nevraci PRESNE hledanou hodnotu, ale nejblizsi moznou a dopoustite se tedy chyby!

Hodne zdaru

Přidej tam tenhle řádek nekam pred '.display':

.Recipients.Add ("Jirka@wall.cz")

Blby u toho je, ze Outlook krici, ze se snazis dostat do jeho kontaktu, tak to musis povolit

Upravil jsem kód výše.
Pokud chces odeslat sešit, ze ktereho spoustis makro, je potreba, aby uz byl nekde ulozeny (nesmi to byt novy (dosud neulozeny) sesit). Aby se projevily vsechny zmeny v sesitu, je na uvod makra potreba sesit ulozit.

úkol se da udelat takto: Je nutne mit zaskrtnuty objekt Microsoft outlook 10.0 Object Library v References VBA Project

Public Sub NEWtask()

ThisWorkbook.Save

Dim myOlApp As Outlook.Application
Dim NEWtask As TaskItem

Set soubor = ThisWorkbook
Set myOlApp = New Outlook.Application
Set NEWtask = myOlApp.CreateItem(oltaskitem)

With NEWtask
.Status = olTaskInProgress
.Importance = olImportanceHigh
.StartDate = DateValue(Date)
.DueDate = DateValue(Date + 7)
.Body = "Tady je popis úkolu"
.TotalWork = 50
.ActualWork = 15
.Assign = "Testovací úkol"
.Owner = "Jirka Koblih"
.Attachments.Add (Excel.Application.ActiveWorkbook.FullName)

.Display

'.Save

'.send

End With

Set NEWtask = Nothing
Set myOlApp = Nothing

End Sub
U úkolu existuje spousta vlastnosti za nastaveni, to uz nebude problem prozkoumat...

ahoj,
myslím, že není úplně nutné si kupovat nějakou knížku, protože na webu je toho dost a dost - problém je, že na začátku člověk neví, co hledat.
Já můžu doporučit knížku Jaroslava Černého - Excel 2000–2007 záznam, úprava a programování maker http://www.grada.cz/katalog/kniha/excel-20002007_4960/ (omlouvam se za tu reklamu, ale nenasel jsem zadny nekomercni nahled knihy). Je relativne kratka a srozumitelne napsana.

zdravím,
vím o dvou variantách v excelu.
Jde o prvky Calendar a Microsoft Date and Time Picker. Oba prvky je nutné hledat v dalších prvcích, které se nenabízí standardně.
Mají ovšem svoje mouchy, ale lze na webu sehnat speciální doplňky, které jsou opravdu zdařilé.

ahoj,
zkus tohle makro.
Sub selectNOTempty()

Cells.Select
Union(Cells.SpecialCells(xlCellTypeConstants), Cells.SpecialCells(xlCellTypeFormulas)).Select

End Sub

Jen je potřeba vědět, že když buňka bude obsahovat třeba jenom mezeru, tak to není prázdná buňka a bude vybrána!


Strana:  1 ... « předchozí  76 77 78 79 80 81 82 83 84   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse