Příspěvky uživatele
< návrat zpět
Ahoj, dekuji moc, funguje to. Mohl by si mi ten vzorec vysvetlit? neni mi jasne, proc se tam pouziva countif.
Dobrý den,
zde je soubor: http://ulozto.cz/xiHWr57K/filtrace-obchodu-xlsx
Mám dvě tabulky. První A:G a druhou K:Q.V kazde tabulce je vyhledavaci parametr, kde je spojene datum a cas. Prvni tabulka sloupec C, druha tabulka sloupec M. V prvni tabulce jsou v databazi vsechny hodnoty, v druhe tabulce jsou obchody, ktere potrebuji naleznout v tabulce prvni. Takze vemu prvni parametr v druhe tabulce potrebuji ho naleznout v tabulce prvni a na radek, kde je tento parametr napsat x. Takto vyhledat vsechny parametry z druhe tabulky a doplnit x. Dekuji za pomoc.
Logika vypoctu je takova: mam vstup do obchodu na urcite cene, napr. 100, v excelu oblast s nazvem entry_price, hodnota zapsana v listu data G4,G5..dva zapisy = dva obchody. Takze mam vstup na cene 100, obchod jde nejakou dobu proti me. hodnota pojmenovana MAE, obchod se vyviji spravnym smerem, oblast pojmenova MFE.
kdy za podminek pocitam sumu (kumulovany profit/ztrata pro jednotlive kombinace SL,PT. viz list LIST1 bunka B5 = SL, bunka C4 = PT. Takze v uvedeny pripad chci videt zisk/ztratu pro kombinaci SL = 1, PT =1
za podminek, kdy
(entry_price-B5)>mae => ztrata
KDYŽ(A((entry_price-B5)<mae;(entry_price+C4)>=mfe) =>ztrata
KDYŽ(A((entry_price-B5)>mae;(entry_price+C4)=<mfe) => profit
snad jsem to objasnil, dekuji za reakci.
http://ulozto.cz/xu2bB56z/mae-mfe-xlsx
Dobrý den,
na výše uvedeném odkazu je soubor, ve kterém mám problém, se kterým bych potřeboval poradit. Na listu data jsou uvedeny dva obchody. Na listu List1 je tabulka, kde v bunce C5 je maticovy vzorec, ktery podle zadanych podminek provede soucet v datech na listu data. Vysledek ma byt dvacet, bohuzel neni, nevim, kde mam chybu. Byl bych nekdo tak hodny a poradil mi. Dekuji
Dobrý den,
zde je adresa pro makro: http://ulozto.cz/xQgMHYg/makro-soubory-rar
jedná se o to, ze mam ve slozce soubory, ktere se po spusteni makra s nazvem tu (makro s techto stranek) jednotlive poskladaji pod sebe a vznikne tabulka, nektere bunky se vsak presunou, tak ze z carky udelaji tecku a to je pro mne nezadouci. Mohl by mi nekdo poradit, jak toto zrusit? Dale by me zajimalo, proc se obcas soubory neskladaji pod sebe, tak jak jdou po porade ve slozce. Dekuji moc za odpoved.
Děkuji moc za pomoc, už to mám :-)
Problém je v tomto řádku: wbX.SaveAs Filename:=strPath
Bez definice promenny strPath a vsech casti retezce, makro funguje. Akorat ukladat rucne nazev, zmenit typ souboru, to je pracne u takoveho mnozstvi souboru.
Vyzkousel jsem, ale porad to stejny. Je to divny.
kdyz definuji jednotlive casti retezce pod deklaraci promenny
Dim strPath As String
strPath = strPath & "\"
strPath = strPath & Range("A1")
strPath = strPath & ".xls"
tak pri vykonani procedury mi vypise, ze slozka je urcena pouze pro cteni, kdyz ve vlastnostech vyskrtnu, ze neni urcena jen pro cteni, tak to stejne nepomuze.
Sub Makro1()
'
' Makro1 Makro
'
Dim wb As Workbook, wbX As Workbook
Dim i As Integer, j As Integer
Dim strPath As String
'zkratka pro tento ses
Set wb = ThisWorkbook
' Otevri dialog
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ""
.AllowMultiSelect = True
.Filters.Add "Excel", "*.xls"
.Show
' pro kazdy soubor
For i = 1 To .SelectedItems.Count
Workbooks.Open .SelectedItems(i)
Set wbX = ActiveWorkbook
strPath = wbX.Path
strPath = strPath & "\"
strPath = strPath & Range("A1")
strPath = strPath & ".xls"
procedura
wbX.SaveAs Filename:=strPath
Next i
End With
End Sub
Dekuji moc za snahu, princip je mi o neco vice jasny, jsem rad. Ale hodi mi to chybu 1004, pristup k souboru nelze najit. Nebude neco spatne s tou cestou?
Dobrý den,
mám vytvořené toto:
Dim wb As Workbook, wbX As Workbook
Dim i As Integer, j As Integer
Set wb = ThisWorkbook
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ""
.AllowMultiSelect = True
.Filters.Add "Excel", "*.xls"
.Show
For i = 1 To .SelectedItems.Count
Workbooks.Open .SelectedItems(i)
Set wbX = ActiveWorkbook
(makro, ktere zmeni format tabulky - funkcni)
wbX.saveas(wbx.range("A1"),*xls)
Next i
End With
End Sub
jde mi o to, ze si vyberu nekolik souboru, na ktere se spusti makro, co prede format tabulky. Pote potrebuji, aby se automaticky kazdy sesit ulozil pod nazvem bunky A1 daneho listu ( zrejme bude promenna ) a ulozilo jako .xls. Pomuzete mi, nevim si rady 
Tak nemám, první způsob toho ukládání funguje dobře, ale ve všech, kromě posledního se mi neudělá správně to zaznamenané makro.
už to mám. jste borci, jednou bych chtěl umět to co vy :-)
Super, dekuji moc - princip funguje dobre. Akorat mam problem, nahrazuji , za ; a . za , a tato zmena se provede vzdy jen u posledniho souboru spravne, ve zbytku zustava tecka a bunka se bere jako textovy retezec.
Sub Makro1()
'
' Makro1 Makro
'
Dim wb As Workbook, wbX As Workbook
Dim i As Integer, j As Integer
'zkratka pro tento sesit
Set wb = ThisWorkbook
' Otevri dialog
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ""
.AllowMultiSelect = True
.Filters.Add "Excel", "*.xls"
.Show
' pro kazdy soubor
For i = 1 To .SelectedItems.Count
Workbooks.Open .SelectedItems(i)
Set wbX = ActiveWorkbook
'nakopiruj listy do wb
Rows("1:112").Select
Selection.Delete Shift:=xlUp
Range("I17").Select
Rows("54:266").Select
Selection.Delete Shift:=xlUp
Range("J10").Select
Columns("A:A").ColumnWidth = 48.14
Range("A1:A52").Select
Selection.Replace What:=",", Replacement:=";", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 14.57
Range("L11").Select
Next i
cesta = "C:\Users\Jakub\Desktop\SPY_hotove_data"
For p = 1 To 2
jmeno = cesta & "sešit" & p & ".xls" 'Alebo jmeno=cells(i,1)
ActiveWorkbook.SaveAs Filename:=jmeno
Next p
End With
Dekuji, vymazu :-) a kdyz tam zadam nazev souboru, tak pro kazdy soubor je nazev jiny, jak tam dam neco jako promennou, co automaticky vezme nazev souboru, at to tam pro kazdy soubor nemusim psat rucne?
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články