zxz 11.07.2017 23:33
Predmet:Re: VBA-excel stavljanje reda u matricu

Pa nisam znao pravu namjenu moze biti variant ili string.

Avko 12.07.2017 00:05
Predmet:Re: VBA-excel stavljanje reda u matricu

Dobro vidim da mislis na moju memooriju. Sutra cu staviti primjer pa nastaviti. Kad vidim ono for each odma me zaboli glava
A koja je razlika izmedu var=cells(1,1).value i var=cells(1,1)
Sto se mijenja kod var ako su celije int, string ili nesto trece?

Gjoreski 12.07.2017 01:28
Predmet:Re: VBA-excel stavljanje reda u matricu

Vidim opet se zanimavate sa XEKSELOm kako ga ja zovem.
I jas trenutno se zanimavam sa njega samo ovaj put je u pitajne iscitavajne iz njega po horizontala i verikala i na osnovu neki pravila stvarajne EAN13 Barcod.
Jos nisu mi jasnni neki od pravila koi sad proucavan pa mozda bice i neko pitajne za forumdzije.

A ovo oko dimenzionirajne na variabite je dobro da radis ako znas tocno sta se unosi u celijama zbog laksa obrada ti podate u buducnost.

zxz 12.07.2017 10:21
Predmet:Re: VBA-excel stavljanje reda u matricu

Da budem iskren neznam dali postoji razlika.
var = Cells(1, 1).Value
i
var = Cells(1, 1)

U vb-u svuda to postoji pa podatke iz nekog objekta mozes iscitati samim nazivom objekta ili pridodati value sto znaci vrijednost.

moje licno misljenje je ovo.
Kada su pravljeni objekti data je var objekta koji je klasa e sad klasa ima i svoje variable kao sto su bojaobjekta rednibroj itd ima toga.
E sad red je bio dodati i value odnosno vrijednost unesena u objekat stim sto iz samog naziva opet se cita vrijednost.
Citat:
Sto se mijenja kod var ako su celije int, string ili nesto trece?
Imas u helpu opisano koliko memeorije koja var zauzima.
Ako stavis variant onda ces potrositi 16 bita a mozda i vise zavisno jesul samo upisani brojevi ili slova i brojevi.
Jednostavno netreba se razbacivati ako hoces dobru app.

Avko 12.07.2017 11:39
Predmet:Re: VBA-excel stavljanje reda u matricu

    A            B    C
1    Jabuka        10    Zagreb    
2    Tresnja        5    Zagreb    
3    Visnja        ?    DugoSelo    
4    Sljiva        12    IvanicGrad
5    Banana        10    ?        
6    Kruska        4    ?        
7    Krastavac    5    Zagreb    

