[es] - Popunjavanje tabele u Excelu

zormar

Član broj: 129240
Poruke: 176
*.adsl-1.sezampro.yu.

Profil

^{25.09.2008. u 15:20 - pre 190 meseci}

Bilo je puno price o Excelu ali ovo ne mogu da uradim, pa ako je neko voljan da pomogne bilo bi dobro.
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

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.185.*

+1 Profil

Re: Popunjavanje tabele u Excelu

^{25.09.2008. u 17:29 - pre 190 meseci}

Ovo?

Code:

Dim x As Object
Dim BrojReda As Integer

Private Sub Form_Load()

     Set x = CreateObject("Excel.Sheet")
     x.Application.Workbooks.Open "C:\Book1.xls"
     BrojReda = 1

     Randomize Timer ' - Ovo dodajes da ti se ne bi svaki put ponavljali isti "Random" brojevi.

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

     BrojReda = BrojReda + 1

     x.Application.Visible = True
     x.Application.Cells(BrojReda, 1).Value = Broj(1)
     x.Application.Cells(BrojReda, 2).Value = Broj(2)
     x.Application.Cells(BrojReda, 3).Value = Broj(3)
     x.Application.Cells(BrojReda, 4).Value = Broj(4)

End Sub

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl-1.sezampro.yu.

Profil

Re: Popunjavanje tabele u Excelu

^{25.09.2008. u 17:53 - pre 190 meseci}

Da,to je to.
Hvala ti

Odgovor na temu