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

Příspěvky uživatele

Najlepšie by bolo to podmienené formátovanie vyhodiť a nahradiť to vyfarbením bunky podľa toho stlpca G. To sa dá jednoducho makrom, podľa hodnôt priradí farbu .interior.colorindex=(0-56), niečo si vyberieš.

Potom zase tvojím makrom prenesieš aj farbu
Pridáš si tam ešte riadok.
List2.Cells(rd2, sl) = Cells(rd1, 6)
List2.Cells(rd2, sl).interior.colorindex = Cells(rd1, 6).interior colorindex

Asi najlepšie bude ísť na to odzadu

Sub KillPrazdnyList()
Dim ws As Worksheet
Dim i As Long, j As Long, c As Integer
c = ThisWorkbook.Worksheets.Count
Application.DisplayAlerts = False
On Error GoTo konec
For i = c To 1 Step -1
Set ws = Worksheets(i)
ws.Activate
'Debug.Print ws.Name
If ws.UsedRange.Cells.Count = 1 Then
If ws.UsedRange.Value = "" Then ws.Delete
End If
Next i
GoTo finito
konec: MsgBox " Tento list už nemôže byť zrušený"
finito: Application.DisplayAlerts = True
End Sub

Ešte dva príklady. Na každom liste jeden.
Je použitý cyklus FOR. Je rýchlejší ako DO WHILE.

TARGET (cieľ)je bunka alebo oblasť(RANGE), ktorej sa udalosť týka. Napríklad pri udalosti CHANGE je to bunka, ktorá je menená.
Ďalšie formáty si môžeš doplniť do bloku WITH.

Tu je to ešte raz kompletné.
Samozrejme namiesto COLORINDEX môžeš použiť aj COLOR. Je to lepšie.

Vymyslel som si takéto makro. Po stisku enter alebo šípka dole(hore) sa spustí.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bunka As Range
If Target.Row <> ActiveCell.Row Then
Set bunka = Cells(Target.Row, 1)
If bunka <> "" Then
Range(bunka, bunka.End(xlToRight)).Interior.ColorIndex = Cells(bunka.Value + 1, 1).Interior.ColorIndex
Range(bunka, bunka.End(xlToRight)).Font.Color = Cells(bunka.Value + 1, 1).Font.Color
End If
End If
End Sub

Pokiaľ ide o tú udalosť, ktorá má spustiť to druhé makro. Ako si to predstavuješ?

Tu máš formátom aj vzorcom. Makro netreba.

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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje