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

MS Excel

Téma: Makro od "POKIHO"

Zaslal/a amater 15.4.2012 20:19

Dotaz na tvorcu "POKI" nižšie uvedeného "Makro" , je vinikajúce!
Chcem požiadať o láskavosť vylepšiť ho o fankcionalitu ,aby zhodu porovnávaneho stp."A" so stl. "B" vyznačilo aj v stl."B" obdobne ako stl "A" . Buď farebne alebo adresou bunky !

srdečná vďaka

Sub compare() With ActiveSheet
rw = 1
Do While Not IsEmpty(Cells(rw, 1).Value)
rw2 = 1
Do While Not IsEmpty(Cells(rw2, 2).Value)
If Cells(rw, 1).Value = Cells(rw2, 2).Value Then
Cells(rw, 1).Interior.ColorIndex = 3
End If
rw2 = rw2 + 1
Loop
rw = rw + 1
Loop
End With
End Sub

Uzamčeno - nelze přidávat nové příspěvky.

---

marjankaj(15.4.2012 20:32)#008085

Sub compare()
With ActiveSheet
rw = 1
Do While Not IsEmpty(Cells(rw, 1).Value)
rw2 = 1
Do While Not IsEmpty(Cells(rw2, 2).Value)
If Cells(rw, 1).Value = Cells(rw2, 2).Value Then Cells(rw, 1).Interior.ColorIndex = 3
Cells(rw2, 2).Interior.ColorIndex = 3
End If
rw2 = rw2 + 1
Loop
rw = rw + 1
Loop
End With
End Subcitovat

amater(15.4.2012 20:48)#008086

Jednoduché, odskušam a ohlásim sa !

Zatiaľ vďaka za promptnosťcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse