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

Příspěvky uživatele

Vyznač oblasť napríklad D2:J12 alebo E:J a klikni na makro (tisk)

Ak chceš zobraziť všetko spusti makro a iba odťukni OK.

No marža je rozdiel medzi predajnou cenou a nákupnou cenou. Teda 12,5-10=2,5.
Percentuálne sa vyjadruje v pomere k predajnej cene. Teda (2,5/12,5)*100=20%
Teda najprv musíš vedieť predajnú cenu, a až z toho sa počíta marža.

tak =ABS(A1-A2)

alebo

=IF(A1<A2;"-"&TEXT(ABS(A1-A2);"h:mm");TEXT(ABS(A1-A2);"h:mm"))

A hodnota 10 by mala byť v prvej podmienke alebo v tej druhej?

Alebo to ešte otestovať

=IF(OR(D1<0;D1>=50);"mimo rozsah";CHOOSE(INT(D1/5)+1;C1;C2;C3;C4;C5;C6;C7;C8;C9;C10))

Záleží v akom tvare to chceš. Urob rozdiel. A1-A2

stačí aj bez toho IF (KDYŽ)

=OR(AND(A1>=0;A1<=100);A1="ANO";A1="NE")

=NEBO(A(A1>=0;A1<=100);A1="ANO";A1="NE")

No aj takto.
Ale netuším, načo ti to bude.

Ak by si tam chcel dať záporné číslo excel ťa nepustí. Musel by si dať pred to apostrof

Skús pozrieť hromadnú korešpodenciu vo worde. Tlač na štítky.

Tiež si to mohla napísať skôr. Ak sú v tých bunkách rôzne funkcie, tak si to ťažko budeš vyhodnocovať makrom.
A ten vzorec tiež treba upraviť ak máš OPAKOVAT namiesto REPT
adresa = Mid(cell.Formula, 7, Len(cell.Formula) - 9)

na adresa = Mid(cell.Formula, 11, Len(cell.Formula) - 13)

Súhlasím s Jeza.m, je to tak trochu vyumelkované
Najlepšie by bolo to preniesť tak ako hovorí Jeza.m

Skúsil som niečo urobiť, ale je to založené na tom, že v oblasti musí byť použitý ten tvoj vzorec "=REPT(XXXXX;1) vo všetkých bunkách. Predpokladám, že si to použil aby sa ti tam nezobrazovali "0" namiesto "".

CTRL+C a potom CTRL+V

Alebo si na to urob makro, najlepšie nahrávaním

No asi to máš naozaj zle zadefinované.
Ale kde, to ti ťažko niekto povie, keď si to nepriložil.

No aby to bolo presne podľa zadania, tak by som to trochu upravil

Public Sub radky2()
Application.ScreenUpdating = False 'zakázat vykreslování v průběhu makra - zvýší rychlost
Dim radek As Single
radek = 1
Do While Cells(radek, 1) <> "" 'maximum řádků na listu, ale lze nastavit vlastní a nižší šíslo - makro pak bude rychlejší protože bude ověřovat jen třeba 2000 řádků
Rows(radek+1).EntireRow.Insert ' Cells(radek + 1, 1).EntireRow.Insert
radek = radek + 2
Loop
Application.ScreenUpdating = True 'povolit vykreslování
End Sub

=CHOOSE(MOD(B$86+CHOOSE(LEFT($A88;1);6;0;2;4);8)+1;"D";"D";"N";"N";"";"";"";"")

Teraz neviem či ide to overovanie aj z iných listov v starších verziách.
Skús tie oblasti pomenovať a odkazovať sa na názov.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje