Excel - Brza izmena podataka u ćelijama

Zamislite recimo da vam se javi potreba da zbog nekih zakonskih izmena morate da napravite izmene u ćelijama velike Excel tabele. Ako recimo imate tabelu sa 5000 slogova (ćelija), trebaće vam sigurno dva dana da izmenite vrednost u svakoj ćeliji. Ipak, zahvaljujući VBA programskom okruženju unutar MS Office-a, ova operacija može da se izvrši za vrlo kratko vreme, u roku od nekoliko sekundi.

U sledećem "parčetu" VBA programskog koda videćete kako možete prethodni problem da rešite za samo pet sekundi:

Option Explicit

Sub Dodaj_A()
    Dim Poslednja, Z As Variant, X As Variant
    Sheets("Sheet1").Select     
                      {ovde unesite naziv vaseg lista}
    Poslednja = ActiveCell.SpecialCells(xlLastCell).Address
    ActiveSheet.Range(Cells(1, 1), Poslednja).Select
    Z = Selection.Address   
                     {uzimanje adrese}
        For Each X In ActiveSheet.Range(Z)  
                     {petlja ...radi sve dok je...}
            If Len(X) > 0 Then		
                     {pronalazi celiju sa odredjenim sadrzajem} 
                X.FormulaR1C1 = Chr(65) & X.Text    
                     {65 je kodna oznaka za karakter 'A'}
            Else
                X.FormulaR1C1 = ""  
                     {ukoliko je celija prazna, ne vrsi se promena }
            End If
        Next
End Sub

Snimite ovaj programski kod kao novi makro i pokrenite ga. Makro Dodaj_A u svaku ćeliju će nadograditi postojeću vrednost sa karakterom "A". Kodna oznaka 65 rezervisana je za veliko latinično slovo "A".