Excel_VBA_manual

For j = 0 To m - 1
b(i * m + j + 1) = a(i, j)
Next j
Next i
c = m * n
Worksheets("upis podataka").Activate
d = Cells(7, 4)
If (d = 1) Then
z = sortpoljaV(b, c)
Worksheets("rez(dll)").Activate
For i = 0 To n - 1
For j = 0 To m - 1
Cells(i + x, j + y) = b(i * m + j + 1)
Cells(i + x, j + y).Interior.ColorIndex = 6
Next j
Next i
ElseIf (d = 2) Then
z = sortpoljaM(b, c)
Worksheets("rez(dll)").Activate
For i = 0 To n - 1
For j = 0 To m - 1
Cells(i + x, j + y) = b(i * m + j + 1)
Cells(i + x, j + y).Interior.ColorIndex = 6
Next j
Next i
Else: MsgBox ("Pogrešan unos podataka")
End If
End Sub
Pokretanje makroa sortdll( ) koji omogućava povezivanje Excela sa C++ pomoću DLL-a,
omogućeno je preko button objekta "sortiranje (DLL)" (Sl. 4.2.1).
57