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
Level 1
Příspěvky: 84
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
Level 1
Příspěvky: 84
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: 15955
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 - hromadné označení řádku a následné vyjmutí
    od keik » 04 říj 2019 10:57 » v Kancelářské balíky
    1
    397
    od xlnc
    04 říj 2019 11:25
  • Excel - překopírování vybraných řádků
    od Michremi » 19 črc 2019 14:09 » v Kancelářské balíky
    1
    656
    od MePExG
    19 črc 2019 14:39
  • Sloučení duplicitních řádků excel (suma a průměr)
    od cervcek » 02 kvě 2019 08:49 » v Kancelářské balíky
    5
    797
    od cervcek
    03 kvě 2019 20:51
  • Excel VBA rozšíření automatického kopírování řádku na jiný list atd.
    od stenda » 01 říj 2019 15:01 » v Kancelářské balíky
    0
    724
    od stenda
    01 říj 2019 15:01
  • EXCEL kopírování na jiný list na číslo řádku dle buňky
    od Klásek » 03 říj 2019 16:44 » v Kancelářské balíky
    5
    847
    od Klásek
    07 říj 2019 13:43

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

Kdo je online

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