Ako porovnávať stĺpce s ​​VBA

Visual Basic for Applications ( VBA ) je programovací jazyk navrhnutý pre aplikácie balíka Microsoft Office , ako je napríklad aplikácia PowerPoint , Word a Excel . To vám umožní vytvárať vlastné nástroje , tlačidlá a ponuky , ktoré môžete použiť na prispôsobenie vašich aplikácií balíka Office . Napríklad , nie je nástrojom v programe Excel , ktorý umožňuje porovnať stĺpca a poukázať na rozdiely . Avšak , s niektorými kódu VBA , môžete vytvoriť užitočný nástroj pre práve tento účel . Veci , ktoré budete potrebovať
programe Excel 2007 alebo Excel 2010
Zobraziť ďalšie inštrukcie Cestuj 1

Kliknite na kartu " Vývojár " v programe Excel a potom kliknite na tlačidlo " Visual Basic " .

2

Kliknite na " Vložiť " . Kliknite na " modul " pre otvorenie nového okna modulu
3

Cut a vložte nasledujúci kód do okna : .

Sub CompareColumns ( )

Dim Column1 ako rozsah

Dim Column2 ako rozsah

" Vyzvať užívateľa k prvej rade stĺpce porovnať ...

" ---------- ------------------------------------------

Set Column1 = Application.InputBox ( " Vyberte prvý stĺpec pre porovnanie " , Type : = 8 )

" Skontrolujte , či je rozsah majú za predpokladu skladá iba z 1 stĺpca ...

Ak Column1.Columns . Gróf > 1 , potom

Do Column1.Columns.Count = 1

MsgBox " môžete vybrať iba jeden stĺpec "

Set Column1 = Application.InputBox ( " vyberte prvý stĺpec pre porovnanie " , Type : = 8 )

Loop

End If

" Vyzvať užívateľa k druhej rade stĺpci porovnať ...

' ----------------------------------------------- -----

Set Column2 = Application.InputBox ( " Vyberte druhý stĺpec pre porovnanie " , Type : = 8 )

" Skontrolujte , či je rozsah majú za predpokladu , tvorí iba 1 stĺpec ...

Ak Column2.Columns.Count > 1. Potom

Myslíte Do Column2.Columns.Count = 1

MsgBox " môžete vybrať iba jeden stĺpec "

Nastaviť Column2 = Application.InputBox ( " Vyberte druhý stĺpec pre porovnanie " , Type : = 8 )

Loop

End If

na 'Skontrolovať oba stĺpce rozsahy sú rovnakej veľkosti ...

" ----------------------------------- ----------

Ak Column2.Rows.Count < > Column1.Rows.Count Potom

Do Column2.Rows.Count = Column1.Rows . počet

MsgBox " druhý stĺpec musí mať rovnakú veľkosť ako prvý "

Set Column2 = Application.InputBox ( " Vyberte druhý stĺpec pre porovnanie " , Type : = 8 )

Loop

End If

" Ak boli vybrané celé stĺpce ( napr. $ AA ) , obmedzenie veľkosti rozsahu na

" UsedRange aktívneho listu . To zastaví bežnú kontrolu celého Column1.Rows.Count = 65536 Potom

Set Column1 = rozsah ( Column1.Cells ( 1 ) , Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ) )

Set Column2 = rozsah ( Column2.Cells ( 1 ) , Column2.Cells ( ActiveSheet.UsedRange.Rows.Count ) )

End If

'Vykonať porovnanie a nastaviť bunky , ktoré sú rovnaké pre žlté

" ---------------------------------------------- ------------------

Dim intCell ako dlho

intCell = 1 až Column1.Rows.Count

ak Column1.Cells ( intCell ) = Column2.Cells ( intCell ) Potom

Column1.Cells ( intCell ) . Interior.Color = vbYellow

Column2.Cells ( intCell ) . Interior.Color = vbYellow

End If

Ďalšie

End Sub
4

Stlačte " F5 " spustiť rutinu a porovnať stĺpce .

• Predchádzajúca strana: Ako previesť xls do KMZ 
• Ďalšia strana: Ako vytvoriť šírenie listy