excel - označení řádků

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Rexlopek
nováček
Příspěvky: 6
Registrován: listopad 17
Pohlaví: Muž

excel - označení řádků

Příspěvekod Rexlopek » 24 črc 2019 08:27

Ahoj,
zkoušel jsem vytvořit makro, které by mi označilo všechny řádky, podle jednoduché podmínky, ale vždy mi to označí jen první vhodný řádek a zbytek nechá být, neporadil by mi někdo, v čem dělám chybu?




řádky.xlsm




zmíněné makro:

Sub Makro1()
'
' Makro1 Makro
'
Set Rng = Range("D1:D57")
i = 1
For counter = 1 To Rng.Rows.Count
If Rng.Cells(i) = "ANO" Then
Rng.Cells(i).EntireRow.Interior.Color = RGB(188, 188, 188)
Else
i = i + 1
End If
Next
'
End Sub
Nemáte oprávnění prohlížet přiložené soubory.



Reklama
Uživatelský avatar
Grimm
Level 1.5
Level 1.5
Příspěvky: 118
Registrován: září 17
Pohlaví: Muž

Re: excel - označení řádků

Příspěvekod Grimm » 24 črc 2019 09:27

V čem děláš chybu?. V nesmyslném použití dvou čítačů. Tedy proměnných counter a i, to i je tam naprosto zbytečné a způsobuje nefunkčnost kódu a špatně zvolené vyhodnocení podmínky "if". V editoru si zobraz okno "Locals" ať vidíš jakých hodnot obě proměnné nabývají.
Pro názornost si můžeš do cyklu vložit Rng.Cells(i).Select abys viděl v listu, která buňka je aktuálně vybraná a kód krokuj pomocí klávesy F8.
Určitě přijdeš na to kde si udělal kopanec.

PS: Ten select potom samozřejmě smaž.

Rexlopek
nováček
Příspěvky: 6
Registrován: listopad 17
Pohlaví: Muž

Re: excel - označení řádků

Příspěvekod Rexlopek » 24 črc 2019 10:32

začalo mi to fungovat s přidáním dalšího počítadla, je to správně?

Sub Makro1()
'
' Makro1 Makro
'
Set Rng = Range("D1:D57")
i = 1
For counter = 1 To Rng.Rows.Count
Rng.Cells(i).Select
If Rng.Cells(i) = "ANO" Then
Rng.Cells(i).EntireRow.Interior.Color = RGB(188, 188, 188)
i = i + 1
Else
i = i + 1
End If
Next
'
End Sub

Uživatelský avatar
Grimm
Level 1.5
Level 1.5
Příspěvky: 118
Registrován: září 17
Pohlaví: Muž

Re: excel - označení řádků

Příspěvekod Grimm » 24 črc 2019 13:27

Jak už sem psal předtím, proměnná i je zcela zbytečná. Vždyť si vystačíš s prvním počítadlem counter. Nebo pokud trváš na tom i tak si counter přejmenuj na i.

Kód: Vybrat vše

Sub Makro1()
'
' Makro1 Makro
'
Dim RnG As Range
Dim counter As Long

Set RnG = Range("D1:D57")
For counter = 1 To RnG.Rows.Count
    If RnG.Cells(counter) = "ANO" Then
        RnG.Cells(counter).EntireRow.Interior.Color = RGB(188, 188, 188)
    End If
Next
'
Set RnG = Nothing
End Sub


PS: Samozřejmě by se kód dal napsat několika způsoby, ale na začátek dobrý :-)

d1amond
člen HW spec týmu
Elite Level 12
Elite Level 12
Příspěvky: 16073
Registrován: květen 08
Bydliště: České Budějovice
Pohlaví: Muž

Re: excel - označení řádků

Příspěvekod d1amond » 24 črc 2019 13:44

Hlavně to není kód napsaný uživatelem, ale záznam makra. Myslím si, že tazatel moc neví, na co se kouká. Resp. makro, doplněné uživatelsky.
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
i5-4430/Asus H97M/Kingston HyperX 8GB DDR3/Asus R9 280X/Seasonic M12II-620/Samsung 850 Pro 128GB
Chcete si nechat sestavit nový počítač?


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel - seskupení řádků vč. obrázků
    od pajusin » 24 úno 2021 19:21 » v Kancelářské balíky
    1
    177
    od X
    25 úno 2021 08:00
  • excel - SVYHLEDAT s doplněním celého řádku?
    od osch » včera, 20:08 » v Kancelářské balíky
    2
    52
    od osch
    dnes, 17:54
  • Monitory mění své pořadí/označení
    od Karrex » 29 říj 2020 12:13 » v Problémy s hardwarem
    2
    365
    od Karrex
    07 lis 2020 11:22
  • MS Word - označení slova jako nespisovné
    od jakpetricek » 11 zář 2020 08:46 » v Kancelářské balíky
    3
    515
    od Martab
    11 zář 2020 13:10
  • Makro - kopírování jednoho řádku na jiní list podle měsíců
    od lleennkkaa » 28 srp 2020 14:25 » v Kancelářské balíky
    3
    689
    od lleennkkaa
    01 zář 2020 12:02

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů