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

Příspěvky uživatele

Teraz iba zateoretizujem. Ak by ste nastavil gmail konto do Outlooku, a použil link na doplnok,
http://wall.cz/index.php?m=topic&id=26310&page=1#post-26320
tak by sa Vám to cez Outlook mphlo preniesť do gmailu... Či nie ?

Kým som to ja napísal, tak tu máte už čiastočné riešenie. Spravil som Vám to celé vo VBA, a funguje to presne tak ako ste chcel. Tú SERVIS-nú procedúru si nevšímajte.

Dovolil som si Vám tam "šáhnuť", a doplniť jeden návrh, na ďalšiu možnú funkciu. Vkladanie názvov listov, hlavne ide o možnosť zisťovania všetkých názvov. Je to často diskutovaná téma aj tu na fóre, a veľa ľudom by bodlo, ak by si mohli viesť tabuľku názvov listov (ak nevedia názvy a počet), a ďalej použiť.
Dá sa to urobiť aj inak, je to len jedno z možných riešení, tak ak by sa Vám chcelo, tak niečo takéto tam ešte zapracovať...

Počet mesiacov som počítal podľa návodu z MS už v predošlom prípade, ale teraz som to pomocou definovaných názvov snáď ešte trošku zjednodušil, zároveň doplnil o zastavenie počítania po prekročení cieľového dátumu, a o vrátenie 0, ak ešte dátum prvej splátky nenastal (lebo tam mi dávalo napr. -1).

Overte si to, nejak som to veľa netestoval. Ak trváte na tej bodke v stĺpci C, tak je potrebné upraviť vzorec.

Normálne to počíta, zápis je správny okrem bodky. V našich jazykových končinách je desatinná čiarka, nie bodka. Inak to u mňa (Excel 2013) počíta správne.

Skúste toto.

EDIT:
Alebo v prílohe vymente vzorec so SUMIFS za tento :
=SUMPRODUCT(INDEX($B$2:$B$7;MATCH($A$11;$A$2:$A$7;0)):INDEX($BUV$2:$BUV$7;MATCH($A$11;$A$2:$A$7;0))*(YEAR($B$1:$BUV$1)=2015))
CZ verzia
=SOUČIN.SKALÁRNÍ(INDEX($B$2:$B$7;POZVYHLEDAT($A$11;$A$2:$A$7;0)):INDEX($BUV$2:$BUV$7;POZVYHLEDAT($A$11;$A$2:$A$7;0))*(YEAR($B$1:$BUV$1)=2015))

CRTL+SHIFT+H

MAC má namiesto Ctrl = "^", tak vyskúšajte obdobnú kombináciu na MAC.

Počet dní mám riešený podobne ako radí eLCHa, graf by mohol fungovať takto (definované názvy). Akurát nech poradí niekto, ako sa zbaviť "neduhu", že síce graf ukazuje správne, rozsah dátum je správny, len ak je počet dní 30 alebo 28, tak posledný popisok 30.mm.yyyy na spodnej osi nieje. Graf je ok, aj je tam pre ten deň čiarka, ale chýba popisok. Ak je iný počet dní (29,31) popisok tam je. V čom je zrada ? Hmmm....

EDIT: Aha teraz som si to všimol, že je zobrazený popisok pre každý 2. deň

Príčinu nemožnosti vložiť prílohu typujem na jednu z možností:
- Vkladáte rovno XLS, a to nejde, musíte to zabaliť do ZIP, RAR, 7Z
- Príloha je väčšia ako 256 KB

Dajte prílohu, ja si tu skúšam filter na dátum, a mne funguje. Netuším, čo myslíte Vy pod pojmom filter, ani aký druh grafu používate, ako sú štruktúrované dáta ...

Skúste si poupraviť toto, čo som dávnejšie použil.
Sub DownloadXML() 'Stiahnutie suboru XML z netu
Dim myURL As String 'Adresa suboru XML
Dim WinHttpReq As Object
myURL = "http://www.cnb.cz/cs/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.xml"

On Error GoTo ErrorHandler 'Ak je chyba pri stahovani, ukladaní, ukonci

Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send 'Vytvor pripojenie

myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody 'Preber subor
oStream.SaveToFile Application.ActiveWorkbook.Path & "\Kurz.xml", 2 'Uloz subor, prepis stary
oStream.Close
End If
Range("C3").Value = ZistiKurz 'Zapis kurz do C3
ErrorHandler:

End Sub

Ak si zadáte do Googlu dotaz, musí na Vás vyblafnúť množstvo riešení. Napr na MSDN:
Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Sub downFLash()
Dim sURL As String
Dim LocalFilename As String
Dim filename As String

Const UNC = "C:\Documents and Settings\All Users\Documents\My Music\"

filename = "20050628091444_1.mp3"
sURL = "http://jrc.donga.com/nihao_service/200506/" & filename
LocalFilename = UNC & filename

Debug.Print DownloadFile(sURL, LocalFilename)

End Sub

Obmedzenie počtu riadkov robí tie problémy. Nahraďte v Definovanom názve "zdroj" to číslo 65535 za ROWS(Data!$A:$A), a bude to fungovať.
Chcete aj vysvetlenie ? CountBlank počíta s novým počtom riadkov (Excel 2007), ale pôvodný vzorec je navrhnutý tak, že to vráti chybu, lebo je tam natvrdo napísané maximum riadkov. Lenže to maximum platilo v 2003. Teraz je to milión. Takže dostanete cca 65535-1046385=-980850 riadkov. Čo je blbosť, záporné číslo. Stačí takto ?

Možno OT: Ale nemá toto už integrované riešenie ponúkané priamo tu na fóre ?
http://wall.cz/excel-sablony/formular-faktura-iii
Neskúmal som, z ekonomiky viem aj tak prd, len ma to napadlo.
Či by čas vynaložený na vývoj nestál za tie peniaze...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse