iCentar » Forum » Racunari i oprema » Softver i operativni sistemi » Ms office » ubacivanje prazne celije radi uskladivanja dvije kolone

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → ubacivanje prazne celije radi uskladivanja dvije kolone

Pretrazi
Tim
Registriraj se
Vazni alati
Razno. veze
- Oznaci forume kao procitane
- Smjernice
Aktivne teme ...
- u posljednja 24 sata
- od moje posljednje posjete
Vijesti (RSS, ...)
- RSS 2.0
- RSS 1.0
- OPML
- Klipfolio
- Atom 1.0
Prijavi se

Odgovori na temu

Korisnicko ime:

Adresa e-poste:

Sigurnosna provjera:
Unesite znakove na slici. Ovo bi trebalo izbjeci nezeljenu postu.

Predmet:

Objavi:

Pomoc

Boja

Velicina

vise smajlica

[quote=Avko]ok , probacu kako radi kad stignem, a sada jedno pitanje
Vidim da ti prvo stavis funkciju, a onda kod. Kod zxz je obrnuto . On stavlja funkcije na kraju. Mozda je tvoj nacin bolji jer prvo imas funkcije na uvid pa pregledas kod, a mozda je stvar navike kako se tko navikne. Dobro, to nije pitanje to je komentar.

1. ono for m=1 to 5 je ukupno u nizu , imamo sljiva,visnja,tresnja,breskva,marelica 5 stvari. Znaci ja ako imam vise tih u nizu onda stavim veci broj, jel tako?

2. for i=1 to 40 je vjerojatno brojac o kojem si govorio. Malo kad cu isprobavati kod , ali za sada pretpostavljam da bi trebao broj biti puno veci zbog pomicanja celija prema dole?

[code=vb]Public Function Unizu(S As Range) As Boolean

Dim Nizz As Range
Set Nizz = Range("M16", Range("M16").End(xlDown)) 'gde su celije za proveru

Unizu = False

For Each st In Nizz.Cells
  If (S = st) Then
  Unizu = True
  GoTo kraj
  End If
Next st
kraj:
End Function

Public Sub slozi()

Dim r As Range
Dim uzorak As Range
Dim selekcija As Range
Dim pocetna As Range

Set pocetna = Range("B2") 'odakle krece
Set uzorak = Range("A2") 'prva celija sa kojom uporedjujemo

For m = 1 To 5
    Set r = pocetna
    For i = 1 To 40
        If Unizu(r) Then     'proveravamo da li se vocka nalazi u grupi za slaganje

Do Until r = uzorak
                Set selekcija = Range(r, r.End(xlDown)) 'pomeramo celiju i sve povezane
                selekcija.Select                        'ispod nje za po jedno mesto na dole
                Selection.Cut
                ActiveCell.Offset(1, 0).Range("A1").Select
                ActiveSheet.Paste
                Set uzorak = uzorak.Offset(1, 0)         'pa uzimamo sledecu ispod za uporedjivanje
                                            'i tako dok ne poklopimo sa prvom kolonom
            Loop
        End If

Set r = r.Offset(1, 0)
        Set uzorak = uzorak.Offset(1, 0)

Next i
    Set pocetna = pocetna.Offset(0, 1) 'prelazak na sledecu kolonu
    Set uzorak = Range("A2")
Next m
End Sub
[/code]

ovo Offset mi je strano, ali o tome cemo drugi puta, za sada cu to samo prepisati bez pameti
hvala.[/quote]

Povecaj velicinu · Smanji velicinu Provjeri duzinu

Opcije:

Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Prilozi:

Upravljanje prilozima
Mozete priloziti 3 datoteke!

Posljednjih 15 postova u ovoj temi

Avko (09.01.2017 20:05):

Predmet: Re: ubacivanje prazne celije radi uskladivanja dvije kolone

ovako detaljno mi jos nitko nije objasnio. hvala jos jednom preostaje mi malo igranja sa kodom. ono za funkcije da se mogu staviti u modul i pozivati me narocito zainteresiralo. do sada sam kopirao finkciju zadnjiRed () u svaki modul i pozivao. sada cu probati stavljati funkcije u jedan modul mada se bojim da se na kraju necu snaci u tome svemu

dex (09.01.2017 17:53):

Predmet: Re: ubacivanje prazne celije radi uskladivanja dvije kolone

Citat:

ono for m=1 to 5 je ukupno u nizu , imamo sljiva,visnja,tresnja,breskva,marelica 5 stvari. Znaci ja ako imam vise tih u nizu onda stavim veci broj, jel tako?

netacno, tu se prebacuje u sledecu kolonu, trebalo je da stoji od 1 do 3 posto imas tri kolone (kolonu A ne racunamo posto ona sluzi kao uzorak za slaganje), a ako ih ima vise, onda u kodu promeniti koliko ih ima.

Citat:

2. for i=1 to 40 je vjerojatno brojac o kojem si govorio. Malo kad cu isprobavati kod , ali za sada pretpostavljam da bi trebao broj biti puno veci zbog pomicanja celija prema dole?

Tacno. Nisam znao kako da prekinem kod, pa sam stavio brojac. ako postavis broj koji je jednak (ili veci) od broja redova sigurno prolazi

Citat:

Vidim da ti prvo stavis funkciju, a onda kod. Kod zxz je obrnuto .

Sasvim je svejedno. Funkcija se poziva iz procedure. Mogla je cak i da se stavi u drugi modul i opet da se poziva izprocedure (naravno, mora da bude public)

Funkcija moze da radi i nezavisno, a sluzi da proveri da li se celija nalazi u zadatom nizu. Vraca TRUE ili FALSE u zavisnosti od toga. Ovde u kodu stoji M16 jer je to prva celija niza, a nizom se smatra sve ispod nje do prve prazne. Znaci mozes ispod da dodas jos vockica, funkcija i dalje radi, a sama funkcija moze da radi i nezavisno ako zelis da proveris da li sadrzaj neke celije pripada nizu.

A da pojasnimo kako radi procedura
Krecemo od celije B2, proveravamo da li pripada nizu. Ako ne pripada ne radimo nista, prelazimo na celiju ispod.
Ako pripada proveravamo da li se njen sadrzaj poklapa sa celijom levo u koloni A.
Ako se poklapa opet ne radimo nista, idemo na sledecu ispod.
Ako se ne poklapa selektujemu nju i sve ispod nje do prve prazne i pomeramo za jedno mesto na dole, i tako sve dok je ne poklopimo sa odgovarajucom iz kolone A. Moramo svaki put iznova da selektujemo, jer smo pomeranjem nadole mozda zalepili za oblast ispod pa nem se oblast koju pomeramo povecala.

Citat:

ovo Offset mi je strano, ali o tome cemo drugi puta, za sada cu to samo prepisati bez pameti

Offset pomera izabranu celiju ili oblast prvi argument za koliko redova nadole, drugi za koliko kolona udesno
ako stavis sa minis pomera nagore, odnosno ulevo

Avko (09.01.2017 11:43):

Predmet: Re: ubacivanje prazne celije radi uskladivanja dvije kolone

ok , probacu kako radi kad stignem, a sada jedno pitanje
Vidim da ti prvo stavis funkciju, a onda kod. Kod zxz je obrnuto . On stavlja funkcije na kraju. Mozda je tvoj nacin bolji jer prvo imas funkcije na uvid pa pregledas kod, a mozda je stvar navike kako se tko navikne. Dobro, to nije pitanje to je komentar.

1. ono for m=1 to 5 je ukupno u nizu , imamo sljiva,visnja,tresnja,breskva,marelica 5 stvari. Znaci ja ako imam vise tih u nizu onda stavim veci broj, jel tako?

2. for i=1 to 40 je vjerojatno brojac o kojem si govorio. Malo kad cu isprobavati kod , ali za sada pretpostavljam da bi trebao broj biti puno veci zbog pomicanja celija prema dole?

PreuzmiIzvorni kôd (Visual Basic):

Public Function Unizu(S As Range) As Boolean
Dim Nizz As Range
Set Nizz = Range("M16", Range("M16").End(xlDown)) 'gde su celije za proveru
Unizu = False
For Each st In Nizz.Cells
If (S = st) Then
Unizu = True
GoTo kraj
End If
Next st
kraj:
End Function
Public Sub slozi()
Dim r As Range
Dim uzorak As Range
Dim selekcija As Range
Dim pocetna As Range
Set pocetna = Range("B2") 'odakle krece
Set uzorak = Range("A2") 'prva celija sa kojom uporedjujemo
For m = 1 To 5
Set r = pocetna
For i = 1 To 40
If Unizu(r) Then 'proveravamo da li se vocka nalazi u grupi za slaganje
Do Until r = uzorak
Set selekcija = Range(r, r.End(xlDown)) 'pomeramo celiju i sve povezane
selekcija.Select 'ispod nje za po jedno mesto na dole
Selection.Cut
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Set uzorak = uzorak.Offset(1, 0) 'pa uzimamo sledecu ispod za uporedjivanje
'i tako dok ne poklopimo sa prvom kolonom
Loop
End If
Set r = r.Offset(1, 0)
Set uzorak = uzorak.Offset(1, 0)
Next i
Set pocetna = pocetna.Offset(0, 1) 'prelazak na sledecu kolonu
Set uzorak = Range("A2")
Next m
End Sub

ovo Offset mi je strano, ali o tome cemo drugi puta, za sada cu to samo prepisati bez pameti
hvala.

dex (06.01.2017 23:19):

Predmet: Re: ubacivanje prazne celije radi uskladivanja dvije kolone

