• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Makrem asi lze - někde tady už proběhl i odkaz :-).
Osobně si tvořím řady dvě (červená a zelená) s tím že hodnoty rozsázím tou podmínkou do oblasti červená / zelená.

M@

Application.ScreenUpdating = False
Dim rd As Single

rd = 3
Do While Cells(rd, 3) <> ""
rd = rd + 1
Loop
Cells(2, 4).Copy
Range("D3:D" & rd - 1).PasteSpecial xlPasteFormulas
Application.ScreenUpdating = True
nebo tak :-)
M@

V grafu nepoužívat fixní oblasti, ale pojmenované oblasti.
Pojmenované oblasti vytvořit tak aby byly dynamické.
Příklad:
=NEPŘÍMÝ.ODKAZ("List1!$B$2:$B$"&POČET2(Tabulka!$B:$B))

Snad to pomůže :-).
M@

Application.ScreenUpdating = False
Dim rd As Single
rd = 2
Do While Cells(rd, 3) <> ""
Cells(rd, 4).Formula = "=CONCATENATE(1,MID(C" & rd & ",4,4))"
rd = rd + 1
Loop
Application.ScreenUpdating = True
M@

Proč hned makrem? :-)
Stačí když ten vzorec napíšeš do první buňky, odentruješ, vybereš znova tu buňku, pak myší najedeš na pravý dolní roh až se ti kurzor změní z bílého tlustého křížku na slabý černý, pak 2x klikneš a je to.

M@

Public Sub nahodnex()
Dim min, max, radek, sloupec As Single
min = 1
max = 10
If Application.WorksheetFunction.CountA(Range("A1:J10")) >= 100 Then
MsgBox "Již není 10 volných pozic", vbCritical
Exit Sub
End If

For cc = 10 To 1 Step -1
Randomize
radek = Round(Rnd * (max - min) + min, 0)
Randomize
sloupec = Round(Rnd * (max - min) + min, 0)
If Cells(radek, sloupec) = "" Then
Cells(radek, sloupec) = "X"
Else
cc = cc + 1
End If
Next
End Sub

M@

Asi to nebude dokonalé, ale fungovat by to mohlo - do listu orig načteš hromadně x souborů, kdy do posledního sloupce se zapíše cesta k souboru.
Na listu export si pak uděláš požadované úpravy (název souboru musíš zachovat) a dáš export - upravená data se uloží do všech souborů.
Zde s těmi csv soubory není zacházeno jako s csv, ale jako s textem.

M@

M@

a kde máš tu přílohu?

Je :-).

zkusím to z hlavy, tak je možný že to nebude úplně dobře :-)

sub Textbox1_change...
dim datum as date
if isdate(textbox1)= true then
datum = textbox1
datum = datum + 30
textbox2=datum
end if
end sub


textbox1 = datum vystavení
textbox2 = datum splatnosti (datum vystavení + 30 dní)

tak nějak by to mohlo fungovat :-)

M@

1) ne zrovna správný postup je vložit řádek před poslední řádek oblasti definované ve vzorci, hodnoty z posledního zkopírovat do toho nového a na poslední pozici vložit data nová.

2) elegantnější řešení je použití dynamické pojmenované oblasti (oblast zadaná ne fixně, ale vzorcem počítajícím počet vyplněných řádků).

M@

Formát obrázku -> Vlastnosti a zrušit Tisk objektu.
Číslo na text viz.
http://wall.cz/index.php?m=topic&id=1286
http://wall.cz/index.php?m=topic&id=363
Obrázek pod buňky nejde - leda jako pozadí listu, což je k ničemu.
Naopak přes obrázky lze vkládat objekty - třeba textové pole s odkazem na buňku.
Obávám se že když vložíš obrázek, že při tisku to nebude nutně 1:1 s originálem - to je potřeba si odladit na konkrétní tiskárně. Setkal jsem se s problémem že stejný obrázek vytištěný na dvou různých tiskárnách měl různý rozměr :-/.
Další možnost je zkusit:
http://www.posta-kancelar.cz/

M@

Obávám se že NE.

Leda uložit na FTP stále jako excel a tam to sdílet, nebo využít Sharepoint, nicméně stále to bude excel.

M@

Pokus.
List zadání = vložení dat
List Tisk = tisk :-)

M@

http://www.ozgrid.com/Excel/free-training/ExcelVBA2/excelvba2lesson21.htm
Zkoušel jsem...
UserForm1.Controls.Add "Forms.Label.1", "Label2", vbYes
UserForm1!Label2.Visible = True
UserForm1!Label2.Top = Label1.Top
UserForm1!Label2.Caption = "AAA"
ale rozhodilo mi to Label1, který je pak v kódu potřeba nastavit. Ale jen jsem to zkoušel, nikdy jsem to ve VBA nepoužil.
Ve VBA používám pouze metodu load pomocí indexů, která ve VBA očividně nejde použít, nebo jen nevím jak :-)
http://www.vbexplorer.com/VBExplorer/vb_feature/april2000/april2000.asp

Tak snad pomůže ten první odkaz :-)

M@

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje