Příspěvky uživatele

Myslim, ze tohle resil Roman: http://wall.cz/index.php?m=topic&id=4452

Zkusil jsem napsat prunik poli do funkce.
Pokud budete mit potom v nejake procedure definovana nejaka pole, staci pouzit funkci: PrunikPoli(array1(),array2()).

Moc jsem to netestoval, tak to snad bude fungovat

Tady je ta funkce:
Public Function PrunikPoli(Jedna(), Dva())

Dim Prunik()
Dim u As Long
Dim P As Long

u = 0
P = 0

'--Pole pruniku
For i = 0 To UBound(Jedna())
For x = 0 To UBound(Dva())
If Jedna(i) = Dva(x) Then
ReDim Preserve Prunik(0 To P)
Prunik(u) = Jedna(i)
u = u + 1
P = P + 1
End If
Next x
Next i

If u = 0 Then
PrunikPoli = "Nothing"
Else
PrunikPoli = Prunik()
End If

End Function

Zdravim,
tohle neni standardni chovani Excelu. Problem muze byt napr. v automatickych opravach, jinak me nic (takhle nasucho) nenapada...

co takto?

Slo by to asi takto. Zkuste to a uvidime...

tak jeste ten vzor

zpusob se vzdycky najde, jen jde o to, jak slozity bude.
Zkuste vice popsat problem, pripojit par ukazkovych souboru a nastinit celou siri (o kolik souboru se jedna, jakou maji strukturu - jestli je treba vzdy stejna...atd)

Abych rekl pravdu, tak se mi do toho nechce moc zavredavat (a studovat historii Velikonoc

).
Nekde jsem vygooglil funkci, ktera Velikonoce pocita (je z United States Naval Observatory) a udelal zakladni kontrolu (jestli vychazi na pondeli

).
Zkuste se na to podivat, treba vam to pomuze

Jinak musim rict, ze se mi moc libi vas Kalendar - ocenil bych, jestli byste mi mohla poslat hotovou verzi - pokud bych ji teda mohl vyuzit...

SLo by to asi takto:
Vse se spusti stiskem tlacitka START (prirazene makro lze samozrejme spustit hned pri otevreni v procedure Workbook_Open).
Snad je to to, co potrebujete...

Tak jsem to dal dohromady.
Podivejte se do prilohy.
V souboru Mustr (resp. v kodu v okne VBE, je nutne v kodu nastavit Cestu k obrazkum...
a samozrejme take mit povolena makra

Pokud nechcete bile, neni nic lehciho nez definovat jinou barvu.
Problem u ColorIndex je, ze ma jen 56 barev (zakladni barvy), takze pokud budete potrebovat (kvuli pozadi listu) jinou barvu, bude lepsi nepouzit ColorIndex, ale jen Color, takto: ? ActiveCell.Font.Color.
Pokud tedy budet mit vybranu bunku, ktera bude mit takovou barvu, jakou potrebujete, postaci do Immediate okna ve VBE napsat vyse zmineny kod a dostanete cislo, ktere potom nastavite (pozor na ten ColorIndex, radeji pouzijte Color).

Tady je makro, ktere nastavi Oblast (ktera nema byt videt pri tisku) na bilou barvu pisma, pak zobrazi nahled (nebo vytiskne) a nastavi oblast zpet na cernou barvu pisma:

Sub TISK()
'colorindex = 2 'bila
'colorindex = 1 'cerna

Dim Barva As String
Barva = 2

Set Oblast = Range("B2,D4:F7,G2:H9") 'oblast, ktera nema byt videt pri tisku

'nastaveni Oblast na bilou barvu pisma
Oblast.Font.ColorIndex = 2

ThisWorkbook.PrintPreview 'nahled pred tiskem
'ThisWorkbook.printout 'tisk

'nastaveni Oblast na cernou barvu pisma
Oblast.Font.ColorIndex = 1

End Sub

Nevim, co je spatne, doporucil bych jeste prozkoumat moznosti Objektu FileSystemObject, ktery umoznuje vytvareni adresaru, kopirovani, presunovani a dalsi akce spojene se spravno souboru a slozek.

Google najde spoust informace k tomuto objektu, ja prikladam jen priklad, jak kopirovat soubor.
Sub Copy_One_File()

Dim FSO As Object
Dim CestaZ, CestaDO As String
Dim FileDO, sZdroj As String

Set FSO = CreateObject("Scripting.FileSystemObject")

'----Nastavit hodnoty cest a souboru
CestaZ = "C:\Documents and Settings\TEST1\"
CestaDO = "C:\Documents and Settings\TEST2\"
sZdroj = "soubor.xlsx"
'--------------------------------------------

Set File = FSO.getfile(CestaZ & sZdroj)
FileDO = sZdroj

'--kopirovani souboru
File.Copy CestaDO & FileDO
End Sub

sice jsem moc nepomohl, ale presto diky

Zdravim, urcite to pujde makrem.
Zkuste prilozit soubor, kde budete psat onen nazev obrazku (napsany nazev by se mel shodovat se jmenem obrazku).
Zkratka zkuste prilozit nejakou sablonu, do ktere bych mohl makro napsat.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje