Příspěvky uživatele

Přikládám 2 příklady (jako prostřední jsem přihodil i Pokiho vzorec) :-)

ono způsobů je asi spousta, ale ten poslední je takový nejuniverzálnější, niméně vyžaduje aby hlavička v listu data byla shodná s výběrem ve sloupci B.

M@

Ahoj, nevím jestli správně chápu, ale vytvořil bych sloupcový graf s 6 řadami, na jednu z těch 6 co chci na vedlejší osu 2x kliknu, na záložce Osa, vyberu "Na vedlejší ose", totéž udělám i pro druhou řadu jenž chci na vedlejší osu.
Pak pravým tlačítkem kliknu znova na jednu z těch řad a vyberu "Typ Grafu", přepnu na spojnicový, totéž pro další řadu.

Snad to pomůže :-)
M@

Ahoj, asi by to šlo i funkcí:
=HYPERTEXTOVÝ.ODKAZ(A1&".dxf";A1)

M@

Jo tak ten zas já nemám :-), teda asi týden jsem měl, ale zhrozil jsem se když jsem viděl jak vše na co jsem byl zvyklej překopali a jak jsem nemohl nic najít :-/.
Ale nepředpokládám že by tu funkci zrušili, takže můžu říct jen "kdo hledá, najde" :-)

M@

Ahoj,

sám jsem to nikdy nepoužil, ale v tvém případě to vypadá, že by se mohlo hodit.
Když klikneš na panel nástrojů, vybereš vlastní..., v následujícím okně na záložce Příkazy vybereš v levém sloupci Nástroje, pak v pravém najdeš fotoaparát, přetáhneš ho do panelu nástrojů a zavřeš okno Vlastní.

Pak třeba na listu 2 označíš co chceš vidět na listu 1 a klikneš na ten foťák, přepneš na list 1 a kliknutím myši se ti tam vloží obraz té označené oblasti na listu 2, takhle to zopakuješ pro více listů. Daný obrázek bude zobrazovat stále aktuální odraz toho co je na jednotlivých listech.

Jde to udělat třeba i odkazy na buňky, ale to je zdlouhavější.

S pozdravem
M@

Ahoj,

zkusil jsem to trochu popsat v další příloze :-).

M@

Ahoj, v příloze jsou dva pokusy :-), jeden přes klasické funkce a druhý přes vlastní funkci pomocí makra.

M@

Ahoj,

jediné co mě napadá, je zkontrolovat v preferences, jestli tam jsou ty správné knihovny co vidíš na jiných pc.

Jinak mě nic nenapadá :-/

M@

Ahoj,

kód je skoro stejný, jen jsem přidal podmínku
If rd = 1 And sl = 2
aby v případě, že jsem na řádku 1 a chci zapsat hodnotu ze sloupce 2, tak aby byl vynechán oddělovač.

těsně před koncem kódu jsem přidal
ts.WriteBlankLines (2)
kdy číslo v závorce je počet prázdných řádků (jeden by tam měl být už při zapsání, takže tímto přidám ještě 2).

S pozdravem
M@

Public Sub save_text()
On Error Resume Next
Dim fso As New FileSystemObject
Dim fil As File
Dim ts As TextStream
Dim cesta As String
Dim oddelovac As String
Dim text As String
Dim mb As String
Dim co As String
Dim zaco As String

mb = MsgBox("Nahradit některé znaky?", vbYesNo + vbQuestion, "Dotaz")
If mb = vbYes Then
co = InputBox("Zadej text který chceš nahradit", "Nahradit co", ",")
zaco = InputBox("Zadej nový text", "Nahradit čím", ".")
End If

cesta = ThisWorkbook.Path & "\export.txt"
oddelovac = InputBox("Zadej oddělovací znak buňek", "Oddělovač", " ")

Set fil = fso.GetFile(cesta)
Set ts = fil.OpenAsTextStream(ForWriting)

For rd = 1 To ActiveSheet.UsedRange.Rows.Count
For sl = 1 To ActiveSheet.UsedRange.Columns.Count
If co <> "" Then
If text = "" Then
text = Replace(Cells(rd, sl), co, zaco)
Else
If rd = 1 And sl = 2 Then text = text & Replace(Cells(rd, sl), co, zaco) Else text = text & Replace(oddelovac & Cells(rd, sl), co, zaco)
End If
Else
If text = "" Then
text = Cells(rd, sl)
Else
If rd = 1 And sl = 2 Then text = text & Cells(rd, sl) Else text = text & oddelovac & Cells(rd, sl)
End If
End If
Next
ts.WriteLine text
text = ""
Next
ts.WriteBlankLines (2)
ts.Close
End Sub

