Hteo bi da popunjavam polja u Sheetu tako da se sve vreme, dok Timer1 ne zaustavim, u novi red upisuje svaka nova kombinacija ovih brojeva i da ostanu upamcene prethodne.
Ovaj kod mi svaki put kad se upisuje nova kombinacija brojeva otvara novi Sheet,a trebalo bi da sve te kombinacije upise u jedan Sheet jednu ispod druge.
Code:
Private Sub Timer1_Timer()
Dim Broj(4) As Integer
Dim i As Integer
For i = 1 To 4
Broj(i) = Int(Rnd * 20) + 1
Next i
Set x = CreateObject("Excel.Sheet")
x.Application.Workbooks.Open "C:\Book1.xls"
x.Application.Visible = True
x.Application.Cells(1, 1).Value = Broj(1)
x.Application.Cells(1, 2).Value = Broj(2)
x.Application.Cells(1, 3).Value = Broj(3)
x.Application.Cells(1, 4).Value = Broj(4)
End Sub
Private Sub Timer1_Timer()
Dim Broj(4) As Integer
Dim i As Integer
For i = 1 To 4
Broj(i) = Int(Rnd * 20) + 1
Next i
Set x = CreateObject("Excel.Sheet")
x.Application.Workbooks.Open "C:\Book1.xls"
x.Application.Visible = True
x.Application.Cells(1, 1).Value = Broj(1)
x.Application.Cells(1, 2).Value = Broj(2)
x.Application.Cells(1, 3).Value = Broj(3)
x.Application.Cells(1, 4).Value = Broj(4)
End Sub