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

Příspěvky uživatele

Pokud sem správně porozuměl zadání, šlo by použít maticový vzorec (Ukončuje se trojkombinací CTRL+SHIFT+ENTER) viz. soubor

EDIT: Můžeš použít i ten SOUČIN.SKALÁRNÍ. Místo fce SUMA bude SOUČIN.SKALÁRNÍ. Tady už se nejedná o vzorec maticový (stačí jen ENTER)

Podívej se na fci TRANSPOZICE
EN = TRANSPOSE

Vložení -> Obrazce -> křivka
Nakreslit čáru, pravé tl. myši -> upravit body

Měl bych otázku.
Tobě to tedy funguje na Excel 2010 ?
A ti kolegové mají stejnou verzi excelu nebo starší?

Google napověděl:
Pro zjištění počtu určitého dnu týdne v měsíci - tento vzorec
=SUMA(CELÁ.ČÁST((DENTÝDNE(A1-DEN(A1)+1-A2;2)+(DEN(DATUM(ROK(A1);MĚSÍC(A1)+1;0))-1))/7))
kde:
A1 = datum (1.5.2012)
A2 = číslo dne v týdnu (1 = pondělí až 7 = neděle)

Koukni se na funkci INDEX

Koukni se na funkci SUMIF viz soubor

Nebo tak
Je pěkný jak stejný "problém" každý řeší jiným vzorcem a přitom se všichni doberou stejného výsledku. Teď stačí aby si tazatel vybral vzorec svému srdci nejbližší

Toto se dá řešit dvěma způsoby (vzorci).
1) funkcí COUNTIFS - je dostupná od verze excelu 2007 výš.
nebo
2) maticovým vzorcem pomocí fce SUMA

viz příklad

Dejme tomu, že ceny máš ve sloupci A (např A1:A1000). Někam do volné buňky napiš částku, kterou chceš přičíst. Umísti na tuto buňku kurzor a dej kopírovat. Potom označ oblast s cenami (A1:A1000), pravé tlačítko myši a vložit jinak - objeví se okno, kde v části operace označíš přičíst a klikneš na ok. Buňku do které si psal částku o kterou se zvyšovala cena můžeš klidně smazat.

Ps: vyzkoušej si to "nanečisto" na kopii souboru, co kdyby...

Místo desetinné čárky používej lomítko nebo mínus
31/7/2012
31-7-2012
Excel si to automaticky převede na formát data.

Takto ?

Používám tento kód:
Sub Seznam_listu()

Dim Ws As Worksheet
Dim i As Long
i = 1

With Me
.Columns(1).ClearContents
.Cells(1, 1) = "Jméno"
.Cells(1, 1).Name = "Index"
End With

For Each Ws In Worksheets
If Ws.Name <> Me.Name Then
i = i + 1
With Ws
.Range("A1").Name = "Start_" & Ws.Index
.Hyperlinks.Add Anchor:=Ws.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Zpět na seznam"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="Start_" & Ws.Index, TextToDisplay:=Ws.Name
End If
Next Ws
End Sub


V sešitu mám na začátku list "Seznam", tento kód je vložen v jeho modulu. Kód vypíše seznam listů v sešitě a do každého listu do buňky A1 vloží hypertextový odkaz, který vede na list seznam.

PS: vyzkoušej na kopii svého sešitu aby případně nedošlo k nějaké "havárii"

=KDYŽ(ČÁST(J23;7;5)-ČÁST(J23;1;5)>0;(ČÁST(J23;7;5)-ČÁST(J23;1;5))*1440;((ČÁST(J23;7;5)+24-ČÁST(J23;1;5))-23)*1440)

Toto sem našel na netu:
Private Sub Application_Startup()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.subject = "Zpráva ze dne " & Date
msg.Display
Set msg = Nothing
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse