Příspěvky uživatele
< návrat zpět
Dobrý den,
řeším tisk do pdf (přes makro) a narazil jsem na problém s uspořádáním listů.
Sheets(Array("List1", "List3", "List2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:= "C:\tisk.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=TrueNapadá někoho jak to udělat přes makro? Doufal jsem, že pomůže pořadí v Array .-), ale nepomohlo. Mechanicky bych věděl jak na to (tisk jednotlivých listů, a pak pdf sloučit). Jde to nějak efektivněji?
Díky za reakce.
P.
Jinak by šlo použít i "Vložit jinak", kde by sis mohl navolit co přesně chceš nakopírovat od vzorců až po šířky sloupců apod.
Ale již zmíněné řešení je pro tuto situaci nejlepší .-).
P.
V kódu Listu1 si přepiš "A" na "E", takže tam pak bude:
Do Until Worksheets("List1").Range("E" & konec) = ""
zaznam.ComboBox1.AddItem Worksheets("List1").Range("E" & konec).Value
konec = konec + 1
Loop
Nevím jestli tam pak budeš mít v reálu duplicitní jména, tak si to pak případně nějak ošetři. To už si určitě doladíš dle potřeby .-)...
P.
Co třeba nějak takhle?
Nevím co přesně se mělo načítat do toho ComboBoxu, ale jelikož se v tabulce objevovaly duplicitní hodnoty, tak jsem vytvořil ještě jeden sloupec "ID".
P.
Viz příloha:
Dobrý den,
co třeba takhle?
P.
Viz příloha:
Pravděpodobně máte datum vytvořený pomocí funkce:
=DNES()
Pokud nechcete, aby se vám datum aktualizoval, pak jej prostě nahradíte příslušným datumem .-):
27.2.2012
P.
Ahoj,
nejjednodušší bude asi "podmíněné formátování". Záleží co konkrétně tím chceš řešit...
P.
Viz př.:
Mě to funguje, takže chyba bude asi někde jinde...
Viz příloha:
Ahoj,
pokud tomu dobře rozumím, tak chceš do TextBoxu zadat číslo, které se pak následně vyhledá pomocí filtru. Problém tam nastává v tom, že proměnné "cislo" přiřazuješ ještě navíc "*". Nahraď to tímto a pojede to:
cislo = TextBox1.Text
Jinak by jsi pak měl asi definovat proměnnou "cislo" jako jiný datový typ (např. Long)...
P.
Do buňky C1 si vlož tento vzorec:
=KDYŽ(A(A1>0;B1<0)=PRAVDA;1;KDYŽ(A(A1>0;B1>0)=PRAVDA;0;""))
Pokud nebude platit ani jedna z podmínek, tak se v buňce neobjeví nic. Může být?
P.
Ahoj,
zmíněné řádky neposuneš :-). Budeš muset udělat "dvojnásobné" řádky a s pomocí sloučení buněk pak docílíš výsledného efektu.
P.
Viz příloha:
Předpokládám že myslíš seznam v ComboBoxu.
Počet zobrazených položek lze upravit vlastností "ListRows". Můžeš to nastavit ve vlastnostech (Properties) CB nebo např. při spuštění formuláře s CB.
př.
ComboBox1.ListRows = 15
P.
Ahoj,
nevím jestli to jde nastavit už přímo při vytvoření nového sešitu, ale každopádně by šlo vytvořit pomocí makra nový sešit a ten hned následně uložit s podporou maker.
Např.:
Sub Makro1()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="D:\Nový_Sešit_s_makry.xlsx", _
FileFormat:=xlOpenXMLWorkbook
End Sub
Může být?
P.
Díky moc oběma, paráda .-).
Nakonec jsem to udělal dle Jerzy.m, s tím že jsem využil sloupcové grafy a nastavil jsem maximální šířku. Akorát s tím intervalem 12-nekonečno jsem měl docela problémy, protože se mi hodnoty x a y budou měnit a nemůžu nastavit pevnou hodnotu. Tak nějak jsem to vyřešil pomocí makra :-), ale asi to není úplně ideální.
(Problém na který jsem tam narazil je, že pokud zadám vyšší hodnotu (např. 22), tak nebude graf nahoře "uzavřen" číslem...)
P.
Jaký je dotaz?
To co tady píšete je spíše konstatování. Mezi listy v jednom sešitě lze běžně pracovat pomocí vzorců a funkcí a rozdíl oproti práci v jednom listu je v adresách buněk...
Příklad vzorce ve třetím listu:
=List1!A1+List1!A2
P.
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