Excel_VBA_manual
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Next i<br />
End Sub<br />
Next j<br />
Cells(i + x, j + y) = a(i, j)<br />
Cells(i + x, j + y).Interior.ColorIndex = 6<br />
Cijeli postupak sortiranja pomoću datoteka sažet je u jednoj proceduri (svedat) koja obavlja sve<br />
gore navedene postupke:<br />
<br />
<br />
<br />
ispisuje podatke iz <strong>Excel</strong>ove tablice u datoteku,<br />
ovisno o izboru sortiranja poziva programe koji sortiraju podatke (veci.exe ili manji.exe),<br />
nakon što su podaci sortirani, ĉita ih iz datoteke i smješta u <strong>Excel</strong>ovu tablicu.<br />
Sub svedat()<br />
Dim vrijednost<br />
Dim d As Integer<br />
Worksheets("upis podataka").Activate<br />
d = Cells(7, 4)<br />
ispisudatoteku<br />
If (d = 1) Then<br />
vrijednost = Shell("C:\veci.EXE", 1)<br />
ElseIf (d = 2) Then<br />
vrijednost = Shell("C:\manji.EXE", 1)<br />
Else: MsgBox ("Pogrešan unos podataka")<br />
End If<br />
procitajizdat<br />
End Sub<br />
Buton objektu "sortiranje(dat)" (Sl. 4.2.1) pridružen je makro svedat() koji pokreće i koordinira<br />
cijeli postupak sortiranja podataka matrice pomoću datoteka.<br />
Općenito se povezivanje <strong>Excel</strong>a sa izvršnom datotekom napisanom u Visual C++ preko<br />
tekstualnih datoteka može shematski prikazati kao na Sl. 4.2.4<br />
Microsoft<br />
Microsoft<br />
<strong>Excel</strong><br />
<strong>Excel</strong><br />
Datoteka (.txt)<br />
(podaci)<br />
Datoteka (.txt)<br />
(rješenje)<br />
Izvršna datoteka<br />
(.exe)<br />
Izvršna<br />
u Visual<br />
datoteka<br />
C++<br />
(.exe) u Visual C++<br />
Sl. 4.2.4 Povezivanje <strong>Excel</strong>a sa C++ pomoću datoteka<br />
52