PreuzmiIzvorni kôd (Visual Basic):
  1. Sub proba()
  2.     'inicijalizacija varijabli
  3.    Dim aktivniList As String
  4.     Dim zadnjiRed As Long
  5.     Dim zadnjaKolona As Long
  6.     Dim red As Long
  7.     Dim kolona As Long
  8.    
  9.     'aktivni list
  10.    aktivniList = ActiveSheet.Name
  11.        
  12.     'pronadi zadnju kolonu i zadnji red
  13.    zadnjaKolona = traziZadnjuKolonu(aktivniList)
  14.     zadnjiRed = traziZadnjiRed(aktivniList, 1)
  15.     Range("A1").Select 'pozicioniraj na A1
  16.    
  17.     Dim redBackup()
  18.     Dim inputStr As String
  19.     Dim poruka As String
  20.     Dim nizCount As Long
  21.    
  22.     For red = 1 To zadnjiRed
  23.         For kolona = 1 To zadnjaKolona
  24.             If Cells(red, kolona) = "?" Then
  25.                 'stavljanje reda u redBackup niz
  26.                redBackup = Range(Cells(red, 1), Cells(red, zadnjaKolona)) ' .Value
  27.                For nizCount = 0 To UBound(redBackup)
  28.                     poruka = poruka & redBackup(nizCount) & " " 'GRESKA
  29.                Next nizCount
  30.                
  31. ponoviUnos:     inputStr = InputBox(poruka, "UNOS PODATAKA")
  32.                
  33.                 If StrPtr(inputStr) = 0 Then
  34.                     'kliknut je prekid
  35.                    MsgBox ("kliknuto je ponisti" & vbNewLine & "pokreni ponovo unos")
  36.                     GoTo ponoviUnos
  37.                 Else
  38.                     'podaci uneseni
  39.                    'provjeri ispravnost podataka
  40.                    ispravno = MsgBox(poruka, vbYesNoCancel + vbApplicationModal + vbDefaultButton1, "OVO JE ISPRAVNO??")
  41.                         Select Case ispravno
  42.                             Case vbCancel
  43.                                 'ako je pritisnut Cancel, izadi iz procedure
  44.                                Exit Sub
  45.                             Case vbYes
  46.                                 'MsgBox ("PODACI SU ISPRAVNI")
  47.                                'upisi podatke u red
  48.                                Cells(red, kolona) = inputStr
  49.                             Case vbNo
  50.                                 MsgBox ("PODACI NISU ISPRAVNI")
  51.                                 'vrati podatke i ponovi unos
  52.                                Range(Cells(1, 1), Cells(1, zadnjaKolona)) = redBackup
  53.                                 GoTo ponoviUnos
  54.                         End Select
  55.                 End If
  56.             End If
  57.         Next kolona
  58.     Next red
  59. End Sub
  60.  
  61. Function traziZadnjiRed(ImeSita As String, kolona)
  62.     Dim Zadnji As Long
  63.     Dim ws As Worksheet
  64.    
  65.     Set ws = Sheets(ImeSita)
  66.     With ws
  67.         Zadnji = .Cells(.Rows.Count, kolona).End(xlUp).Row
  68.     End With
  69.     traziZadnjiRed = Zadnji
  70. End Function
  71.  
  72. Function traziZadnjuKolonu(ImeSita As String)
  73.     Dim Zadnji As Long
  74.     Dim ws As Worksheet
  75.     Dim zadnjaCelija As Range
  76.    
  77.     Set ws = Sheets(ImeSita)
  78.    
  79.     Set zadnjaCelija = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
  80.                                     LookAt:=xlPart, SearchOrder:=xlByColumns, _
  81.                                     SearchDirection:=xlPrevious, MatchCase:=False)
  82.    
  83.     Zadnji = zadnjaCelija.Column
  84.     traziZadnjuKolonu = Zadnji
  85. End Function
Prilozi:
proba_niz_inputbox_msgbox.rar (Velicina datoteke:17.04 KB)

Avko 11.07.2017 14:57
Predmet:VBA-excel stavljanje reda u matricu

u petlji prolazimo preko redova i mijenjamo podatke.

kada promijenimo podatak u nekoj celiji pita nas na kraju petlje u input boxu zelimo li nastaviti i
ako odgovorimo sa NE onda bi nam trebao vratiti taj red iz matrice na red koji smo trenutno mijenjali

pitanje:
kako staviti cijeli red u matricu i poslije ga vratiti nazad prema potrebi?

Red je npr. Red=1 a broj kolona=12

zxz 11.07.2017 22:57
Predmet:Re: VBA-excel stavljanje reda u matricu

PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2. Dim Niz() As Integer
  3. Function NizCelija(rng As Range)
  4. Dim BrojCelija As Integer
  5. Dim I As Integer
  6.  
  7. ReDim Niz(rng.Count)
  8.  
  9. For Each rng In rng.Cells
  10. I = I + 1
  11. Niz(I) = rng.Value
  12. Next rng
  13. End Function
  14.  
  15. Function Vrati(RedBrCelije As Integer)
  16. Vrati = Niz(RedBrCelije)
  17. End Function

ovo bi lijepo bilo napraviti klasu.

Avko 11.07.2017 23:25
Predmet:Re: VBA-excel stavljanje reda u matricu

Zasto niz= integer , oce to raditi? Celije mogu imati bilo koju vrijednost. Mozda bi niz trebso biti variant?
A koja je razlika izmedu ovoga: var=cells(1,1) i ovogs var=cells(1,1).vari

zxz 13.07.2017 20:08
Predmet:Re: VBA-excel stavljanje reda u matricu

I ovo bi moglo ici u onu temu sa funkcijama samo bi trebalo malo i mopisati sta radi i koja je svrha.

Avko 14.07.2017 10:26
Predmet:Re: VBA-excel stavljanje reda u matricu

Citiraj zxz:
I ovo bi moglo ici u onu temu sa funkcijama samo bi trebalo malo i mopisati sta radi i koja je svrha.

jos da rijesim GRESKU iz 28 reda, onda bi moglo ici