Příspěvky uživatele

zkoušels '1# Strana$'
zkusil jsem si dosadit v excelu a takhle to obešel, ale jak se zachová přes ADO to netuším :-)

Už si to moc nepamatuju, ale není btw nějaký bartender label?
Ten pokud si dobře pamatuju může běžet jako servis na serveru s nastavenou možností sledování jedné konkrétní složky ve které když se objeví nový dat soubor s daty (a myslím že i cestou k šabloně), tak ho zpracuje a na přednastavené tiskárně automaticky vytiskne (je to spíš o nastavení daného programu než vymýšlení jak to udělat v excelu). Teoreticky bych řekl, že může běžet i lokálně.
Ale jak říct přímo z excelu vytiskni to a to s tou a tou šablonou no nevím, jestli to půjde, v první řadě to chce prozkoumat paramtery pro tisk z příkazového řádku daného programu pro tisk etikety, třeba podporuje parametr pro tisk, další parametr pro zadání šablony a další pro soubor s daty, ale těžko říct co používáš.

Chce to trochu pohledat na stránkách produktu a zjistit jestli to přes parametry lze a pak je napůl vyhráno :-)

Třeba pomůže:
@http://www.seagullscientific.com/ftp/whitepapers/WhitePaper_CommanderExamples.pdf

nebo
http://www.seagullscientific.com/aspx/btw_controlling_the_bar_tender.aspx#CommandLines

nebo příklad kódu (nemám kde odzkoušet):
shell "C:\Program Files\Bartender\Bartender.exe" /f=c:\BartenderFiles\Format1.btw /prn=zebra /p /d=C:\BartenderFiles\Label.txt"

M@

Ahoj,

buňka3 = buňka2 - buňka1
formát buňky3 nastavit na číslo
buňka2 = datum2
buňka1 = datum1

M@

Pravým tlačítkem na graf (záleží kde na něm klikneš - neklikat na formát zobrazované oblasti, kliknout nejlépe někde u okraje) -> formát oblasti grafu -> záložka vlastnosti a volba Přesun buňek bez objektu.

Testováno v 2003 - v podstatě to funguje stejně jako u ostatních objektů, jen záleží kde klikneš.

M@

Máš oblast D4:H27 s hodnotami s nějakou celkovou hodnotou což je suma(D4:H27) a jestli pak chceš zjistit podíl jednotlivých sloupců na této sumě tak pak do řádku 28 vlož =(100/suma($D$4:$H$27))*suma(D4:H27) a máš procentuelní podíl, teda pokud nenchceš něco jiného :-)).

M@

Formulář může být volán přes UserForm.show(0), což znamená, že není nutno ho zavírat a list je přístupný pro scrolování apod.

Samotné scrolování může být řešeno přes ActiveWindow.ScrollRow = ActiveSheet.UsedRange.Rows.Count
anebo jak píše Poki na jiný konkrétní řádek (userform ví kam zapisuje, tak asi ví i kam naskrolovat)

M@

Ahoj,

co třeba:
ActiveWorkbook.SaveAs "D:\Program Files\archviv\soubor.xls"

M@

Ahoj,

možnost bez použití makra by byla ošetření vzorce svyhledat, aby v případě že hodnotu nenajde doplnil hodnotu ze sloupce B, pak by se dal zkopírovat a vložit celý měsíc bez filtrování.

Pomocí makra by to šlo například takto:
Public Sub vypln()
For i = 2 To List1.UsedRange.Rows.Count
If Rows(i).EntireRow.Hidden = False Then
Cells(i, 2) = Cells(i, 3)
End If
Next
End Sub
M@

Koukám Poki byl rychlejší, asi jsem si s tím moc hrál :-)

M@

Nevím jak u 2007, ale u 2003 mám jeden soubor (s jakýmkoliv názvem), pak v excelu panel nástrojů s tlačítky odkazující se na různá makra v daném souboru, která vykonávají požadované akce v sešitu se kterým zrovna pracuji, případně jen s výběrem, třeba makro pro odstranění diakritiky, neváhodou je, že vždy při spuštění makra se otevře daný soubor s makry, ale v každém makru ho zas po vykonání akce ukončím, takže jen problikne. Ale pokud vím, tak vlastní panely nástrojů jsou v office 2007 trochu oříšek (takže se vůbec netěším až budu donucen k migraci :-/ ).

V podstatě je to taková oklika doplňku.

M@

Zkus si na list vložit tvar obdélník (velikosti fotky) někde v jisté složce si pak ulož obrázky s konkrétním jménem (identickým s jedním z těch dalších 4 údajů, nebo jejich sloučeninou) a pak při změně buňky s jedním z těch údajů volej načtení obrázku, např:
ActiveSheet.Shapes("Rectangle 1").Fill.UserPicture "C:\cesta\" & cells(1,1) & ".jpg"
kdy v buňce A1 bude název souboru bez přípony.
Rectangle 1 je název objektu, který si můžeš přejmenovat dle libosti a toto jméno pak dosadíš i do kódu.
Přejmenování dělám tak že k objektu přiřadím makro s kódem:
ActiveSheet.Shapes(application.caller).name = "Fotka" 'třeba

M@

vzorek bez KT - pro názornost jak si přizpůsobit data.

M@

zkusil bych to takhle.

M@

vcera tam chybělo to "set oblast"

Jo nemusím mít vždycky pravdu

, tak pak už ale není chyba v For Each, ale v definici oblasti, tu je potřeba nastavit, anebo si vytovřit pojmenovanou oblast.

S nastavením to bude:
Sub Makro1()
Dim oblast As Range
Set oblast = List1.Range("A3:BC7")

For Each bunka In oblast
If IsError(bunka) = True Then bunka.Value = "0"
Next

End Sub

s použitím pojmenované oblasti to může vypadat takto:
Sub Makro1()

For Each bunka In Range("Nazev_Oblasti")
If IsError(bunka) = True Then bunka.Value = "0"
Next

End Sub

no a na závěr zjednodušený zápis bez deklarací a bez pojmenované oblasti:
Sub Makro1()

For Each bunka In Range("A3:BC7")
If IsError(bunka) = True Then bunka.Value = "0"
Next

End Sub
M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje