[es] - Excel - selektovanje

mrkii

Član broj: 60791
Poruke: 520
*.dynamic.sbb.rs.

+843 Profil

^{01.06.2011. u 21:32 - pre 157 meseci}

Kako automatski selektovati da bude kao na slici (svaki osmi red, npr. i prvih npr. pet kolona)?
Naravno moj dokument ima "beskonacno" redova :)

Hvala unapred :)

Prikačeni fajlovi

Clip_9.jpg - 112.6k

Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 838
*.adsl.verat.net.

+166 Profil

Re: Excel - selektovanje

^{01.06.2011. u 22:53 - pre 157 meseci}

Možeš da u zasebnu kolonu ubaciš formulu '=if(mod(row()-1);8)=0;"*";"")'. Formulu prevuci nadole. Ova formula će u svaki osmi red staviti zvezdicu. Kasnije izfiltriraš svoje podatke koristeći zvezdicu kao argument. Izfiltrirane redove selektuješ i dalje radiš šta ti treba.

Drugi način je da iskoristiš ovaj makro. Prvo uneseš u M1 koji red treba da bude selektovan, a u N1 uneseš koliko kolona. Onda pokreneš makro.

Sub Selekcija()
Dim lngSvakiRed As Long
Dim lngBrojKolona As Long
Dim rngRed As Range
Dim rngSelekcija As Range
Dim i As Long

If Not IsNumeric(Range("m1")) Or Not IsNumeric(Range("n1")) Then
MsgBox "Morate uneti 'svaki red' u m1, a broj kolona u n1."
Exit Sub
End If

lngSvakiRed = Range("m1").Value
lngBrojKolona = Range("n1").Value

Set rngSelekcija = Range(Cells(1, 1), Cells(1, lngBrojKolona))

For i = 2 To 300
If (i - 1) Mod lngSvakiRed = 0 Then
Set rngRed = Range(Cells(i, 1), Cells(i, lngBrojKolona))
Set rngSelekcija = Union(rngSelekcija, rngRed)
End If
Next i

rngSelekcija.Select
End Sub

_{[Ovu poruku je menjao Brodoplovac dana 02.06.2011. u 00:17 GMT+1]}

Prikačeni fajlovi

01.06.png - 34.1k

Selekcija svakog reda.xls - 39.5k

Odgovor na temu

mrkii

Član broj: 60791
Poruke: 520
*.dynamic.sbb.rs.

+843 Profil

Re: Excel - selektovanje

^{02.06.2011. u 09:57 - pre 157 meseci}

Hvala puno na odgovoru.
Resio sam problem :)

Ipak, ne znam zasto mi ne uspreva prva metoda.
Kada kopiram formulu i prevucem na dole ne dobijam zvezdice.
U cemu je problem?

Prikačeni fajlovi

capture1.jpg - 132.27k

Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 838
*.adsl.verat.net.

+166 Profil

Re: Excel - selektovanje

^{02.06.2011. u 10:16 - pre 157 meseci}

Zato što ti je podatak u C koloni (F kolona na mojoj slici) formatiran kao tekst. Podatak mora biti formatiran kao "Number" da bi formula bila prepoznata.

Prikačeni fajlovi

02.06.png - 53.88k

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Excel - selektovanje

^{02.06.2011. u 11:07 - pre 157 meseci}

Citat:

mrkii: Ipak, ne znam zasto mi ne uspreva prva metoda.
Kada kopiram formulu i prevucem na dole ne dobijam zvezdice.
U cemu je problem?

zato što

=IF(MOD(ROW()-1);8)=0;"*";"")

nije isto što i

=IF(MOD(ROW()-1;8)=0;"*";"")

ima jedna zagrada viška

Odgovor na temu