Příspěvky uživatele
< návrat zpět
No funkcia SVYHLEDAT má aj nápovedu.
A druhý problém rieši funkcia IFERROR.
@eLCHa
Aj bez toho NYNÍ to po stlačení F9 prepočíta. Alebo po po udalosti CHANGE. Netuším načo je tam to NYNÍ, a ani sa mi to hľadať nechce. Vlastne tak trochu tuším. To nyní zmení čas, ale po prenásobení nulou je to zase nula-teda žiadna zmena. Tak neviem, čo tým autor myslel.
O.PROSTŘEDÍ= GET.CELL
Zadaj do googla GET.CELL
http://www.mrexcel.com/forum/excel-questions/20611-info-only-get-cell-arguments.html
No nejako takto
Sub vyfarbi()
Dim oblast As Range
Dim bunka As Range
Set oblast = Range("A1", Range("A1").End(xlDown))
For Each bunka In oblast
If (bunka = ActiveCell) Then bunka.Interior.ColorIndex = 4
Next bunka
End Sub
Pavlus napsal/a:
Řešil bych bez tlačítka přes podmíněné formátování...
P.
Toto asi nebude ono.
Možno chce takto označiť aj 50 rôznych hodnôt. Krištálovu guľu nemám.
Ešte sa to dá tak, že v menu
Možnosti > rozšírené > systémové oddeľovače nastavíš 1. oddeľovač desatinných miest na bodku.
2. Vložíš údaje CTRL+V
3. a vrátiš systémové oddeľovače na pôvodné.
V excel 2003 by to malo byť podobne.
Stalker napsal/a:
Pokud sem pochopil zadání, šel bych na to pomocí funkce SVYHLEDAT.
Iste je na to viac spôsobov.
SVYHLEDAT alebo proste VYHLEDAT. Prípadne niekoľkokrát KDYŽ. Ale ja za niekoho vytvárať prílohy nebudem.
@xlnc
No aké zadanie, taká odpoveď
Predpokladal som že "1A" má byť "A1" a "1B" má byť "B1".
Viac si zo zadania domyslieť neviem. 
=CHOOSE((A1-1)/200+1;"priklad1";"priklad2")
CHOOSE=ZVOLIT
A načo je toto dobré?
Veď si to môže dať vytlačiť jeden raz do PDFka a potom to môže vytlačiť ak 100 krát. A toto makrom v exceli asi nezachytíš.
Mohol by si to popísať trochu zrozumiteľnejšie?
Keď to dáš do textového editoru, tak potom najprv zameň desatinnú bodku za desatinnú čiarku a až potom skopíruj do excelu.
Alebo ešte lepšie použi import z toho textového súboru.
Bodku zameň za desatinnú čiarku a potom zmeň formát z vedeckého na číslo
Worksheets("Hárok1").Activate
k = 1
For i = 2 To 19
For j = 13 To 2 Step -1
k = k + 1
Worksheets("Hárok2").Cells(k, 1) = Cells(i, 1)
Worksheets("Hárok2").Cells(k, 2) = Cells(1, j)
Worksheets("Hárok2").Cells(k, 3) = Cells(i, j)
Next j
Next i
To sú fakt užitočné informácie.
Myslím, že makrom by to išlo. 
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