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 na www.krstarica.com