Ahoj, zkus si dát nástroje -> Makro -> Editor jazyka VB.., tam si pak opět najeď do menu Tools -> Preferences, tam vyber Microsoft Scripting Runtime (knihovna scrrun.dll v system32). Pak potřebuješ soubor export.txt umístěný ve stejné složce jako ten excel, no a nakonec si někde do modulu vlož kód:
Public Sub save_text()
On Error Resume Next
Dim fso As New FileSystemObject
Dim fil As File
Dim ts As TextStream
Dim cesta As String
Dim oddelovac As String
Dim text As String
Dim mb As String
Dim co As String
Dim zaco As String

mb = MsgBox("Nahradit některé znaky?", vbYesNo + vbQuestion, "Dotaz")
If mb = vbYes Then
co = InputBox("Zadej text který chceš nahradit", "Nahradit co", ",")
zaco = InputBox("Zadej nový text", "Nahradit čím", ".")
End If

cesta = ThisWorkbook.Path & "\export.txt"
oddelovac = InputBox("Zadej oddělovací znak buňek", "Oddělovač", " ")

Set fil = fso.GetFile(cesta)
Set ts = fil.OpenAsTextStream(ForWriting)

For rd = 1 To ActiveSheet.UsedRange.Rows.Count
For sl = 1 To ActiveSheet.UsedRange.Columns.Count
If co <> "" Then
If text = "" Then
text = Replace(Cells(rd, sl), co, zaco)
Else
text = text & Replace(oddelovac & Cells(rd, sl), co, zaco)
End If
Else
If text = "" Then
text = Cells(rd, sl)
Else
text = text & oddelovac & Cells(rd, sl)
End If
End If
Next
ts.WriteLine text
text = ""
Next
ts.Close
End Sub

který popisovat zatím nebudu :-)
No a když ho pak spustíš, tak by se ti měl naplnit soubor export.txt se zadaným oddělovačem a případně s nahrazeným textem.

M@

Ahoj, pokud to má na základě hodnoty ve sloupci A zapsat jinou hodnotu, která je přiřazena té ve sloupci A, tak snad jedině SVYHLEDAT, nebo makro.

M@

Asi to bude chtít ten soubor, takhle z hlavy asi nikdo nic nevymyslí :-). Ikdyž neslibuju že když bude soubor, že někdo něco vymyslí :-)

M@

Ahoj,

momentálně to vypadá tak, že při kliknutí na to tlačítko vytvoříš kopii vzorové faktury, to znamená, že pokud bys chtěl do seznamu zapsat data, tak bys je musel mít vyplněné už na tom vzoru, jinak nevím kde bys tam ty data vzal.
dim radek as single
radek = 4' první řádek v seznamu
do while cells(radek,2) <> ""
radek = radek + 1
loop
tento kód najde první prázdnou pozici v seznamu na kterou pak zapíšeš požadované údaje
list4.cells(radek,2) = list1.cells(10,6)' zápis odběratele
list4.cells(radek,3) = date' zápis data vystavení (aktuální)
list4.cells(radek,4) = list1.cells(19,5)' zápis data splatnosti

Jinak pro vytváření nové faktury bych nepoužíval Sheets(Sheets.Count - 1).Name = "faktura_00" & Sheets.Count - 4
takle když dojdeš na 10, tak budeš mít faktura_0010, ale předpokládám, že chceš faktura_010 (vždy 3 místné číslo):Sheets(Sheets.Count - 1).Name = Format(Sheets.Count - 4, "faktura_00#")

M@

K prvnímu bodu viz. Petrův článek "Filtrování funkcí SOUČIN.SKALÁRNÍ" http://wall.cz/filtrovani-funkci-soucin.skalarni.a12.html

Ten zbytek mi moc nejde do hlavy :-/

M@

Pokud ta část za číslem není někde v excelu definovaná, tak to tímhle vzorcem nepůjde, na to už by muselo být makro, které danou složku prohledá a v případě, že najde soubor začínající daným číslem, tak zapíše odkaz. Což už je trochu složitější a i já bych musel mrknout na net, jak prohledat složku - to už je i na mě moc :-), ale jde to, to jsem si 100% jist. Třeba když se budu někdy hodně nudit tak na to mrknu :-).

M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje