Seštevanje polj

[LOGITECH]

Pozdravljeni,
Zelo bi mi prišlo prav, če bi vedel kako narediti sledeče;
V celico A1 vpišem neko številko.
Excel pa mi desno od te celice sešteje vsoto toliko celic v tej vrstici, kolikor znaša številka v A1.
Se pravi; v celicah od B1 in naprej v isti vrstici imam vpisanih 10 števil(ali pa tudi več)
Če v A1 vpišem 2 mi bo EXCEL vrnil samo vsoto celice B1in C1, torej B1+C1.
Če v A1 vpišem 4 mi bo EXCEL vrnil vsoto prvih štirih celic v tej vrstici, ki so desno od A1, torej vsoto B1+C1+E1+F1

Torej, Želim da EXCEL sešteje toliko celic kolikor je številka v polju A1.

Vnaprej hvala

[cedra]

Zdravo,

Morda tole:

Koda: Izberi vse

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Target = Range("A1")
    Dim Vsota As Double
    Dim i As Integer
    Vsota = 0
 For i = 1 To Range("A1").Value
    Vsota = Vsota + Cells(1, i + 1).Value
 Next i
 
    Range("A2") = Vsota
 
End Sub

Rezultat je v celici A2!

lp,

cedra

[LOGITECH]

Najlepša hvala. Zares deluje.
Ali morda obstaja še kakšna EXCEL-ova komanda za isto zadevo ?

[admin]

Koda: Izberi vse

=SUM(INDIRECT("R1C2:R1C"&A1+1;FALSE))

[LOGITECH]

Pozdrav,

Zares sem navdušen, DELUJE, hvala.