Excel_VBA_manual

Nakon što su navedeni osnovni podaci o matrici, potrebno je napisati i njene elemente. Unos
elemenata matrice može biti napravljen ruĉno ili pomoću makroa unesipodatke( ) napisanog u
VBA koji u zadani prostor matrice upisuje sluĉajno odabrane brojeve. Makro unesipodatke( )
pridružen je button objektu "unos podataka matrice" (Sl. 4.1.), a izgleda ovako:
Dim i, j, n, m, x, y As Integer
Sub unesipodatke()
ucitaj
Range("A10:aZ60").Clear
For i = x To (x + n - 1)
For j = y To (y + m - 1)
Cells(i, j).Interior.ColorIndex = 17
Cells(i, j) = Int(100 * Rnd())
Next j
Next i
End Sub
Podaci: n – broj redaka matrice, m – broj stupaca matrice, x – poĉetni red matrice, y – poĉetni
stupac matrice su podaci koji se uĉitavaju pomoću potprograma ucitaj( ):
Sub ucitaj()
Worksheets("upis podataka").Activate
n = Cells(2, 4)
m = Cells(3, 4)
x = Cells(4, 4)
y = Cells(5, 4)
End Sub
U sljedećem koraku se podaci iz Excel tablice smještaju u polje podataka:
Sub poljeizExcela()
ucitaj
' podaci iz Excel tablice koje treba sortirati
For i = x To (x + n - 1)
For j = y To (y + m - 1)
a(i - x, j - y) = Cells(i, j)
Next j
Next i
End Sub
Zajedno sa podacima o veliĉini matrice (n, m) ispisuje se polje podataka matrice u datoteku
"izlazpod.txt" koja se kreira pomoću naredbe open.
Sub ispisudatoteku()
Dim broj As Integer
poljeizExcela
'ispis podataka u datoteku izlazpod
48