Na ovom principu bi moglo da profinkcionise
Nisam imao ideju kako da prekinem izvrsavanje u koloni, pa sam postavio brojac

dex (06.01.2017 16:29):

Predmet: Re: ubacivanje prazne celije radi uskladivanja dvije kolone

Malo jasnije. Ipak mislim da je tresnja iz B4 trebala tu ostati jer je vec bila uz tresnju u A4, bar je tako po algoritmu koji mislim primeniti.
Kako sam razumeo kolonu A ne diramo, vec po njoj slazemo ostale?

Avko (05.01.2017 23:02):

Predmet: Re: ubacivanje prazne celije radi uskladivanja dvije kolone

Citiraj dexxxl:

Interesantno.
Koliko sam shvatio kolona A sluzi kao mustra za redjanje.
Imas i voce koga nema u mustri
Vocke kojih nema u mustri ostaju tu gde jesu, ne diraju se
Nije mi jasno zbog cega su tresnje iz B4 otisle u B10 a nisu ostale tu gde su

morao se postivat niz tresnja, breskva, marelica to je prvi sljedeci niz koji odgovara prvoj koloni

mozda bi bilo ovako lakse:

excel, neslozeno , slozeno
nije stala tabla u post pa sam prikvacio

dex (05.01.2017 20:27):

Predmet: Re: ubacivanje prazne celije radi uskladivanja dvije kolone

Interesantno.
Koliko sam shvatio kolona A sluzi kao mustra za redjanje.
Imas i voce koga nema u mustri
Vocke kojih nema u mustri ostaju tu gde jesu, ne diraju se
Nije mi jasno zbog cega su tresnje iz B4 otisle u B10 a nisu ostale tu gde su

Avko (05.01.2017 14:19):

Predmet: ubacivanje prazne celije radi uskladivanja dvije kolone

	A	B	C	D
1	borovnica	borovnica	borovnica	borovnica
2	brusnica	brusnica	sipak	brusnica
3	naranda	mandarina	jabuka
4	tresnja	tresnja	dunja	sljiva
5	visnja	breskva	sljiva	visnja
6	sljiva	marelica	visnja	tresnja
7			tresnja	breskva
8	sljiva	marelica	breskva	marelica
9	visnja	breskva	marelica
10	tresnja	tresnja		marelica
11	breskva	visnja	marelica	breskva
12	marelica	sljiva	breskva	tresnja
13			tresnja	visnja
14	marelica	sljiva	visnja	sljiva
15	breskva	visnja	sljiva
16	tresnja	tresnja		sljiva
17	visnja	breskva	sljiva	visnja
18	sljiva	marelica	visnja	tresnja
19			tresnja	breskva
20	sljiva	marelica	breskva	marelica
21	visnja	breskva	marelica
22	tresnja	tresnja		marelica
23	breskva	visnja	marelica	breskva
24	marelica	sljiva	breskva	tresnja
25			tresnja	visnja
26	marelica		visnja	sljiva
27	breskva		sljiva
28	tresnja
29	visnja
30	sljiva

ubacivanjem praznih kucica treba uskladiti te 4 kolone tako da se podudara niz:
sljiva
visnja
tresnja
breskva
marelica

marelica
breskva
tresnja
visnja
sljiva

rezultat nakon obrade treba izgledati ovako:

	A	B	C	D
1	borovnica	borovnica	borovnica	borovnica
2	brusnica	brusnica	sipak	brusnica
3	naranda	mandarina	jabuka
4	tresnja		dunja
5	visnja
6	sljiva
7
8	sljiva		sljiva	sljiva
9	visnja		visnja	visnja
10	tresnja	tresnja	tresnja	tresnja
11	breskva	breskva	breskva	breskva
12	marelica	marelica	marelica	marelica
13
14	marelica	marelica	marelica	marelica
15	breskva	breskva	breskva	breskva
16	tresnja	tresnja	tresnja	tresnja
17	visnja	visnja	visnja	visnja
18	sljiva	sljiva	sljiva	sljiva
19
20	sljiva	sljiva	sljiva	sljiva
21	visnja	visnja	visnja	visnja
22	tresnja	tresnja	tresnja	tresnja
23	breskva	breskva	breskva	breskva
24	marelica	marelica	marelica	marelica
25
26	marelica	marelica	marelica	marelica
27	breskva	breskva	breskva	breskva
28	tresnja	tresnja	tresnja	tresnja
29	visnja	visnja	visnja	visnja
30	sljiva	sljiva	sljiva	sljiva

Razno. veze

Aktivne teme ...

Vijesti (RSS, ...)

Kontakt

Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 37 am.

Centar za edukaciju-BiH

Glavni meni

Forumi

Linkovi

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → ubacivanje prazne celije radi uskladivanja dvije kolone

Odgovori na temu

Posljednjih 15 postova u ovoj temi

Prijavi se

Izdvojeno