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

Příspěvky uživatele

Daj si do pomocného stlpca vzorec
=OR(A2="a";A2="b";A2="c")
=NEBO(A2="a";A2="b";A2="c")
A vyfiltruj si to podľa toho.
Stlpec môžeš potom skryť.

Poki ani sa ti nedivím.
Aj pre mňa je to v cudzej reči.
Pochopil som z toho iba jedno. Iba zadávateľ presne vie čo chce.

Alebo
IF Weekday(Cells(i, "A") - 1) >5 then Cells(i, "A").Interior.ColorIndex = 4

cesta="C:\Documents and Settings\jan\Dokumenty\"

for i=1 to 10

jmeno=cesta & "sešit" & i & ".xls" 'Alebo jmeno=cesta & cells(i,1)
ActiveWorkbook.SaveAs Filename:= jmeno
next i

Jakub
Prosím ťa, vymaž si aspoň tie
ActiveWindow.ScrollRow
v úvodnom príspevku.
Nedá sa na to pozerať.
Ď.

Ak si dáš zaznamenať makro a potom dáš uložiť súbor. Tak po ukončení záznamu makra by si tam mal mať niečo takéto.

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\jan\Dokumenty\Zošit1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Ešte som to upravil aby tam nebolo násobenie nulou.

Niečo takéto?

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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse