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

Příspěvky uživatele

Napr.:
Sub CopyTo()
Dim X As Long, Y As Long
Application.ScreenUpdating = False
X = 3
Y = 4
Selection.Copy
With ActiveSheet
.Cells(ActiveCell.Row, ActiveCell.Column + X).Select
.Paste
.Cells(ActiveCell.Row, ActiveCell.Column + Y).Select
.Paste
.Cells(ActiveCell.Row, ActiveCell.Column + Y).Select
.Paste
.Cells(ActiveCell.Row, ActiveCell.Column + Y).Select
.Paste
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

alebo

Sub CopyTo2()
Dim X As Long, Y As Long
Application.ScreenUpdating = False
X = 3
Y = 4
With Selection
.Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column + X)
.Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column + Y + X)
.Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column + Y + Y + X)
.Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column + Y + Y + Y + X)
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Ako vždy :
čím novší - tým "lepší"

PS: Hovorím hlavne o Win, pretože toto je špecifikum W8/W8.1/W8.1.1 (a stavím krk na to, že aj W10). Často programy ani nedokážu zapísať svoj súbor, bez spustenia ako Správca (Administrátor nestačí).

Ale ak by sa našlo riešenie aj pre moju novšiu a "lepšiu" kombináciu, nebudem sa hnevať ani ja, pretože uvažujem o implementácii niečoho takéhoto do svojej aplikácie.

Ja som Vám to urobil takto

Do D43 zadajte
=IF(NUMBERVALUE(D42)>5;D42-5;"")
a pretiahnite tento vzorec aj do bunky pod ňou (D44).

Teraz do D42 zapíšte hodnotu napr. 11.
Dostanete výsledok:
11
6
1
Má to byť takto ?

Ak by to náhodou malo byť, tak, že v bunke D42 bude vypočítavaná hodnota vzorcom, a jeho výsledok bude 11, ale Vy tam chcete max 5, teda takto:
5
5
1
Tak to treba urobiť inak, ale podmienkou je, že D42 musí byť vypočítavaná. Zadávanej hodnote ručne do D42 to nieje možné, pretože bez makra nieje možné meniť tú istú bunku aj ručne aj vzorcom.

Napadá ma pár možností, ale či je to to, čo chcete ...

Nech sa páči. Porovnanie dvoch nerovnakých matíc s výpisom iba zhodných prvkov. Zoradené za sebou. Podmienené formátovanie, je tu ale iné, čo je logické, lebo v jednej aj druhej tabuľke môžu byť zafarbené adekvátne údaje inak. Takže v tejto poslednej sú podfarbené len tie, ktoré majú rovnaké podfarbenie v oboch tabuľkách.

PS: Inak minule som Vám tam dal o jeden stĺpec menej. Opravené. Čo nekričíte ?

Na W8.1 a Office 2013 x64 to končí chybou hneď na
Set OutApp = CreateObject("Outlook.Application")
vyžaduje práva správcu.
Na akom Win a Office Vám to funguje ?

Ešte som Vám tam doplnil aby Vám podmienene formátovalo aj výsledky. Ak by som bol na Vašom mieste, a bolo by to možné (existujú rôzne dôvody), tak by som si zmenil farby v podmienenom formátovaní na menej krikľavé.

@eLCHa
Tak toto je perfektné riešenie ! Načo taký komplikovaný vzorec, keď toto je elegantné. Len by som Vám ho doplnil o kontrolu tej SPZ (prvé 3 znaky obsahujú písmeno, vtedy nič nerobiť), a kontrolu chyby. To je ale všetko banalita, vzorec nemá chybu.
=IF(ISERROR(LEFT(A6;3)*1);"";IFERROR(MID(A6;MAX(IFERROR(FIND(ROW($A$1990:$A$2100);A6);0));4)/1;""))

@Alfan
Toto je presne riešenie aké potrebujete, a je jedno, či je to to isté ako v inom vlákne (neštudoval som).

Takto ?
Je tam aj podmienené formátovanie:
-oranžová na <-75%
-žltá na >75%
-žltá na prvý stĺpec výsledku, ktorý obsahuje nejaké prekračujúce hodnoty

Ďalej je použitá už matica, kvôli tomu aby boli za sebou (pozor vzorce sú až po stĺpec BG)

To chcete vypísať rovno v tých tabuľkách ? Čiže napr. ak upravíme vzorec v C4 z
=CORREL(usd!N3:N43;usd!F3:F43)
na
=IF(OR(CORREL(usd!N3:N43;usd!F3:F43)<=-75%;CORREL(usd!N3:N43;usd!F3:F43)>=75%);B4;CORREL(usd!N3:N43;usd!F3:F43))
tak rovno v C4 bude "AUDUSD", a rovnako bude "AUDUSD" aj v jej dvojíčke v E2?
Takto ? Ak áno, tak Vám spravím makro ktoré Vám prevedie tie vzorce na tento tvar (jednorázovo, žiadne makro potom používať nemusíte).
Ak som úplne mimo, tak to bude treba zoširša vysvetliť, pretože z finančníctva viem akurát to, že ma z neho bolí hlava .

EDIT: OK, beriem všetko naspäť, už som to asi pochopil, že ide o to, čo je vpravo. Pôjdem sa na to mrknúť...

To si máme ten súbor podľa obrázku vytvoriť, vymyslieť zdroj dát, uhádnuť vzorce či podmienky, odhadnúť formátovanie, a potom určiť príčinu, následne aj riešenie ?
No na Vašom mieste by som zvážil prílohu...

A ja blbec, že to máte nejakú svoju fnc
Ma vôbec netrklo že to je fnc TYPE (podobnejší názov už byť naozaj nemôže), ach jaj...
Každopádne mi to maticový vzorec nežerie ani na subcelok matice, ani na indexovanú položku, vždy to vráti hodnotu 64 = matica, a to je nám prd platné. Takže vzorec zatiaľ zostáva v tomto zložení, aj keď sa pohrávam s myšlienkou tam dať ešte jedno SUBSTITUTE na nahradenie prípadnej "-" medzi číslami, čo môže robiť galibu (Excel to môže automaticky vypočítať ako "mínus"). Prípadne som začal ale nedokončil ešte aj kontrolu každého znaku v štvorici, až vtedy by to bolo 100%-né.
Ale už aby som dokončil tento vzorec som si musel šklbnúť 2 deci

A čo tu nešlo o vytiahnutie toho roku ? Pravda, že som to prečítal len tak lajdácky. Ak nie tak nič, no sry

EDIT: A netuším čo je to TYP(1) a TYP(2)...

Tu máte riešenie aj makrom aj vzorcom ako vypreparovať z daného textu rok zprava, pričom nič nerobí ak
- dĺžka textu je menšia ako 4
- v texte niesú 4 čísla po sebe
- 1990 <= rok => 2100
- medzi prvými 3 znakmi zľava je písmeno (SPZ)

Čože to tam ešte potrebujete ?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse