MS Excel

Téma: Rozkopirovani vzorce

Zaslal/a TR 20.6.2010 16:44

Vsichni zname ze muzeme napsat vzorec =$B3+$B$3 a tahnutim za krizek v ruzku dostanu

=$B3+$B$3
=$B4+$B$3
=$B5+$B$3
=$B6+$B$3
=$B7+$B$3

ja ale potrebuju dosahnout tohoto

=$B3+$B$3
=$B4+$B$3
=$B5+$B$3
=$B6+$B$3
=$B7+$B$3
=$B8+$B$4
=$B9+$B$4
=$B10+$B$4
=$B11+$B$4
=$B12+$B$4
=$B13+$B$5
=$B14+$B$5
=$B15+$B$5
=$B16+$B$5
=$B17+$B$5
.
.

potrebuji to pro vice sloupcu a 4500 radek na kazdy, takze rucni prace nepripada v uvahu :).

predem diky!

Zaslat odpověď >

Jeza.m(21.6.2010 9:01)#001837

Ahoj,
asi bude snažší použít makro, než vymýšlet nějaký kostrbatý vzorec.

Public Sub vzorce()
Dim rdfix As Single
Dim pocitadlo As Single
rdfix = 3
pocitadlo = 5
For rd = 3 To ActiveSheet.UsedRange.Rows.Count
Cells(rd, 3).Formula = "=$B" & rd & "+$B$" & rdfix
pocitadlo = pocitadlo - 1
If pocitadlo = 0 Then
rdfix = rdfix + 1
pocitadlo = 5
End If
Next
End Sub
toto makro by mělo výsledek zapsat do sloupce C.

M@citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.