ej.. jel mi mozes dati msn pa da ti fino sve objasnim ??? bez zezancije
Prvo ova tema je pogresna,Programiranje u Excelu ne znaci koristiti FORMULE vec programirati u VB-a.
Resenje tvoga problema:
ti imas upisanu matricu na nekom od radnih listova sa 12redova i 30 kolona.
a da zaboravih da te pitam jel hoces da prvo ispise niz sa 1 red pa 2 red , ili da ide 1 kolona pa 2 kolona .Te rezultate treba da ispisuje u celije.
12*30= 360
Posto EXCEL-ov list ima 65536 redova i 256 kolona ti jedino ove rezultate mozes prikazati u jednom nizu VERTIKALNO, na primer: od celije A1 pa do celije A360.
VB-code za tvoj problem. ( tvoja matrica je upisana u celije od A1:AD12 )
'
'**********************************************************************************************************************
Dim i as integer
Dim j as integer
DIm brojac as integer
'
For i=1 to 12
For j=1 to 30
brojac=brojac+1
'
ThisWorkbook.Worksheet(1).Cells(13 + brojac, 1).value=ThisWorkbook.Worksheet(1).Cells(i,j).value
'
Next
Next
'
'**********************************************************************************************************************
U KODU ISPOD SU DODATE DVE PETLJE KOJE NAM GENERISU RADNOM BOJEVE-SLUCAJNE BROJEVE IZMEDJU 1i256 I TE VREDNOSTI UPISUJU U CELIJE A POSTO ISPISE MATRICU 12x30 ONDA CE POMOCU DRUGE DVE PETLJE CITAJU VREDNOSTI U UPISANIM CELIJAMA I ISPISUJU KAO NIZ VERTIKALNO POCEV OD CELIJE A14 pa nadole
PUN VB CODE
Option Explicit
Sub MATRICA12x30()
'************************************************************************************************************************
' Uradio: Ivan Stojic
' e-mail:
unisoft@verat.net
'************************************************************************************************************************
Dim i As Integer
Dim j As Integer
Dim brojac As Integer
'
For i = 1 To 12
For j = 1 To 30
'
ThisWorkbook.Worksheets(1).Cells(i, j).Value = Int((256 * Rnd))
'
Next
Next
'
For i = 1 To 12
For j = 1 To 30
brojac = brojac + 1
'
ThisWorkbook.Worksheets(1).Cells(13 + brojac, 1).Value = ThisWorkbook.Worksheets(1).Cells(i, j).Value
'
Next
Next
'
End Sub
'
postavio sam ti attach uz ovu poruku.Samo ekstenziju .txt promeni u .xls.Posto KRSTARICA dozvoljaca samo postavljanje fajlova sa ekstenzijama .txt,.jpg,.bmp ...
morao sa da promenim ekstenziju Excel-ovog fajla u txt,