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)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.