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

Příspěvky uživatele

takze textova cast bude mat len 2 znaky??

ked ano, tak to je potom jednoduche:
TestString = Cells(1, 1)
aText = Left(TestString, 2)
bCislo = Mid(TestString, 3, Len(TestString) - 2)

to by trebalo vidiet dokument

auto254
tetuska3656
vladoo5412.5454

napr. mozu byt taketo ?

ked hej tak to budete musite urobit funkciu ktora vam zisti poradie cisla v bunke

len ted netusim ci napr. nemoze byt aj taketo:
3bit5475
4you547,554
atd.

tazko sa nato robi funkcia ked nevidim predlohu

skuste toto:

na nete som nasiel jeden postup ako komprimovat a resize obrazkov a prerobil som to na viac sheetov

skuste sa nato kuknut ci vam to vyhovuje?

pozn: to rozlisenie obrazku sa da zlepsit rovno v makre

kedysi som robil vykaz prace pre kamosa

neviem ci vam to bude vyhovovat:

s tymto nikto nepohne? :))

ten program by potreboval viac veci doladit :)

- dopisal som tam cyklus na viac datumou
- nieje tam osetrene ked do > od

poslite prilohu :)) tak toto by aj mna zaujimalo ako sa vam to podarilo

edit: ale teraz ked nad tym rozmysalm je dost mozne ze ta zavada nebude v dokumente ale v pc :))

nejak tomu nechapem predstavme si ze mame tabulku

stlpcov 10
riadkou 1000

ked ju zfiltrujem (nepodstatne co ) tak uvidim 500 riadkou

a teraz vy chcete aby bolo vidiet 500 riadkou s 1000riadkami? a to ako si predstavujete? :)

resp. jedine ako si to ja predstavujem tak by to slo vyfarbovat a nato by ste mali pouzit "podmienene formatovanie"

- ja to niekedy aj odskusam :))))

resize tiez napriklad nepouzivam
robim to cez range(cells(), cells())

.copy .paste alebo .pasteSpecial ... tychto prikazov sa vyvarujem a nechci ich pouzivat

ja radsej to pisem cells(1,1) = w.cells(1,1)

ale to by sme sa zas dostali k nasej oblubenej teme setovat a necyklovat :))))

popravde ja to stale davam do novej instancii :) ale uz netusim preco :)))

ma to nejaku vyhodu .... alebo je dost mozne ze casto robim s powerpointom, accesom, wordom a uz som tak zblbnuty ze to davam stale :)

Edit: treba otocit chybicka .)
W.Close
Set xl = Nothing

tak makro ktore sa da upravit:

Private Sub aExcel(ByVal y As Integer)
Dim xl As Excel.Application
Dim W As Workbook

Set xl = CreateObject("Excel.Application")
Set W = xl.Workbooks.Open("C:\test.xlsx")

sheets(1).cells(1,1) = w.sheets(1).cells(1,1)

Set xl = Nothing
W.Close
End Sub

cells(1,1) = w.cells(1,1)
A1 = druhy dokument A1

staci takto?

umna v Excell 2010 ked dam compresiu obrazkou tak sa da nastavit pre vsetky naraz

inac by to slo aj makrom a to asi takto:
(pisem to cisto teoreticky)
Sub test()
For x = 1 To Sheets.Count
For y = 1 To Sheets(x).Shapes.Count
If Sheets(x).Shapes(y).Type = msoPicture Then
' Sheets(x).Shapes(y). = BlaCompres
End If
Next
Next
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje