Příspěvky uživatele

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...

Nevoláte to makro z iného zošitu, alebo formulára ? Skúste použiť "With". U mňa všetko OK, ale volám to z aktívneho listu "List1". Ak to bude s "With" tak to môžete volať odkiaľkoľvek.

No, akoby som to povedal ... to Vaše makro je hrozné, vymazal som Vám tie tisíce riadkov, zjednodušil mnoho vecí, zrušil Selecty, ale poviem Vám, že minimálne od tej hviezdičkovanej čiary, ktorú som Vám tam urobil, netuším o čo ide. V tom makre sa pokúšate o toľko Selectov, Filtrov, vkladaní riadkov, jednoducho som to nerozlúštil, a vôbec netuším, či som Vám s tým zjednodušovaním neurobil nejakú chybu. Každopádne moje makro som Vám upravil tak, aby sa volalo pomocou Call odkiaľkoľvek, teraz je na konci Vašeho. Čiže už to nemáte tak, že sa spustí automaticky. Spúšťa ho Vaše makro, čiže ako si spustíte to Vaše makro neviem.

Aby som toľko nepísal, tiež nemám čas, ak chcete urobiť z jednej tabuľky úplne inú, a chcete s tým pomôcť, bez reálnych vstupných dát, a reálneho požadovaného výstupu, Vám s tým asi nepomôžem. Pretože je to čistá tipovačka (z mojej strany).

Pozrite sa na to, a niečo s toho snáď použijete.

To s tým "Zatvoreným" súborom bol len typ, takže to neberme ako mernú mincu. Celý môj príspevok je len typ, ako to mohol užívateľ asi myslieť, lebo presne takto uvažuje väčšina ľudí. To nieje výtka, len konštatovanie. A nemyslel som zatvorený ako Closed, ale "akože zatvorený" ako Hide. To som aj písal že cez inštanciu Excelu.
Každopádne prípadné riešenie (ak nejaké bude), zaujme asi viac ľudí. Keďže drvivá väčšina si pletie Excel s DB. Ale to je prirodzené, lebo Excel je docela User Friendly, narozdiel od takmer akejkoľvek DB.
Počkajme na Tlumic01, uvidíme.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje