Funkcia–OverStlpec (Zistí, či sú v stĺpci rovnaké hodnoty)

 

Dnešok môžem označiť za “excelovský” a to z dôvodu, že som sa po dlhej dobe celý deň hral s datami v Exceli. Ako to už býva u mňa zvykom – priniesol som celkom jednoduché, pre mňa dnes užitočné riešenie na otázku:

Sú v danom stĺpci rovnaké hodnoty?

Samozrejme, spôsoby ako si poradiť sú rôzne. Avšak ak máte povedzme 100 stĺpcov, sú filtre alebo pivotky časovo náročná záležitosť.  Čo by ste povedali na nasledujúce riešenie:

Postup je naozaj jednoduchý: Alt + F11 – otvoríte VBA editor. Kliknutím na Insert – New Module vložíte nový modul, do ktorého stačí skopírovať nasledujúci kód:

Function OverStlpec(Oblast As Range)
 
Dim i As Integer
 
UB = Oblast.Rows.Count
 
 
For i = 2 To UB
 
    If Oblast(i) <> Oblast(i - 1) Then
        OverStlpec = "Nezhoda"
        Exit Function
    End If
Next i
  
OverStlpec = "Zhoda"
 
End Function

Na záver môžete túto funkciu hravo využívať, pričom jej tvorba zabrala maximálne 20 sekúnd. Celý súbor vrátane príkladu si môžete stiahnuť kliknutím na Download obrázok. Jednoduché, prístupné aj pre VBA laika – tak snáď Vám to niekedy pomôže.