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“.

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.