» »

[Excel] Deljenje vrednosti celice in izpis rezultata

[Excel] Deljenje vrednosti celice in izpis rezultata

Zupa852 ::

Živjo,

imam en problem z makri v Excelu. In sicer, rad bi naredil makro, ki bo število v poljubnem polju (katero koli polje bom označil) delilo z 12 in ta rezultat zapisalo v 12 polj desno in dol. Se pravi 12x mora rezultat vpisati v polja, ki so desno od označenega polja oz. 2. makro mora 12x vpisati rezultat pod označeno polje.
Zdej ratal mi je tako narest da pač, v točno določeno polje. Nevem pa kako bi naredil, da bi delovalo na kateremu koli polju, ki bi ga tisti trenutek kliknil in pognal makro potem.

Najlepša hvala za pomoč

Lp
  • spremenilo: CCfly ()

Oxford ::

Poskusi:


Sub Makro1()

vrstica = ActiveCell.Row
stolpec = ActiveCell.Column

Vrednost = Cells(vrstica, stolpec)
Rezultat = Vrednost / 12

ActiveCell.Offset(12, 12).Select
ActiveCell.FormulaR1C1 = Rezultat

End Sub


;)

Zupa852 ::

Živjo, hvala za hiter reply.

Ja u bistvu lepo deluje ta makro, samo jaz bi rabil da recimo vseh 12 polj, ki so desno od označenega polja, da jih zapolni z rezultatom, ki ga dobi ko deli z 12. Se pravi od tega polja, ki sem ga označil pa naslednjih 12 polj v desno je v vsakem polju posebej rezultat tega deljenja. Bi pa rabil vsakega posebej, torej ne da gre desno za 12 polj in še dol za 12 pol, ampak 1 makro za desno 2. marko za dol.

Hvala res za pomoč

Lp

Oxford ::

Aha, sem malo slabo prebral. Si mislil tole:

Sub Makro1()

vrstica = ActiveCell.Row
stolpec = ActiveCell.Column

Vrednost = Cells(vrstica, stolpec)
Rezultat = Vrednost / 12

For i = 1 To 12
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = Rezultat
Next

End Sub



Sub Makro2()

vrstica = ActiveCell.Row
stolpec = ActiveCell.Column

Vrednost = Cells(vrstica, stolpec)
Rezultat = Vrednost / 12

For i = 1 To 12
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = Rezultat
Next

End Sub


Bo sedaj O.K.?

Zupa852 ::

Super je. Ravno takega sem rabil.

Res najlepša hvala :)

Lp

Oxford ::

A smem vprašat, za kaj potrebuješ tak - nenavaden - izpis rezultatov? 0:)

Zupa852 ::

Ja u bistvu je res nenavaden. Rabim(-jo) ga pa v izračunih za finance, pri rezultatu, da 12x zapiše v svojo vrstico rezultat zaradi neke statistike oz. po mesecih. Potem pa iz teh vrstic lahko naprej dopolnjuješ polja. Neki tacga.

Še enkrat hvala za pomoč

steev ::

To se brez makrojev dela.
:|

snow ::

V celico (recimo A1) napišeš svojo cifro.

V celicah A2-A13 imaš pa formulo: =$A$1/12
(To narediš tako da jo napišeš v A2 in potem preneseš na polja do A13).
Random mutation plus nonrandom cumulative natural selection - Richard Dawkins

Oxford ::

V celico (recimo A1) napišeš svojo cifro.

V celicah A2-A13 imaš pa formulo: =$A$1/12
(To narediš tako da jo napišeš v A2 in potem preneseš na polja do A13).


Zupa852 je izrecno napisal, da potrebuje makro, ki bi zadevo izvedel za katerikoli celico, na katero bo označil - in ne samo točno določeni (recimo A1). Do tega nivoja je prišel sam.

Brez makroja pa to ni izvedljivo. Vsaj na mojem nivoju znanja ne.

Zupa852 ::

Točno tako ja, jaz potrebujem za katerokoli celica izberem da to deluje. Do tega sem prišel že sam ja, ostalo pa mi je pomagal Oxford.
Zdaj sem makro še popravil tako, da še tisto celico, katera je bila izbrana, prepiše z rezultatom. Zankrat deluje super.
Hvala Oxford.

Če bom pa rabil še kakšno pomoč se pa oglasim

Lp


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Calc/excel delo s tabelo

Oddelek: Programiranje
131343 (1110) salabajs
»

[Excel]Kako izvleči vrednost?

Oddelek: Programiranje
223636 (3359) Mobidick
»

[Excel] problem z makrojem, visual basic (strani: 1 2 )

Oddelek: Programiranje
585377 (4840) steev
»

Microsoft Excel - merged cells/insert row ...

Oddelek: Programska oprema
51107 (1056) Tutankhamun
»

excelove enačbe me mučijo

Oddelek: Programska oprema
51550 (1428) Tutankhamun

Več podobnih tem