[es] - Pozicija ćelije

Me_De

Član broj: 127492
Poruke: 10
109.175.40.*

Profil

^{12.02.2010. u 15:57 - pre 172 meseci}

Pozdravljam,

Apsolutni sam početnik u Excelu pa bi mi dobro došla mala pomoć.
Pravim neku Custom funkciju koja bi trebala da učita 8 parametara, odnosno 2x4 parametara.
Radi se o poređenju zapremine a imam u jednom redu naziv tijela, dužinu, širinu i visinu.
Funkcija je zamišljena tako da označim samo naziv tijela a da ostale podatke učitam kao kolona+1, ..+2, ..+3 zbog toga da nemoram
svaki parametar označavati u onom prozoru posebno.
Eh sad, moje pitanje je kako da dođem do podatka o lokaciji tj. br. kolone i br. reda od izabrane ćelije.

Hvala

Odgovor na temu

Take 5

Član broj: 200551
Poruke: 1423
93.86.73.*

+12 Profil

Re: Pozicija ćelije

^{12.02.2010. u 20:23 - pre 172 meseci}

Citat:

Me_De: .... Eh sad, moje pitanje je kako da dođem do podatka o lokaciji tj. br. kolone i br. reda od izabrane ćelije.

Auuu.... moraćeš prvo bar nešto da pročitaš o samom Excelu!
Ovde ne pomaže "provaljivanje kako radi" nije to igrica nego ozbiljan program za tabelarne proračune.

"Take Five" is the famous jazz piece written by Paul Desmond and performed by The Dave Brubeck Quartet. It is famous for its distinctive saxophone line and use of the unusual quintuple (5/4) time, from which its name is derived.

Take Five (1966)

Take Five by Al Jarreau 1976

Prikačeni fajlovi

d7.jpg - 25.92k

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Pozicija ćelije

^{12.02.2010. u 20:27 - pre 172 meseci}

Citat:

Me_De: Apsolutni sam početnik u Excelu pa bi mi dobro došla mala pomoć.

pogledaj link na tutorial ovdje http://www.elitesecurity.org/t163493-Excel-funkcije-radnog-lista

Odgovor na temu

Me_De

Član broj: 127492
Poruke: 10
92.36.204.*

Profil

Re: Pozicija ćelije

^{13.02.2010. u 00:38 - pre 172 meseci}

Mozda se nisam dobro izrazio, sorry, sve je to u VBA sto meni treba, u modulu,
funkcija koja mi kaze red i kolonu izabrane celije u prozoru od custom fukcije
pa da ja mogu koristiti taj podatak za celiju, red isti, samo kolona+1

Odgovor na temu

Take 5

Član broj: 200551
Poruke: 1423
79.101.183.*

+12 Profil

Re: Pozicija ćelije

^{13.02.2010. u 07:38 - pre 172 meseci}

A da pogledaš u help (nije mi baš najjasnije šta ti to tražiš)?

Citat:

How to: Refer to Cells Relative to Other Cells

A common way to work with a cell relative to another cell is to use the Offset property. In the following example, the contents of the cell that is one row down and three columns over from the active cell on the active worksheet are formatted as double-underlined.

Code:
Sub Underline()
ActiveCell.Offset(1, 3).Font.Underline = xlDouble
End Sub

Note
You can record macros that use the Offset property instead of absolute references. On the Tools menu, point to Macro, click Record New Macro, click OK, and then click the Relative Reference button on the Record Macro toolbar.

To loop through a range of cells, use a variable with the Cells property in a loop. The following example fills the first 20 cells in the third column with values between 5 and 100, incremented by 5. The variable counter is used as the row index for the Cells property.

Code:

Sub CycleThrough()
    Dim counter As Integer
    For counter = 1 To 20
        Worksheets("Sheet1").Cells(counter, 3).Value = counter * 5
    Next counter
End Sub

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Pozicija ćelije

^{13.02.2010. u 09:19 - pre 172 meseci}

Citat:

Me_De: funkcija koja mi kaze red i kolonu izabrane celije u prozoru od custom fukcije
pa da ja mogu koristiti taj podatak za celiju, red isti, samo kolona+1

To možeš i pomoću raspoloživih f-ja, npr referenciranje ćelije koja je susedna ćeliji E6 (za kolonu udesno):

Code:
=ADDRESS(ROW(E6);COLUMN(E6)+1;)

Code:
=CELL("address";OFFSET(E6;0;1;1;1))

Ili, preko VBA:

Code:
Function Col_Offset(c As Range) As String

Col_Offset = c.Offset(0, 1).Address
End Function

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.3dnet.rs.

Sajt: www.gowi.rs

+109 Profil

Re: Pozicija ćelije

^{13.02.2010. u 10:19 - pre 172 meseci}

Ako sam ja dobro razumeo hoćeš da napraviš korisnički definisanu funkciju (UDF) u VBA modulu.
3okc ti je dao rešenje koje si ti tražio, ali po meni je u tom slučaju najjasnije, a i verovatno najjednostavinije je da kao parametar preneseš jedan (ili dva) opsega (range) veličine koje ti treba tj 2x4. U tom slučaju lako možeš pristupiti poziciji ćelije u opsegu preko relativnog broja reda kolone počevši od prve ćelije u opsegu (gore, levo)

Evo primer funkcije koja uzima kao parametar opseg i ne radi ništa pametno (to je ostalo da ti uradiš) nego čita iz opsega ćeliju iz prvog reda i treće kolone.

Code:
Function MyFunction(rngParametri As Range) As Variant
' Zgodno je prvo  proveriti da li je velicina opsega dobra
If rngParametri.Rows.Count <> 2 Or rngParametri.Columns.Count <> 4 Then
    MyFunction = CVErr(xlErrNA) ' Vraca grešku #N/A
    GoTo Izlaz
End If
' Vrednosti jednostavno mozes pozvati preko broja reda i kolone iz opsega
' Parametar iz prvog reda i trece kolone
MyFunction = rngParametri.Cells(1, 3).Value

Izlaz:
End Function

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu